| File |
Line number |
Procedure |
Code |
|
./pkg/icefront/icefront_thermodynamics.F |
144 |
ICEFRONT_THERMODYNAMICS |
HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp * |
|
./pkg/icefront/icefront_thermodynamics.F |
149 |
ICEFRONT_THERMODYNAMICS |
icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5 |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
HeatFlux (I,J) = 0. _d 0 |
|
./pkg/icefront/icefront_thermodynamics.F |
187 |
ICEFRONT_THERMODYNAMICS |
CALL DIAGNOSTICS_FILL_RS(HeatFlux, 'ICFhtFlx', |
|
./pkg/icefront/icefront_thermodynamics.F |
66 |
ICEFRONT_THERMODYNAMICS |
_RS HeatFlux ( 1:sNx, 1:sNy ) |
|
./pkg/ocn_compon_interf/OCNCPL.h |
42 |
NO PROCEDURE |
& atmSLPr, HeatFlux, qShortWave, |
|
./pkg/ocn_compon_interf/OCNCPL.h |
51 |
NO PROCEDURE |
_RL HeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
60 |
CPL_INI_VARS |
HeatFlux (I,J,bi,bj) = 0. |
|
./pkg/ocn_compon_interf/cpl_write_pickup.F |
60 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 2, myIter, myThid ) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
105 |
OCN_APPLY_IMPORT |
Qnet(i,j,bi,bj)= HeatFlux (i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_diags.F |
64 |
OCN_CPL_DIAGS |
& + DDTT * HeatFlux(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
61 |
OCN_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1,HeatFlux , 2,myIter,myThid ) |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
92 |
OCN_CPL_READ_PICKUP |
_EXCH_XY_RL( HeatFlux , myThid ) |
|
./pkg/ocn_compon_interf/ocn_import_fields.F |
55 |
OCN_IMPORT_FIELDS |
O HeatFlux ) |
|
./pkg/aim_compon_interf/ATMCPL.h |
60 |
NO PROCEDURE |
& atmSLPr, HeatFlux, qShortWave, |
|
./pkg/aim_compon_interf/ATMCPL.h |
75 |
NO PROCEDURE |
_RL HeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/aim_compon_interf/atm_cpl_read_pickup.F |
63 |
ATM_CPL_READ_PICKUP |
CALL READ_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |
|
./pkg/aim_compon_interf/atm_store_heatflux.F |
65 |
ATM_STORE_HEATFLUX |
HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj) |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
53 |
CPL_INI_VARS |
HeatFlux( I,J,bi,bj) = 0. |
|
./pkg/aim_compon_interf/cpl_write_pickup.F |
70 |
CPL_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,prec,1, HeatFlux , 6, myIter,myThid ) |