/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_unpack_xyz.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_unpack_xyz.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by heimbach, Tue Nov 1 04:09:46 2005 UTC revision 1.14 by heimbach, Fri Jan 27 05:41:51 2006 UTC
# Line 223  cph( Line 223  cph(
223  cph)  cph)
224  #ifdef ALLOW_ADMTLM  #ifdef ALLOW_ADMTLM
225                       nveccount = nveccount + 1                       nveccount = nveccount + 1
226                       phtmpadmtlm(nveccount) = cbuff(cbuffindex)                       globfld3d(i,bi,ip,j,bj,jp,k) =
227         &                 phtmpadmtlm(nveccount)
228    cph(
229                         globfldtmp2(i,bi,ip,j,bj,jp) =
230         &                 phtmpadmtlm(nveccount)
231    cph)
232  #endif  #endif
233  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
234                       if ( lxxadxx ) then                       if ( lxxadxx ) then
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22