/[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.49 by jmc, Fri Oct 19 14:41:39 2007 UTC revision 1.50 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 130  C--   the kDown is still required Line 130  C--   the kDown is still required
130        fVerS(1,1,kDown) = fVerS(1,1,kDown)        fVerS(1,1,kDown) = fVerS(1,1,kDown)
131  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
132  CADJ STORE fVerS(:,:,:) =  CADJ STORE fVerS(:,:,:) =
133  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
134    CADJ &     kind = isbyte
135  CADJ STORE gsNm1(:,:,k,bi,bj) =  CADJ STORE gsNm1(:,:,k,bi,bj) =
136  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
137    CADJ &     kind = isbyte
138  # endif  # endif
139  #endif  #endif
140    
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22