| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/cheapaml.F |
354 |
CHEAPAML |
O fsha, flha, evp, xolw, ssqt, q100, cdq, |
|
./pkg/cheapaml/cheapaml.F |
383 |
CHEAPAML |
ssqt(i,j) = icFrac*ssqt(i,j) + opFrac*ssqt0 |
|
./pkg/cheapaml/cheapaml.F |
395 |
CHEAPAML |
O xolw(i,j), ssqt(i,j), q100(i,j) ) |
|
./pkg/cheapaml/cheapaml.F |
401 |
CHEAPAML |
O ssqt(i,j), q100(i,j), cdq(i,j), |
|
./pkg/cheapaml/cheapaml.F |
486 |
CHEAPAML |
& q.GT.ssqt(i,j)*0.7 _d 0 ) THEN |
|
./pkg/cheapaml/cheapaml.F |
488 |
CHEAPAML |
& + ( (q-ssqt(i,j)*0.7 _d 0)*dm/cheap_pr2 ) |
|
./pkg/cheapaml/cheapaml.F |
493 |
CHEAPAML |
IF (q.GT.0.0214 _d 0 .AND. q.GT.ssqt(i,j)*0.9 _d 0) THEN |
|
./pkg/cheapaml/cheapaml.F |
494 |
CHEAPAML |
precip = precip + ((q-ssqt(i,j)*0.9 _d 0)*dm/cheap_pr1) |
|
./pkg/cheapaml/cheapaml.F |
563 |
CHEAPAML |
CALL DIAGNOSTICS_FILL( ssqt,'CH_ssqt ',0,1,2,bi,bj,myThid ) |
|
./pkg/cheapaml/cheapaml.F |
81 |
CHEAPAML |
_RL ssqt(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
104 |
CHEAPAML_COARE3_FLUX |
ssqt=ssq0*EXP( lath*(ssq1-ssq2/tta) ) / p0 |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
109 |
CHEAPAML_COARE3_FLUX |
q=QaR*ssqt |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
20 |
CHEAPAML_COARE3_FLUX |
O hf, ef, evap, Rnl, ssqt, q100, cdq, cdu, |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
49 |
CHEAPAML_COARE3_FLUX |
_RL hf, ef, evap, Rnl, ssqt, q100, cdq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
12 |
CHEAPAML_LANL_FLUX |
O fsha, flha, evp, xolw, ssqt, q100 ) |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
138 |
CHEAPAML_LANL_FLUX |
ssqt = ssq0*exp( lath*(ssq1-ssq2/ttt) ) / pt |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
140 |
CHEAPAML_LANL_FLUX |
ssqt = 0.7 _d 0*ssq |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
37 |
CHEAPAML_LANL_FLUX |
_RL fsha, flha, evp, xolw, ssqt, q100 |
|
./pkg/cheapaml/cheapaml_seaice.F |
17 |
CHEAPAML_SEAICE |
O fsha, flha, evp, xolw, ssqt, q100, cdq, |
|
./pkg/cheapaml/cheapaml_seaice.F |
200 |
CHEAPAML_SEAICE |
O ssqt(i,j), q100(i,j), cdq(i,j), cdu, |
|
./pkg/cheapaml/cheapaml_seaice.F |
211 |
CHEAPAML_SEAICE |
O ssqt(i,j), q100(i,j), cdq(i,j), cdu, |
|
./pkg/cheapaml/cheapaml_seaice.F |
82 |
CHEAPAML_SEAICE |
_RL ssqt(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |