<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>