/[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.48 by jmc, Sun Sep 23 17:13:13 2007 UTC revision 1.50 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 49  C     == GLobal variables == Line 49  C     == GLobal variables ==
49  #include "DYNVARS.h"  #include "DYNVARS.h"
50  #include "EEPARAMS.h"  #include "EEPARAMS.h"
51  #include "PARAMS.h"  #include "PARAMS.h"
52    #include "RESTART.h"
53  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
54  #include "GAD.h"  #include "GAD.h"
55  #endif  #endif
# Line 129  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 STORE gsNm1(:,:,k,bi,bj) =  CADJ &     kind = isbyte
135  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gsNm1(:,:,k,bi,bj) =
136    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
137    CADJ &     kind = isbyte
138  # endif  # endif
139  #endif  #endif
140    
# Line 184  C--   External salinity forcing term(s) Line 187  C--   External salinity forcing term(s)
187          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
188       I                        bi, bj, k,       I                        bi, bj, k,
189       U                        gS, gsNm1,       U                        gS, gsNm1,
190       I                        iterNb, myThid )       I                        saltStartAB, iterNb, myThid )
191  #endif  #endif
192        ENDIF        ENDIF
193    
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22