139 |
U fVerS, gS, |
U fVerS, gS, |
140 |
I myTime, myIter, myThid ) |
I myTime, myIter, myThid ) |
141 |
ELSE |
ELSE |
|
#endif /* ALLOW_ADAMSBASHFORTH_3 */ |
|
142 |
CALL GAD_CALC_RHS( |
CALL GAD_CALC_RHS( |
143 |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
144 |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
148 |
I calcAdvection, saltImplVertAdv, |
I calcAdvection, saltImplVertAdv, |
149 |
U fVerS, gS, |
U fVerS, gS, |
150 |
I myTime, myIter, myThid ) |
I myTime, myIter, myThid ) |
|
#ifdef ALLOW_ADAMSBASHFORTH_3 |
|
151 |
ENDIF |
ENDIF |
152 |
#endif |
#else /* ALLOW_ADAMSBASHFORTH_3 */ |
153 |
|
CALL GAD_CALC_RHS( |
154 |
|
I bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown, |
155 |
|
I xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp, |
156 |
|
I uVel, vVel, wVel, |
157 |
|
I diffKhS, diffK4S, KappaRS, gsNm1, salt, |
158 |
|
I GAD_SALINITY, saltAdvScheme, saltVertAdvScheme, |
159 |
|
I calcAdvection, saltImplVertAdv, |
160 |
|
U fVerS, gS, |
161 |
|
I myTime, myIter, myThid ) |
162 |
|
#endif /* ALLOW_ADAMSBASHFORTH_3 */ |
163 |
|
|
164 |
C-- External salinity forcing term(s) inside Adams-Bashforth: |
C-- External salinity forcing term(s) inside Adams-Bashforth: |
165 |
IF ( saltForcing .AND. forcing_In_AB ) |
IF ( saltForcing .AND. forcing_In_AB ) |