File |
Line number |
Procedure |
Code |
./pkg/aim_ocn_coupler/CPL_MAP2GRIDS.h |
24 |
NO PROCEDURE |
COMMON / RUNOFF_MAP_C / runoffmapFile |
./pkg/aim_ocn_coupler/CPL_MAP2GRIDS.h |
25 |
NO PROCEDURE |
CHARACTER*80 runoffmapFile |
./pkg/aim_ocn_coupler/set_runoffmap.F |
49 |
SET_RUNOFFMAP |
DO n=1,LEN( runoffmapFile ) |
./pkg/aim_ocn_coupler/set_runoffmap.F |
50 |
SET_RUNOFFMAP |
IF ( runoffmapFile(n:n).NE.' ' ) lengthName=n |
./pkg/aim_ocn_coupler/set_runoffmap.F |
53 |
SET_RUNOFFMAP |
& runoffmapFile(1:lengthName),'<<= , nROmap=',nROmap |
./pkg/aim_ocn_coupler/set_runoffmap.F |
63 |
SET_RUNOFFMAP |
OPEN(88, FILE=runoffmapFile(1:lengthName), STATUS='OLD', |
./pkg/aim_ocn_coupler/cpl_read_params.F |
26 |
CPL_READ_PARAMS |
READ(88,'(A)') runoffmapFile |