114 |
ENDDO |
ENDDO |
115 |
ENDDO |
ENDDO |
116 |
C |
C |
117 |
C _EXCH_XYZ_R4(hFacC,myThid) |
C _EXCH_XYZ_RS(hFacC,myThid) |
118 |
C |
C |
119 |
C- Re-calculate lower-R Boundary position, taking into account hFacC |
C- Re-calculate lower-R Boundary position, taking into account hFacC |
120 |
DO bj=myByLo(myThid), myByHi(myThid) |
DO bj=myByLo(myThid), myByHi(myThid) |
184 |
ENDDO |
ENDDO |
185 |
ENDDO |
ENDDO |
186 |
ENDDO |
ENDDO |
187 |
C _EXCH_XY_R4( recip_Rcol, myThid ) |
C _EXCH_XY_RS( recip_Rcol, myThid ) |
188 |
|
|
189 |
C hFacW and hFacS (at U and V points) |
C hFacW and hFacS (at U and V points) |
190 |
CML This will be the crucial part of the code, because here the minimum |
CML This will be the crucial part of the code, because here the minimum |
319 |
CmlCml( |
CmlCml( |
320 |
Cml ENDDO |
Cml ENDDO |
321 |
Cml ENDDO |
Cml ENDDO |
322 |
Cml _EXCH_XYZ_R4(recip_hFacC , myThid ) |
Cml _EXCH_XYZ_RS(recip_hFacC , myThid ) |
323 |
Cml _EXCH_XYZ_R4(recip_hFacW , myThid ) |
Cml _EXCH_XYZ_RS(recip_hFacW , myThid ) |
324 |
Cml _EXCH_XYZ_R4(recip_hFacS , myThid ) |
Cml _EXCH_XYZ_RS(recip_hFacS , myThid ) |
325 |
Cml _EXCH_XYZ_R4(maskC , myThid ) |
Cml _EXCH_XYZ_RS(maskC , myThid ) |
326 |
Cml _EXCH_XYZ_R4(maskW , myThid ) |
Cml _EXCH_XYZ_RS(maskW , myThid ) |
327 |
Cml _EXCH_XYZ_R4(maskS , myThid ) |
Cml _EXCH_XYZ_RS(maskS , myThid ) |
328 |
Cml DO bj = myByLo(myThid), myByHi(myThid) |
Cml DO bj = myByLo(myThid), myByHi(myThid) |
329 |
Cml DO bi = myBxLo(myThid), myBxHi(myThid) |
Cml DO bi = myBxLo(myThid), myBxHi(myThid) |
330 |
CmlCml) |
CmlCml) |