/[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.49 by jmc, Fri Oct 19 14:41:39 2007 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 130  C--   the kDown is still required Line 131  C--   the kDown is still required
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 STORE gsNm1(:,:,k,bi,bj) =
135  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte
136  # endif  # endif
137  #endif  #endif
# Line 184  C--   External salinity forcing term(s) Line 185  C--   External salinity forcing term(s)
185          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
186       I                        bi, bj, k,       I                        bi, bj, k,
187       U                        gS, gsNm1,       U                        gS, gsNm1,
188       I                        iterNb, myThid )       I                        saltStartAB, iterNb, myThid )
189  #endif  #endif
190        ENDIF        ENDIF
191    
Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49
  ViewVC Help
Powered by ViewVC 1.1.22