| File |
Line number |
Procedure |
Code |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
39 |
ATM_TO_OCN_MAPRUNOFF |
INTEGER n, ijo, ija |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
42 |
ATM_TO_OCN_MAPRUNOFF |
DO ijo=1,Nx_ocn*Ny_ocn |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
43 |
ATM_TO_OCN_MAPRUNOFF |
fld_ocn(ijo) = 0. |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
49 |
ATM_TO_OCN_MAPRUNOFF |
ijo=ijROocn(n) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
51 |
ATM_TO_OCN_MAPRUNOFF |
fld_ocn(ijo) = fld_ocn(ijo) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
53 |
ATM_TO_OCN_MAPRUNOFF |
add2ocn(ijo) = add2ocn(ijo) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
43 |
CPL_CHECK_CPLCONFIG |
INTEGER ijo, ija |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
89 |
CPL_CHECK_CPLCONFIG |
ijo = ijROocn(n) - 1 |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
90 |
CPL_CHECK_CPLCONFIG |
i = 1 + MOD(ijo,Nx_ocn) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
91 |
CPL_CHECK_CPLCONFIG |
j = 1 + ijo/Nx_ocn |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
110 |
SET_RUNOFFMAP |
ijo = NINT(tmpfld(2,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
117 |
SET_RUNOFFMAP |
IF ( ijo.LT.1 .OR. ijo.GT.Nx_ocn*Ny_ocn ) THEN |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
121 |
SET_RUNOFFMAP |
ELSEIF ( rAc(ijo).GT.0. ) THEN |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
122 |
SET_RUNOFFMAP |
arROmap(n) = tmpfld(3,n)/rAc(ijo) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
126 |
SET_RUNOFFMAP |
ijROocn(n) = ijo |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
32 |
SET_RUNOFFMAP |
INTEGER n, ijo, ija |