1 |
=================================================================== |
=================================================================== |
2 |
dir Tree of PRM set-up: |
dir Tree of PRM set-up: |
3 |
------------------------ |
------------------------ |
4 |
in dir: verification/prm/multi_comp_setup/ |
in dir: verification/prm/multi_comp_setup/ |
5 |
comp_mitgcm/ |
comp_mitgcm/ |
83 |
-> CALL INITIALISE_FIXED |
-> CALL INITIALISE_FIXED |
84 |
driver_init_varia.F -> CALL INITIALISE_VARIA |
driver_init_varia.F -> CALL INITIALISE_VARIA |
85 |
driver_run.F -> CALL FORWARD_STEP |
driver_run.F -> CALL FORWARD_STEP |
86 |
+ eeboot.F , eeboot_minimal.F , field_getset.F , |
field_getset.F contains: |
87 |
|
S/R GET_SIZES |
88 |
|
S/R GET_DYNVARS |
89 |
|
S/R SET_DYNVARS |
90 |
|
S/R GET_TIMEVARS |
91 |
|
S/R SET_TIMEVARS |
92 |
|
+ eeboot.F , eeboot_minimal.F |
93 |
+ set_dir.c , get_dir.c , setdir.c |
+ set_dir.c , get_dir.c , setdir.c |
94 |
|
|
95 |
in dir: multi_comp_setup/cg/code/ |
in dir: multi_comp_setup/cg/code/ |
96 |
calc_export_2fg.F |
calc_export_2fg.F |
97 |
set_ddtvars.F |
set_ddtvars.F |
98 |
in dir: multi_comp_setup/cg/code/ |
in dir: multi_comp_setup/fg/code/ |
99 |
apply_cg_import.F |
apply_cg_import.F |
100 |
calc_export_2cg.F |
calc_export_2cg.F |
101 |
calc_fg_forcing.F |
calc_fg_forcing.F |
102 |
mitgcm_ecomp_irf.F |
mitgcm_ecomp_irf.F |
103 |
+ local version: mom_fluxform.F , mypackage_tendency_apply.F , write_state.F |
+ local version: mom_fluxform.F , mypackage_tendency_apply.F , write_state.F |
104 |
|
|
|
|
|
105 |
in dir: multi_comp_setup/esmf_test/code_base/src/ |
in dir: multi_comp_setup/esmf_test/code_base/src/ |
106 |
src/main.F90 contains: |
src/main.F90 contains: |
107 |
PROGRAM TOP |
PROGRAM TOP |
121 |
|
|
122 |
computeCG/computecg.F90 contains: |
computeCG/computecg.F90 contains: |
123 |
S/R COMPUTE_INIT -> CALL DRIVER_INIT |
S/R COMPUTE_INIT -> CALL DRIVER_INIT |
124 |
S/R COMPUTE_RUN |
S/R COMPUTE_RUN |
125 |
if iLoop=0: -> CALL DRIVER_INIT_VARIA |
if iLoop=0: -> CALL DRIVER_INIT_VARIA |
126 |
if iLoop>0: -> CALL SET_DDTVARS |
if iLoop>0: -> CALL SET_DDTVARS |
127 |
if iLoop>0: -> CALL DRIVER_RUN |
if iLoop>0: -> CALL DRIVER_RUN |
128 |
-> CALL CALC_EXPORT_2FG |
-> CALL CALC_EXPORT_2FG |
129 |
-> CALL GET_DYNVARS |
-> CALL GET_DYNVARS |
130 |
|
|
148 |
computeFG/computefg.F90 contains: |
computeFG/computefg.F90 contains: |
149 |
S/R COMPUTE_INIT -> CALL DRIVER_INIT |
S/R COMPUTE_INIT -> CALL DRIVER_INIT |
150 |
CALL GET_DYNVARS (x nFgM) |
CALL GET_DYNVARS (x nFgM) |
151 |
S/R COMPUTE_RUN |
S/R COMPUTE_RUN |
152 |
if iLoop=0: -> CALL DRIVER_INIT_VARIA (x nFgM) |
if iLoop=0: -> CALL DRIVER_INIT_VARIA (x nFgM) |
153 |
if iLoop>0: -> CALL SET_DYNVARS (x nFgM) |
if iLoop>0: -> CALL SET_DYNVARS (x nFgM) |
154 |
\ -> CALL APPLY_CG_IMPORT (x nFgM) |
\ -> CALL APPLY_CG_IMPORT (x nFgM) |
163 |
S/R DO_COUPLING_SETUP |
S/R DO_COUPLING_SETUP |
164 |
S/R MYINIT -> CALL DO_COUPLING_SETUP |
S/R MYINIT -> CALL DO_COUPLING_SETUP |
165 |
S/R MYRUN -> CALL DO_COUPLING |
S/R MYRUN -> CALL DO_COUPLING |
166 |
|
|
167 |
|
mitgcm_state/mitgcm_state_mod.F90 contains: |
168 |
|
define type MITGCM_DYNVARS + MITGCM_TIMEVARS = MITGCM_ISTATE & MITGCM_MULTI_ISTATE |
169 |
|
module MITGCM_ISTATE_CREATE |
170 |
|
module MITGCM_ISTATE_DESTROY |
171 |
---------------------------------------------------- |
---------------------------------------------------- |
172 |
=================================================================== |
=================================================================== |