| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_forcing1.h |
25 |
NO PROCEDURE |
COMMON /FORCIN/ sst1, oice1, stl1, snow1, soilq1 |
|
./pkg/aim/com_forcing1.h |
29 |
NO PROCEDURE |
_RL snow1 (ngp,MAX_NO_THREADS) |
|
./pkg/aim/aim_do_atmos_physics.F |
285 |
AIM_DO_PHYSICS |
snow1(I2,myThid) = 0. |
|
./pkg/bulk_force/bulkf_fields_load.F |
118 |
BULKF_FIELDS_LOAD |
_RS snow1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/bulk_force/bulkf_fields_load.F |
160 |
BULKF_FIELDS_LOAD |
CALL LEF_ZERO( snow1,myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
286 |
BULKF_FIELDS_LOAD |
CALL READ_REC_XY_RS( SnowFile,snow1,intime1, |
|
./pkg/bulk_force/bulkf_fields_load.F |
349 |
BULKF_FIELDS_LOAD |
_EXCH_XY_R4(snow1 , myThid ) |
|
./pkg/bulk_force/bulkf_fields_load.F |
402 |
BULKF_FIELDS_LOAD |
& +aWght*snow1(i,j,bi,bj) |
|
./pkg/bulk_force/bulkf_fields_load.F |
86 |
BULKF_FIELDS_LOAD |
& qnetch1,empch1, cloud1,snow1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
133 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
172 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
271 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
293 |
AIM_SURF_BC |
I aim_landFr, aim_veget, aim_albedo, snow1, |
|
./pkg/aim_v23/aim_surf_bc.F |
122 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
161 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./pkg/aim_v23/aim_surf_bc.F |
246 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
268 |
AIM_SURF_BC |
I aim_landFr, aim_veget, aim_albedo, snow1, |
|
./pkg/aim_v23/com_forcing.h |
52 |
NO PROCEDURE |
_RL oice1(NGP), snow1(NGP) |