/[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.48 by jmc, Wed Mar 1 03:08:50 2006 UTC revision 1.49 by heimbach, Mon Mar 6 18:25:49 2006 UTC
# Line 113  C--   only the kUp part of fverT is set Line 113  C--   only the kUp part of fverT is set
113  C--   the kDown is still required  C--   the kDown is still required
114        fVerT(1,1,kDown) = fVerT(1,1,kDown)        fVerT(1,1,kDown) = fVerT(1,1,kDown)
115  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
116  CADJ STORE fVerT(:,:,:) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE fVerT(:,:,:) =
117    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte
118    CADJ STORE gtNm1(:,:,k,bi,bj) =
119    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte
120  # endif  # endif
121  #endif  #endif
122    
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22