/[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.51 by jahn, Fri Jun 26 23:10:09 2009 UTC revision 1.52 by heimbach, Wed Sep 15 03:41:59 2010 UTC
# Line 132  C--   the kDown is still required Line 132  C--   the kDown is still required
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  CADJ &     kind = isbyte
135    #  ifndef ALLOW_ADAMSBASHFORTH_3
136  CADJ STORE gsNm1(:,:,k,bi,bj) =  CADJ STORE gsNm1(:,:,k,bi,bj) =
137  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
138  CADJ &     kind = isbyte  CADJ &     kind = isbyte
139    #  else
140    CADJ STORE gs(:,:,k,bi,bj) =
141    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
142    CADJ &     kind = isbyte
143    CADJ STORE gsNm(:,:,k,bi,bj,1) =
144    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
145    CADJ &     kind = isbyte
146    CADJ STORE gsNm(:,:,k,bi,bj,2) =
147    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
148    CADJ &     kind = isbyte
149    #  endif
150  # endif  # endif
151  #endif  #endif
152    
# Line 205  C--   External salinity forcing term(s) Line 217  C--   External salinity forcing term(s)
217       I                          myThid )       I                          myThid )
218          IF ( AdamsBashforthGs ) THEN          IF ( AdamsBashforthGs ) THEN
219  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
220    # ifdef ALLOW_AUTODIFF_TAMC
221    CADJ STORE gsNm(:,:,k,bi,bj,1) =
222    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
223    CADJ &     kind = isbyte
224    CADJ STORE gsNm(:,:,k,bi,bj,2) =
225    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
226    CADJ &     kind = isbyte
227    # endif
228          CALL FREESURF_RESCALE_G(          CALL FREESURF_RESCALE_G(
229       I                          bi, bj, k,       I                          bi, bj, k,
230       U                          gsNm(1-OLx,1-OLy,1,1,1,1),       U                          gsNm(1-OLx,1-OLy,1,1,1,1),
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22