89 |
& pisvel(i,j,bi,bj) |
& pisvel(i,j,bi,bj) |
90 |
& / sqrt(SchmidtNoO2(i,j)/660.0) |
& / sqrt(SchmidtNoO2(i,j)/660.0) |
91 |
c ice influence |
c ice influence |
92 |
cQQ Kwexch(i,j) =(1.d0-Fice(i,j,bi,bj))*Kwexch(i,j) |
Kwexch(i,j) =(1.d0-Fice(i,j,bi,bj))*Kwexch(i,j) |
93 |
|
|
94 |
ttemp = theta(i,j,k,bi,bj) |
ttemp = theta(i,j,k,bi,bj) |
95 |
stemp = salt(i,j,k,bi,bj) |
stemp = salt(i,j,k,bi,bj) |
129 |
C update surface tendencies |
C update surface tendencies |
130 |
DO j=jMin,jMax |
DO j=jMin,jMax |
131 |
DO i=iMin,iMax |
DO i=iMin,iMax |
132 |
SGO2(i,j)= maskC(i,j,1,bi,bj)*FluxO2(i,j)*recip_drF(1) |
SGO2(i,j)= maskC(i,j,1,bi,bj)*FluxO2(i,j) |
133 |
|
& *recip_drF(1) * recip_hFacC(i,j,1,bi,bj) |
134 |
ENDDO |
ENDDO |
135 |
ENDDO |
ENDDO |
136 |
#endif |
#endif |