| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_idemix.F |
144 |
GGL90_IDEMIX |
c0(i,j,k)=max(0. _d 0, |
|
./pkg/ggl90/ggl90_idemix.F |
306 |
GGL90_IDEMIX |
& *.5 _d 0*(c0(i,j,k)+c0(i,j,k+1)) |
|
./pkg/ggl90/ggl90_idemix.F |
331 |
GGL90_IDEMIX |
a3d(i,j,k) = -delta(i,j,k-1)*c0(i,j,km1) |
|
./pkg/ggl90/ggl90_idemix.F |
344 |
GGL90_IDEMIX |
c3d(i,j,k) = -delta(i,j,k)*c0(i,j,kp1) |
|
./pkg/ggl90/ggl90_idemix.F |
373 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
377 |
GGL90_IDEMIX |
b3d(i,j,k) = b3d(i,j,k) + delta(i,j,km1)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
393 |
GGL90_IDEMIX |
& + delta(i,j,km1 )*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
401 |
GGL90_IDEMIX |
& + delta(i,j,k)*c0(i,j,k) |
|
./pkg/ggl90/ggl90_idemix.F |
456 |
GGL90_IDEMIX |
CALL DIAGNOSTICS_FILL( c0 ,'IDEMIX_c', |
|
./pkg/ggl90/ggl90_idemix.F |
74 |
GGL90_IDEMIX |
_RL c0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_idemix.F |
96 |
GGL90_IDEMIX |
c0(i,j,k) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
129 |
ICEFRONT_THERMODYNAMICS |
eps4 = b*pLoc + c0 |
|
./pkg/icefront/icefront_thermodynamics.F |
69 |
ICEFRONT_THERMODYNAMICS |
_RL a0, b, c0 |
|
./pkg/icefront/icefront_thermodynamics.F |
81 |
ICEFRONT_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/kpp/kpp_routines.F |
1006 |
RI_IWMIX |
c0 = 0. _d 0 |
|
./pkg/kpp/kpp_routines.F |
1075 |
RI_IWMIX |
Rig = max ( diffus(i,ki,1), c0 ) |
|
./pkg/kpp/kpp_routines.F |
1111 |
RI_IWMIX |
diffus(i,0,1) = c0 |
|
./pkg/kpp/kpp_routines.F |
1112 |
RI_IWMIX |
diffus(i,0,2) = c0 |
|
./pkg/kpp/kpp_routines.F |
1113 |
RI_IWMIX |
diffus(i,0,3) = c0 |
|
./pkg/kpp/kpp_routines.F |
997 |
RI_IWMIX |
_RL c1, c0 |
|
./pkg/openad/seawater.F |
156 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/openad/seawater.F |
169 |
SW_ADTG |
c0 = +1.8741 _d -8 |
|
./pkg/openad/seawater.F |
183 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./pkg/shelfice/shelfice_thermodynamics.F |
188 |
SHELFICE_THERMODYNAMICS |
c0 = 0.0901 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
197 |
SHELFICE_THERMODYNAMICS |
c0 = 0. _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
405 |
SHELFICE_THERMODYNAMICS |
& + b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
476 |
SHELFICE_THERMODYNAMICS |
eps4 = b*pLoc(I,J) + c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
487 |
SHELFICE_THERMODYNAMICS |
& + ( c0 - SHELFICEthetaSurface )/pLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
95 |
SHELFICE_THERMODYNAMICS |
_RL a0, a1, a2, b, c0 |
|
./model/src/seawater.F |
148 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
161 |
NO PROCEDURE |
c0 = +1.8741 _d -8 |
|
./model/src/seawater.F |
175 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |