<p><b>mpetersen@lanl.gov</b> 2012-10-17 11:57:26 -0600 (Wed, 17 Oct 2012)</p><p>branch commit, basin_pbc_mrp: Fixing error in order of read and allocate.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/basin_pbc_mrp/src/basin.F
===================================================================
--- branches/ocean_projects/basin_pbc_mrp/src/basin.F        2012-10-17 17:36:32 UTC (rev 2218)
+++ branches/ocean_projects/basin_pbc_mrp/src/basin.F        2012-10-17 17:57:26 UTC (rev 2219)
@@ -222,12 +222,11 @@
 if (load_woce_IC) then
    write(6,*) ' getting woce t and s '
 
+   call read_TS_init(nlon, nlat, ndepth,fileNameT, fileNameS, fileNameU)
+   write(6,*) ' TS INIT ', nlon, nlat, ndepth
    allocate(t_lon(nlon), t_lat(nlat), depth_t(ndepth), TEMP(nlon,nlat,ndepth), SALT(nlon,nlat,ndepth))
    allocate(TAUX(nlon,nlat), TAUY(nlon,nlat))
    allocate(mTEMP(nlat,ndepth), mSALT(nlat,ndepth))
-
-   call read_TS_init(nlon, nlat, ndepth,fileNameT, fileNameS, fileNameU)
-   write(6,*) ' TS INIT ', nlon, nlat, ndepth
    call read_TS_fields(t_lon, t_lat, depth_t, TEMP, SALT, TAUX, TAUY)
    call read_TS_finalize()
 

</font>
</pre>