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

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

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

revision 1.44 by jmc, Wed Mar 1 03:08:50 2006 UTC revision 1.45 by heimbach, Mon Mar 6 18:25:49 2006 UTC
# Line 114  C--   only the kUp part of fverS is set Line 114  C--   only the kUp part of fverS is set
114  C--   the kDown is still required  C--   the kDown is still required
115        fVerS(1,1,kDown) = fVerS(1,1,kDown)        fVerS(1,1,kDown) = fVerS(1,1,kDown)
116  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
117  CADJ STORE fVerS(:,:,:) = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE fVerS(:,:,:) =
118    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte
119    CADJ STORE gsNm1(:,:,k,bi,bj) =
120    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte
121  # endif  # endif
122  #endif  #endif
123    
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22