| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/ocn_import_fields.F |
46 |
OCN_IMPORT_FIELDS |
O qShortWave ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
39 |
OCN_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,qShortWave, 3,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_R8( qShortWave, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
52 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
109 |
OCN_APPLY_IMPORT |
Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/OCNCPL.h |
39 |
NO PROCEDURE |
& atmSLPr, HeatFlux, qShortWave, |
|
./pkg/ocn_compon_interf/OCNCPL.h |
48 |
NO PROCEDURE |
_RL qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
48 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 3,myIter,myThid) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
48 |
OCN_CPL_DIAGS |
& + DDTT * qShortWave(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_store_qshortwave.F |
55 |
ATM_STORE_QSHORTWAVE |
qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_export_qshortwave.F |
50 |
ATM_EXPORT_QSHORTWAVE |
qShortWave(I,J,bi,bj) = qShortWave(I,J,bi,bj)*recipAvT |
|
./pkg/aim_compon_interf/atm_export_qshortwave.F |
61 |
ATM_EXPORT_QSHORTWAVE |
I sNx, OLx, sNy, OLy, 1, nSx, nSy, qShortWave ) |
|
./pkg/aim_compon_interf/atm_export_qshortwave.F |
69 |
ATM_EXPORT_QSHORTWAVE |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/ATMCPL.h |
54 |
NO PROCEDURE |
& atmSLPr, HeatFlux, qShortWave, |
|
./pkg/aim_compon_interf/ATMCPL.h |
68 |
NO PROCEDURE |
_RL qShortWave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
58 |
ATM_CPL_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',1,qShortWave, 7,myThid) |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
46 |
CPL_INI_VARS |
qShortWave(I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
64 |
CPL_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,qShortWave, 7,myIter,myThid) |