| File |
Line number |
Procedure |
Code |
|
./pkg/cheapaml/CHEAPAML.h |
30 |
NO PROCEDURE |
& qair, gqairm, |
|
./pkg/cheapaml/CHEAPAML.h |
44 |
NO PROCEDURE |
_RL qair (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/cheapaml/cheapaml.F |
162 |
CHEAPAML |
q_htf(i,j) = qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
211 |
CHEAPAML |
qair(i,j,bi,bj) = qa(i,j) |
|
./pkg/cheapaml/cheapaml.F |
216 |
CHEAPAML |
qair(i,j,bi,bj) = qr(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
304 |
CHEAPAML |
I cheapaml_kdiff, qair, |
|
./pkg/cheapaml/cheapaml.F |
319 |
CHEAPAML |
U qair, |
|
./pkg/cheapaml/cheapaml.F |
325 |
CHEAPAML |
_EXCH_XY_RL(qair,myThid) |
|
./pkg/cheapaml/cheapaml.F |
380 |
CHEAPAML |
U qair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml.F |
400 |
CHEAPAML |
& CALL WRITE_FLD_XY_RL('qAir_afAdv.', sufx, qair, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
525 |
CHEAPAML |
& *(0.39 _d 0 - 0.05 _d 0*SQRT(qair(i,j,bi,bj)*1607.7 _d 0)) |
|
./pkg/cheapaml/cheapaml.F |
617 |
CHEAPAML |
U qair, |
|
./pkg/cheapaml/cheapaml.F |
622 |
CHEAPAML |
dq=qr(i,j,bi,bj)-qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
623 |
CHEAPAML |
qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml.F |
624 |
CHEAPAML |
IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/cheapaml/cheapaml.F |
658 |
CHEAPAML |
_EXCH_XY_RL(qair,myThid) |
|
./pkg/cheapaml/cheapaml.F |
690 |
CHEAPAML |
U qair(1-OLx,1-OLy,bi,bj), |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
107 |
CHEAPAML_COARE3_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
127 |
CHEAPAML_INIT_VARIA |
CALL READ_FLD_XY_RL( AirQFile,' ',qair,0,myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
139 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=0.8 _d 0*ssqa |
|
./pkg/cheapaml/cheapaml_init_varia.F |
145 |
CHEAPAML_INIT_VARIA |
_EXCH_XY_RL(qair, myThid) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
307 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(1,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
313 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(sNx,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
319 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,1,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
324 |
CHEAPAML_INIT_VARIA |
qair(i,j,bi,bj)=qair(i,sNy,bi,bj) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
65 |
CHEAPAML_INIT_VARIA |
qair (i,j,bi,bj) = 0. _d 0 |
|
./pkg/cheapaml/cheapaml_lanl_flux.F |
143 |
CHEAPAML_LANL_FLUX |
q=qair(i,j,bi,bj) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
135 |
CHEAPAML_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'Qair ', qair, |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
199 |
CHEAPAML_READ_PICKUP |
CALL EXCH_XY_RL( qair, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
96 |
CHEAPAML_WRITE_PICKUP |
& qair, nj, myIter, myThid ) |