/[MITgcm]/MITgcm/model/src/calc_gt.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gt.F

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

revision 1.53 by jmc, Fri Oct 19 14:41:39 2007 UTC revision 1.54 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 129  C--   the kDown is still required Line 129  C--   the kDown is still required
129        fVerT(1,1,kDown) = fVerT(1,1,kDown)        fVerT(1,1,kDown) = fVerT(1,1,kDown)
130  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
131  CADJ STORE fVerT(:,:,:) =  CADJ STORE fVerT(:,:,:) =
132  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
133    CADJ &     kind = isbyte
134  CADJ STORE gtNm1(:,:,k,bi,bj) =  CADJ STORE gtNm1(:,:,k,bi,bj) =
135  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
136    CADJ &     kind = isbyte
137  # endif  # endif
138  #endif  #endif
139    
Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54
  ViewVC Help
Powered by ViewVC 1.1.22