/[MITgcm]/MITgcm_contrib/jscott/code_rafmod/calc_gt.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/code_rafmod/calc_gt.F

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

revision 1.1 by jscott, Tue Aug 21 16:34:17 2007 UTC revision 1.2 by jscott, Thu Sep 3 20:40:01 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    C added mods to 1.55 7/10/09
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
# 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        fVerT(1,1,kDown) = fVerT(1,1,kDown)        fVerT(1,1,kDown) = fVerT(1,1,kDown)
132  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
133  CADJ STORE fVerT(:,:,:) =  CADJ STORE fVerT(:,:,:) =
134  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
135  CADJ STORE gtNm1(:,:,k,bi,bj) =  CADJ &     kind = isbyte
136  CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte  CADJ STORE gtNm1(:,:,k,bi,bj) =
137    CADJ &     comlev1_bibj_k, key=kkey, byte=isbyte,
138    CADJ &     kind = isbyte
139  # endif  # endif
140  #endif  #endif
141    
# Line 150  C---+----1----+----2----+----3----+----4 Line 153  C---+----1----+----2----+----3----+----4
153       I           xA, yA, maskUp, uFld, vFld, wFld,       I           xA, yA, maskUp, uFld, vFld, wFld,
154       I           uTrans, vTrans, rTrans, rTransKp1,       I           uTrans, vTrans, rTrans, rTransKp1,
155       I           diffKhT, diffK4T, KappaRT,       I           diffKhT, diffK4T, KappaRT,
156       I           gtNm(1-Olx,1-Oly,1,1,1,m2), theta,       I           gtNm(1-Olx,1-Oly,1,1,1,m2), theta, dTtracerLev,
157       I           GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme,       I           GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme,
158       I           calcAdvection, tempImplVertAdv, AdamsBashforth_T,       I           calcAdvection, tempImplVertAdv, AdamsBashforth_T,
159         I           useGMRedi, useKPP,
160       U           fVerT, gT,       U           fVerT, gT,
161       I           myTime, myIter, myThid )       I           myTime, myIter, myThid )
162  #else /* ALLOW_ADAMSBASHFORTH_3 */  #else /* ALLOW_ADAMSBASHFORTH_3 */
# Line 161  C---+----1----+----2----+----3----+----4 Line 165  C---+----1----+----2----+----3----+----4
165       I           xA, yA, maskUp, uFld, vFld, wFld,       I           xA, yA, maskUp, uFld, vFld, wFld,
166       I           uTrans, vTrans, rTrans, rTransKp1,       I           uTrans, vTrans, rTrans, rTransKp1,
167       I           diffKh3d_x, diffKh3d_y,       I           diffKh3d_x, diffKh3d_y,
168       I           diffK4T, KappaRT, gtNm1, theta,       I           diffK4T, KappaRT, gtNm1, theta, dTtracerLev,
169       I           GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme,       I           GAD_TEMPERATURE, tempAdvScheme, tempVertAdvScheme,
170       I           calcAdvection, tempImplVertAdv, AdamsBashforth_T,       I           calcAdvection, tempImplVertAdv, AdamsBashforth_T,
171         I           useGMRedi, useKPP,
172       U           fVerT, gT,       U           fVerT, gT,
173       I           myTime, myIter, myThid )       I           myTime, myIter, myThid )
174  #endif  #endif
# Line 184  C--   External thermal forcing term(s) i Line 189  C--   External thermal forcing term(s) i
189          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
190       I                        bi, bj, k,       I                        bi, bj, k,
191       U                        gT, gtNm1,       U                        gT, gtNm1,
192       I                        iterNb, myThid )       I                        tempStartAB, iterNb, myThid )
193  #endif  #endif
194        ENDIF        ENDIF
195    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22