| File |
Line number |
Procedure |
Code |
|
./pkg/ocn_compon_interf/cpl_init.F |
38 |
CPL_INIT |
INTEGER msgUnit |
|
./pkg/ocn_compon_interf/cpl_init.F |
43 |
CPL_INIT |
O MPI_COMM_MODEL, msgUnit ) |
|
./pkg/atm2d/atm2d_init_fixed.F |
43 |
ATM2D_INIT_FIXED |
INTEGER msgUnit |
|
./pkg/atm2d/atm2d_init_fixed.F |
96 |
ATM2D_INIT_FIXED |
msgUnit = standardMessageUnit |
|
./pkg/atm2d/atm2d_init_fixed.F |
98 |
ATM2D_INIT_FIXED |
I msgUnit ) |
|
./pkg/atm2d/exch_component_configs.F |
10 |
EXCH_COMPONENT_CONFIGS |
SUBROUTINE EXCH_COMPONENT_CONFIGS( msgUnit ) |
|
./pkg/atm2d/exch_component_configs.F |
31 |
EXCH_COMPONENT_CONFIGS |
INTEGER msgUnit |
|
./pkg/atm2d/initialise.F |
35 |
INITIALISE |
INTEGER msgUnit |
|
./pkg/atm2d/initialise.F |
46 |
INITIALISE |
O MPI_COMM_Coupler, msgUnit ) |
|
./pkg/atm_compon_interf/cpl_init.F |
38 |
CPL_INIT |
INTEGER msgUnit |
|
./pkg/atm_compon_interf/cpl_init.F |
43 |
CPL_INIT |
O MPI_COMM_MODEL, msgUnit ) |
|
./pkg/atm_ocn_coupler/coupler.F |
33 |
NO PROCEDURE |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/coupler.F |
38 |
NO PROCEDURE |
O msgUnit ) |
|
./pkg/atm_ocn_coupler/coupler.F |
44 |
NO PROCEDURE |
CALL CPL_SEND_ATM_CPLPARMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/coupler.F |
45 |
NO PROCEDURE |
CALL CPL_SEND_OCN_CPLPARMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/coupler.F |
48 |
NO PROCEDURE |
CALL EXCH_COMPONENT_CONFIGS( msgUnit ) |
|
./pkg/atm_ocn_coupler/coupler.F |
56 |
NO PROCEDURE |
CALL CPL_RECV_ATM_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
58 |
NO PROCEDURE |
CALL CPL_SEND_OCN_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
61 |
NO PROCEDURE |
CALL CPL_RECV_OCN_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
63 |
NO PROCEDURE |
CALL CPL_SEND_ATM_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
69 |
NO PROCEDURE |
CALL CPL_RECV_OCN_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
70 |
NO PROCEDURE |
CALL CPL_RECV_ATM_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
73 |
NO PROCEDURE |
CALL CPL_SEND_ATM_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/coupler.F |
74 |
NO PROCEDURE |
CALL CPL_SEND_OCN_FIELDS( msgUnit, I ) |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
105 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(A,2I8,A)') |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
115 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A)') ' CPL_CHECK_CPLCONFIG: ','done' |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
11 |
CPL_CHECK_CPLCONFIG |
I msgUnit, |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
37 |
CPL_CHECK_CPLCONFIG |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
50 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A,I4,A)') |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
56 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A,I9)') ' CPL_CHECK_CPLCONFIG: ', |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
58 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A,I9)') ' CPL_CHECK_CPLCONFIG: ', |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
62 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A,I9)') ' CPL_CHECK_CPLCONFIG: ', |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
67 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(2A)') ' *** ERROR *** CPL_CHECK_CPLCONFIG: ', |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
84 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(A,2I8,A)') |
|
./pkg/atm_ocn_coupler/cpl_check_cplconfig.F |
94 |
CPL_CHECK_CPLCONFIG |
WRITE(msgUnit,'(A,2I8,A)') |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
10 |
CPL_INIT_ATM_VARS |
SUBROUTINE CPL_INIT_ATM_VARS( msgUnit ) |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
27 |
CPL_INIT_ATM_VARS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_init_atm_vars.F |
34 |
CPL_INIT_ATM_VARS |
WRITE(msgUnit,'(2A)') 'CPL_INIT_ATM_VARS: ', |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
10 |
CPL_INIT_OCN_VARS |
SUBROUTINE CPL_INIT_OCN_VARS( msgUnit ) |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
27 |
CPL_INIT_OCN_VARS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_init_ocn_vars.F |
34 |
CPL_INIT_OCN_VARS |
WRITE(msgUnit,'(2A)') 'CPL_INIT_OCN_VARS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
101 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
103 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
105 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
109 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I8)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
10 |
CPL_READ_PARAMS |
SUBROUTINE CPL_READ_PARAMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
111 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(3A)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
114 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
25 |
CPL_READ_PARAMS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
57 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
65 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
67 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4,A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
74 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
76 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4,A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
81 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
83 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4,A)') ' *** ERROR *** CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
89 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
93 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
97 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_read_params.F |
99 |
CPL_READ_PARAMS |
WRITE(msgUnit,'(2A,I4)') 'CPL_READ_PARAMS: ', |
|
./pkg/atm_ocn_coupler/cpl_recv_atm_fields.F |
33 |
CPL_RECV_ATM_FIELDS |
INTEGER msgUnit, iter |
|
./pkg/atm_ocn_coupler/cpl_recv_atm_fields.F |
9 |
CPL_RECV_ATM_FIELDS |
SUBROUTINE CPL_RECV_ATM_FIELDS( msgUnit, iter ) |
|
./pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F |
34 |
CPL_RECV_OCN_FIELDS |
INTEGER msgUnit, iter |
|
./pkg/atm_ocn_coupler/cpl_recv_ocn_fields.F |
9 |
CPL_RECV_OCN_FIELDS |
SUBROUTINE CPL_RECV_OCN_FIELDS( msgUnit, iter ) |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
10 |
CPL_SEND_ATM_CPLPARMS |
SUBROUTINE CPL_SEND_ATM_CPLPARMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
28 |
CPL_SEND_ATM_CPLPARMS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
53 |
CPL_SEND_ATM_CPLPARMS |
WRITE(msgUnit,'(2A,I4,A)') |
|
./pkg/atm_ocn_coupler/cpl_send_atm_cplparms.F |
56 |
CPL_SEND_ATM_CPLPARMS |
WRITE(msgUnit,'(2A,I4,A)') |
|
./pkg/atm_ocn_coupler/cpl_send_atm_fields.F |
36 |
CPL_SEND_ATM_FIELDS |
INTEGER msgUnit, iter |
|
./pkg/atm_ocn_coupler/cpl_send_atm_fields.F |
9 |
CPL_SEND_ATM_FIELDS |
SUBROUTINE CPL_SEND_ATM_FIELDS( msgUnit, iter ) |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
10 |
CPL_SEND_OCN_CPLPARMS |
SUBROUTINE CPL_SEND_OCN_CPLPARMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
28 |
CPL_SEND_OCN_CPLPARMS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
53 |
CPL_SEND_OCN_CPLPARMS |
WRITE(msgUnit,'(2A,I4,A)') |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_cplparms.F |
56 |
CPL_SEND_OCN_CPLPARMS |
WRITE(msgUnit,'(2A,I4,A)') |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_fields.F |
35 |
CPL_SEND_OCN_FIELDS |
INTEGER msgUnit, iter |
|
./pkg/atm_ocn_coupler/cpl_send_ocn_fields.F |
9 |
CPL_SEND_OCN_FIELDS |
SUBROUTINE CPL_SEND_OCN_FIELDS( msgUnit, iter ) |
|
./pkg/atm_ocn_coupler/exch_component_configs.F |
10 |
EXCH_COMPONENT_CONFIGS |
SUBROUTINE EXCH_COMPONENT_CONFIGS( msgUnit ) |
|
./pkg/atm_ocn_coupler/exch_component_configs.F |
31 |
EXCH_COMPONENT_CONFIGS |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/exch_component_configs.F |
60 |
EXCH_COMPONENT_CONFIGS |
I msgUnit, |
|
./pkg/atm_ocn_coupler/initialise.F |
11 |
INITIALISE |
O msgUnit ) |
|
./pkg/atm_ocn_coupler/initialise.F |
35 |
INITIALISE |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/initialise.F |
54 |
INITIALISE |
O MPI_COMM_Coupler, msgUnit ) |
|
./pkg/atm_ocn_coupler/initialise.F |
56 |
INITIALISE |
CALL CPL_READ_PARAMS( msgUnit ) |
|
./pkg/atm_ocn_coupler/initialise.F |
58 |
INITIALISE |
CALL SET_RUNOFFMAP( msgUnit ) |
|
./pkg/atm_ocn_coupler/initialise.F |
61 |
INITIALISE |
CALL CPL_INIT_ATM_VARS( msgUnit ) |
|
./pkg/atm_ocn_coupler/initialise.F |
62 |
INITIALISE |
CALL CPL_INIT_OCN_VARS( msgUnit ) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
10 |
SET_RUNOFFMAP |
SUBROUTINE SET_RUNOFFMAP( msgUnit ) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
112 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') '*** ERROR *** SET_RUNOFFMAP: ', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
118 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') '*** ERROR *** SET_RUNOFFMAP: ', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
131 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(A,3I5,F9.6)') ' check ROmap:', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
134 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(A,3I5,F9.6)') ' check ROmap:', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
137 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A,I9,A)') 'SET_RUNOFFMAP: ', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
29 |
SET_RUNOFFMAP |
INTEGER msgUnit |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
38 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') 'SET_RUNOFFMAP: ','entering' |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
53 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(3A,I6)') |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
58 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A,I9,A)') 'SET_RUNOFFMAP: ', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
63 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') '*** ERROR *** SET_RUNOFFMAP: ', |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
69 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') 'SET_RUNOFFMAP: ','reading runOffMapFile' |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
93 |
SET_RUNOFFMAP |
WRITE(msgUnit,'(2A)') 'SET_RUNOFFMAP: ','reading OCN grid area' |
|
./pkg/compon_communic/mitcomponent_init.F |
19 |
MITCOMPONENT_INIT |
integer msgUnit |
|
./pkg/compon_communic/mitcomponent_init.F |
32 |
MITCOMPONENT_INIT |
msgUnit = LogUnit |
|
./pkg/compon_communic/mitcomponent_init.F |
7 |
MITCOMPONENT_INIT |
O MPI_COMM_local, msgUnit ) |
|
./pkg/compon_communic/mitcoupler_init.F |
19 |
MITCOUPLER_INIT |
integer msgUnit |
|
./pkg/compon_communic/mitcoupler_init.F |
32 |
MITCOUPLER_INIT |
msgUnit = LogUnit |
|
./pkg/compon_communic/mitcoupler_init.F |
7 |
MITCOUPLER_INIT |
O MPI_COMM_local, msgUnit ) |