| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readparms.F |
31 |
FIZHI_READPARMS |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/fizhi/fizhi_readparms.F |
56 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A)') ' FIZHI_READPARMS: opening data.fizhi' |
|
./pkg/fizhi/fizhi_readparms.F |
57 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/fizhi/fizhi_readparms.F |
85 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/fizhi/fizhi_readparms.F |
87 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/fizhi/fizhi_readparms.F |
88 |
FIZHI_READPARMS |
WRITE(msgBuf,'(A,F12.2)') ' CHANGING END TIME TO',endtime |
|
./pkg/fizhi/fizhi_readparms.F |
89 |
FIZHI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/flt/flt_exchg.F |
128 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
132 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
135 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
139 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
217 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+E', |
|
./pkg/flt/flt_exchg.F |
221 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
246 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+W', |
|
./pkg/flt/flt_exchg.F |
250 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
349 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
353 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
356 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') ' FLT_EXCHG:', |
|
./pkg/flt/flt_exchg.F |
360 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
40 |
FLT_EXCHG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_exchg.F |
438 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+N', |
|
./pkg/flt/flt_exchg.F |
442 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_exchg.F |
467 |
FLT_EXCHG |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_EXCHG:+S', |
|
./pkg/flt/flt_exchg.F |
471 |
FLT_EXCHG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/flt/flt_init_fixed.F |
30 |
FLT_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_init_fixed.F |
57 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(A,2F18.8)') |
|
./pkg/flt/flt_init_fixed.F |
59 |
FLT_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_fixed.F |
61 |
FLT_INIT_FIXED |
WRITE(msgBuf,'(A,2F18.8)') |
|
./pkg/flt/flt_init_fixed.F |
63 |
FLT_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
142 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
144 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/flt/flt_init_varia.F |
167 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A,2I4,2(A,I8))') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
171 |
FLT_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/flt/flt_init_varia.F |
183 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2(A,I9))') 'FLT_INIT_VARIA:', |
|
./pkg/flt/flt_init_varia.F |
186 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
188 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/flt/flt_init_varia.F |
189 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
51 |
FLT_INIT_VARIA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_init_varia.F |
73 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(2A)') |
|
./pkg/flt/flt_init_varia.F |
75 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_init_varia.F |
90 |
FLT_INIT_VARIA |
WRITE(msgBuf,'(A,2I4,A,1P2E15.8)') |
|
./pkg/flt/flt_init_varia.F |
92 |
FLT_INIT_VARIA |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_readparms.F |
27 |
FLT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_readparms.F |
45 |
FLT_READPARMS |
WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt' |
|
./pkg/flt/flt_readparms.F |
46 |
FLT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_readparms.F |
55 |
FLT_READPARMS |
WRITE(msgBuf,'(A)') ' FLT_READPARMS: finished reading data.flt' |
|
./pkg/flt/flt_readparms.F |
56 |
FLT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_runga2.F |
41 |
FLT_RUNGA2 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_traj.F |
128 |
FLT_TRAJ |
WRITE(msgBuf,'(2A,I8)') '** WARNING ** FLT_TRAJ: ', |
|
./pkg/flt/flt_traj.F |
130 |
FLT_TRAJ |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/flt/flt_traj.F |
132 |
FLT_TRAJ |
WRITE(msgBuf,'(A,1P5E20.13)') |
|
./pkg/flt/flt_traj.F |
134 |
FLT_TRAJ |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/flt/flt_traj.F |
49 |
FLT_TRAJ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/flt/flt_write_pickup.F |
106 |
FLT_WRITE_PICKUP |
WRITE(msgBuf,*) 'FLT_WRITE_PICKUP:', |
|
./pkg/flt/flt_write_pickup.F |
108 |
FLT_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/flt/flt_write_pickup.F |
41 |
FLT_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gchem/gchem_check.F |
28 |
GCHEM_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gchem/gchem_check.F |
32 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM' |
|
./pkg/gchem/gchem_check.F |
33 |
GCHEM_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gchem/gchem_check.F |
38 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM' |
|
./pkg/gchem/gchem_check.F |
39 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
45 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDIC and useCFC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
46 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
52 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDARWIN and useDIC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
53 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_check.F |
59 |
GCHEM_CHECK |
WRITE(msgBuf,'(A)') 'useDARWIN and useCFC cannot both be .TRUE.' |
|
./pkg/gchem/gchem_check.F |
60 |
GCHEM_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gchem/gchem_readparms.F |
100 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/gchem/gchem_readparms.F |
102 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/gchem/gchem_readparms.F |
111 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gchem/gchem_readparms.F |
114 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gchem/gchem_readparms.F |
115 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gchem/gchem_readparms.F |
118 |
GCHEM_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/gchem/gchem_readparms.F |
39 |
GCHEM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gchem/gchem_readparms.F |
92 |
GCHEM_READPARMS |
WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem' |
|
./pkg/gchem/gchem_readparms.F |
93 |
GCHEM_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/generic_advdiff/gad_check.F |
130 |
GAD_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/generic_advdiff/gad_check.F |
132 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
133 |
GAD_CHECK |
WRITE(msgBuf,'(A)') 'GAD_CHECK: need at least Olx,Oly = 3' |
|
./pkg/generic_advdiff/gad_check.F |
134 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
37 |
GAD_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_check.F |
42 |
GAD_CHECK |
WRITE(msgBuf,'(A)') 'GAD_CHECK: #define ALLOW_GENERIC_ADVDIFF' |
|
./pkg/generic_advdiff/gad_check.F |
43 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/generic_advdiff/gad_check.F |
55 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
57 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/generic_advdiff/gad_check.F |
58 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
60 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_check.F |
70 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
72 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') 'GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
74 |
GAD_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_check.F |
89 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
91 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/generic_advdiff/gad_check.F |
93 |
GAD_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** GAD_CHECK: ', |
|
./pkg/generic_advdiff/gad_check.F |
95 |
GAD_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/generic_advdiff/gad_init_fixed.F |
125 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
126 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
127 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
128 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
129 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)')'// GAD parameters :' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
130 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
131 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
132 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
177 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
178 |
GAD_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
197 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A)') |
|
./pkg/generic_advdiff/gad_init_fixed.F |
199 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
200 |
GAD_INIT_FIXED |
WRITE(msgBuf,'(A,I2)') |
|
./pkg/generic_advdiff/gad_init_fixed.F |
203 |
GAD_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/generic_advdiff/gad_init_fixed.F |
30 |
GAD_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_read_pickup.F |
102 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
104 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
137 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
140 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
143 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
145 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
42 |
GAD_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_read_pickup.F |
96 |
GAD_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'GAD_READ_PICKUP: ', |
|
./pkg/generic_advdiff/gad_read_pickup.F |
99 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
144 |
GAD_SOM_ADVECT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_som_advect.F |
206 |
GAD_SOM_ADVECT |
WRITE(msgBuf,'(2A)') 'S/R GAD_SOM_ADVECT: ', |
|
./pkg/generic_advdiff/gad_som_advect.F |
208 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
212 |
GAD_SOM_ADVECT |
WRITE(msgBuf,'(2A)') 'S/R GAD_SOM_ADVECT: ', |
|
./pkg/generic_advdiff/gad_som_advect.F |
214 |
GAD_SOM_ADVECT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/generic_advdiff/gad_write_pickup.F |
54 |
GAD_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/generic_advdiff/gad_write_pickup.F |
61 |
GAD_WRITE_PICKUP |
WRITE(msgBuf,'(A)') 'GAD_WRITE_PICKUP: MNC not yet coded', |
|
./pkg/generic_advdiff/gad_write_pickup.F |
63 |
GAD_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
27 |
GGL90_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ggl90/ggl90_check.F |
29 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') 'GGL90_CHECK: #define ALLOW_GGL90' |
|
./pkg/ggl90/ggl90_check.F |
30 |
GGL90_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
35 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
37 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
43 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
45 |
GGL90_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ggl90/ggl90_check.F |
52 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
54 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
60 |
GGL90_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/ggl90/ggl90_check.F |
63 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
69 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
71 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
76 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
78 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
83 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
85 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
91 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
93 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_check.F |
97 |
GGL90_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_check.F |
99 |
GGL90_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ggl90/ggl90_readparms.F |
105 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
107 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
115 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
117 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
121 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
123 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
127 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
129 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
133 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90viscMax must be greater than zero' |
|
./pkg/ggl90/ggl90_readparms.F |
134 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
138 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') 'GGL90diffMax must be greater than zero' |
|
./pkg/ggl90/ggl90_readparms.F |
139 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
144 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
146 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
148 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// GGL90 configuration' |
|
./pkg/ggl90/ggl90_readparms.F |
149 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
151 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
153 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
193 |
GGL90_READPARMS |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
|
./pkg/ggl90/ggl90_readparms.F |
194 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
197 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
199 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
201 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') '// End of GGL90 config. summary' |
|
./pkg/ggl90/ggl90_readparms.F |
202 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
204 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
206 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
208 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ggl90/ggl90_readparms.F |
209 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
31 |
GGL90_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ggl90/ggl90_readparms.F |
48 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') ' GGL90_READPARMS: opening data.ggl90' |
|
./pkg/ggl90/ggl90_readparms.F |
49 |
GGL90_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ggl90/ggl90_readparms.F |
87 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
89 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
90 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
92 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
93 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
95 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ggl90/ggl90_readparms.F |
96 |
GGL90_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ggl90/ggl90_readparms.F |
98 |
GGL90_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/gmredi/gmredi_check.F |
104 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.' |
|
./pkg/gmredi/gmredi_check.F |
105 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_check.F |
112 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
114 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
115 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
117 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
125 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
127 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
128 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
130 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
138 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
140 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
141 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/gmredi/gmredi_check.F |
143 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
155 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A,I3,A,L5)') ' GMREDI_CHECK:', |
|
./pkg/gmredi/gmredi_check.F |
157 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
161 |
GMREDI_CHECK |
WRITE(msgBuf,'(2A)') ' GMREDI_CHECK:', |
|
./pkg/gmredi/gmredi_check.F |
163 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/gmredi/gmredi_check.F |
195 |
GMREDI_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/gmredi/gmredi_check.F |
197 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_check.F |
198 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GMREDI_CHECK: need at least Olx,Oly = 3' |
|
./pkg/gmredi/gmredi_check.F |
199 |
GMREDI_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/gmredi/gmredi_check.F |
47 |
GMREDI_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/gmredi/gmredi_check.F |
56 |
GMREDI_CHECK |
WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI' |
|
./pkg/gmredi/gmredi_check.F |
57 |
GMREDI_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
101 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: opening data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
102 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
111 |
GMREDI_READPARMS |
WRITE(msgBuf,'(A)') ' GM_READPARMS: finished reading data.gmredi' |
|
./pkg/gmredi/gmredi_readparms.F |
112 |
GMREDI_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/gmredi/gmredi_readparms.F |
39 |
GMREDI_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_check.F |
37 |
GRDCHK_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_check.F |
41 |
GRDCHK_CHECK |
WRITE(msgBuf,'(A)') 'GRDCHK_CHECK: grdchk package' |
|
./pkg/grdchk/grdchk_check.F |
42 |
GRDCHK_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_check.F |
46 |
GRDCHK_CHECK |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/grdchk/grdchk_check.F |
49 |
GRDCHK_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/grdchk/grdchk_main.F |
133 |
GRDCHK_MAIN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/grdchk/grdchk_main.F |
458 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,2(1PE24.14,X))') |
|
./pkg/grdchk/grdchk_main.F |
461 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/grdchk/grdchk_main.F |
463 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./pkg/grdchk/grdchk_main.F |
466 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/grdchk/grdchk_main.F |
467 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./pkg/grdchk/grdchk_main.F |
470 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/grdchk/grdchk_main.F |
481 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./pkg/grdchk/grdchk_main.F |
484 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/grdchk/grdchk_main.F |
485 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./pkg/grdchk/grdchk_main.F |
488 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/grdchk/grdchk_readparms.F |
109 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'GRDCHK_READPARMS: opening data.grdchk' |
|
./pkg/grdchk/grdchk_readparms.F |
110 |
GRDCHK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_readparms.F |
120 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/grdchk/grdchk_readparms.F |
122 |
GRDCHK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_readparms.F |
128 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') 'i/j GloPos must be <= sNx/y' |
|
./pkg/grdchk/grdchk_readparms.F |
129 |
GRDCHK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/grdchk/grdchk_readparms.F |
134 |
GRDCHK_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
27 |
ICEFRONT_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/icefront/icefront_check.F |
31 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') 'ICEFRONT_CHECK: #define ALLOW_ICEFRONT' |
|
./pkg/icefront/icefront_check.F |
32 |
ICEFRONT_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/icefront/icefront_check.F |
37 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
39 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_check.F |
47 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/icefront/icefront_check.F |
50 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_check.F |
57 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
59 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_check.F |
64 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
66 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_check.F |
69 |
ICEFRONT_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_check.F |
71 |
ICEFRONT_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/icefront/icefront_readparms.F |
101 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/icefront/icefront_readparms.F |
103 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/icefront/icefront_readparms.F |
38 |
ICEFRONT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/icefront/icefront_readparms.F |
93 |
ICEFRONT_READPARMS |
WRITE(msgBuf,'(A)') ' ICEFRONT_READPARMS: opening data.icefront' |
|
./pkg/icefront/icefront_readparms.F |
94 |
ICEFRONT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/kpp/kpp_check.F |
27 |
KPP_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kpp/kpp_check.F |
29 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP_CHECK: #define ALLOW_KPP' |
|
./pkg/kpp/kpp_check.F |
30 |
KPP_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/kpp/kpp_check.F |
36 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/kpp/kpp_check.F |
37 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
43 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitDiffusion to be enabled' |
|
./pkg/kpp/kpp_check.F |
44 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
48 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs implicitViscosity to be enabled' |
|
./pkg/kpp/kpp_check.F |
49 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
55 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP needs CPP flag SHORTWAVE_HEATING enabled' |
|
./pkg/kpp/kpp_check.F |
56 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
76 |
KPP_CHECK |
WRITE(msgBuf,'(A)') 'KPP horizontal smoothing requires OLx=OLy=4' |
|
./pkg/kpp/kpp_check.F |
77 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_check.F |
85 |
KPP_CHECK |
WRITE(msgBuf,'(A,A)') 'KPPuseDoubleDiff=.TRUE. requires ', |
|
./pkg/kpp/kpp_check.F |
87 |
KPP_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/kpp/kpp_readparms.F |
143 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
145 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
146 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
148 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
149 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
151 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
152 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/kpp/kpp_readparms.F |
154 |
KPP_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/kpp/kpp_readparms.F |
161 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_INIT: finished reading data.kpp' |
|
./pkg/kpp/kpp_readparms.F |
162 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/kpp/kpp_readparms.F |
32 |
KPP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/kpp/kpp_readparms.F |
55 |
KPP_READPARMS |
WRITE(msgBuf,'(A)') ' KPP_INIT: opening data.kpp' |
|
./pkg/kpp/kpp_readparms.F |
56 |
KPP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_impl_temp.F |
194 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,2I4,2I3,I10)') |
|
./pkg/land/land_impl_temp.F |
197 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
199 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E12.4)') |
|
./pkg/land/land_impl_temp.F |
203 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
205 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E12.4)') |
|
./pkg/land/land_impl_temp.F |
208 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
210 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E14.6)') |
|
./pkg/land/land_impl_temp.F |
212 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
247 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,2I4,2I3,I10)') |
|
./pkg/land/land_impl_temp.F |
250 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
252 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,4F11.6)') |
|
./pkg/land/land_impl_temp.F |
256 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
258 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,4F12.7)') |
|
./pkg/land/land_impl_temp.F |
261 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
263 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A,1P4E14.6)') |
|
./pkg/land/land_impl_temp.F |
265 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
267 |
LAND_IMPL_TEMP |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_impl_temp.F |
269 |
LAND_IMPL_TEMP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/land/land_impl_temp.F |
91 |
LAND_IMPL_TEMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_initialise.F |
43 |
LAND_INITIALISE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_initialise.F |
48 |
LAND_INITIALISE |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_initialise.F |
50 |
LAND_INITIALISE |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_initialise.F |
51 |
LAND_INITIALISE |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_initialise.F |
53 |
LAND_INITIALISE |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_monitor.F |
111 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
113 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
114 |
LAND_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR Land statistics' |
|
./pkg/land/land_monitor.F |
115 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
116 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
118 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
158 |
LAND_MONITOR |
WRITE(msgBuf,'(A,1PE16.9,A,0P9F7.2)') '%MON LAND : Area=', |
|
./pkg/land/land_monitor.F |
160 |
LAND_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/land/land_monitor.F |
161 |
LAND_MONITOR |
WRITE(msgBuf,'(A,1P9E16.9)') '%MON LAND : LatA=', |
|
./pkg/land/land_monitor.F |
163 |
LAND_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/land/land_monitor.F |
304 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
306 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
307 |
LAND_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR Land statistics' |
|
./pkg/land/land_monitor.F |
308 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
309 |
LAND_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/land/land_monitor.F |
311 |
LAND_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/land/land_monitor.F |
66 |
LAND_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_output.F |
270 |
LAND_OUTPUT |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/land/land_output.F |
272 |
LAND_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_output.F |
274 |
LAND_OUTPUT |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/land/land_output.F |
275 |
LAND_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_output.F |
53 |
LAND_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/land/land_readparms.F |
165 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') ' LAND_READPARMS: opening data.land' |
|
./pkg/land/land_readparms.F |
166 |
LAND_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_readparms.F |
180 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_readparms.F |
182 |
LAND_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/land/land_readparms.F |
208 |
LAND_READPARMS |
WRITE(msgBuf,'(2A,I3)') 'LAND_READPARMS: ', |
|
./pkg/land/land_readparms.F |
210 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
211 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/land/land_readparms.F |
213 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
220 |
LAND_READPARMS |
WRITE(msgBuf,'(2A)') 'LAND_READPARMS:', |
|
./pkg/land/land_readparms.F |
222 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
223 |
LAND_READPARMS |
WRITE(msgBuf,'(2A)') 'Re-compile setting: ', |
|
./pkg/land/land_readparms.F |
225 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
233 |
LAND_READPARMS |
WRITE(msgBuf,'(2A)') 'LAND_READPARMS:', |
|
./pkg/land/land_readparms.F |
235 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
236 |
LAND_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/land/land_readparms.F |
238 |
LAND_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/land/land_readparms.F |
274 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/land/land_readparms.F |
275 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
276 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/land/land_readparms.F |
277 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
278 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') '// Land package parameters :' |
|
./pkg/land/land_readparms.F |
279 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
280 |
LAND_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/land/land_readparms.F |
281 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
302 |
LAND_READPARMS |
WRITE(msgBuf,'(A,A)') 'land_grT_iniFile = ', |
|
./pkg/land/land_readparms.F |
304 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
305 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grT_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
306 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
307 |
LAND_READPARMS |
msgBuf=' ;' |
|
./pkg/land/land_readparms.F |
308 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
312 |
LAND_READPARMS |
WRITE(msgBuf,'(A,A)') 'land_grW_iniFile = ', |
|
./pkg/land/land_readparms.F |
314 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
315 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
316 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
317 |
LAND_READPARMS |
msgBuf=' ;' |
|
./pkg/land/land_readparms.F |
318 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
322 |
LAND_READPARMS |
WRITE(msgBuf,'(A,A)') 'land_snow_iniFile= ', |
|
./pkg/land/land_readparms.F |
324 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
325 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
326 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
327 |
LAND_READPARMS |
msgBuf=' ;' |
|
./pkg/land/land_readparms.F |
328 |
LAND_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/land/land_readparms.F |
49 |
LAND_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_calc.F |
136 |
LAYERS_CALC |
WRITE(msgBuf,'(A,1E14.6)') |
|
./pkg/layers/layers_calc.F |
139 |
LAYERS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_calc.F |
186 |
LAYERS_CALC |
WRITE(msgBuf,'(A,1E14.6)') |
|
./pkg/layers/layers_calc.F |
189 |
LAYERS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_calc.F |
55 |
LAYERS_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_check.F |
25 |
LAYERS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_check.F |
31 |
LAYERS_CHECK |
WRITE(msgBuf,'(A)') 'LAYERS_CHECK: #define LAYERS' |
|
./pkg/layers/layers_check.F |
32 |
LAYERS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_check.F |
53 |
LAYERS_CHECK |
WRITE(msgBuf,'(2A)') 'eosType must be eosType=''LINEAR''', |
|
./pkg/layers/layers_check.F |
55 |
LAYERS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/layers/layers_init_fixed.F |
110 |
LAYERS_INIT_FIXED |
WRITE(msgBuf,'(A,I4,A,I4,A,1E14.6,A,2E14.6)') |
|
./pkg/layers/layers_init_fixed.F |
113 |
LAYERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_init_fixed.F |
129 |
LAYERS_INIT_FIXED |
WRITE(msgBuf,'(A,1F6.1,A,I3,A,I3,A,I3,A,1F6.4,A,I3,A,I3)') |
|
./pkg/layers/layers_init_fixed.F |
134 |
LAYERS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_init_fixed.F |
40 |
LAYERS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_readparms.F |
31 |
LAYERS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/layers/layers_readparms.F |
48 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers' |
|
./pkg/layers/layers_readparms.F |
49 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_readparms.F |
58 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/layers/layers_readparms.F |
60 |
LAYERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/layers/layers_readparms.F |
68 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/layers/layers_readparms.F |
70 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/layers/layers_readparms.F |
76 |
LAYERS_READPARMS |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/layers/layers_readparms.F |
78 |
LAYERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_check_iters.F |
34 |
LONGSTEP_CHECK_ITERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_check_iters.F |
39 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,2I10)') |
|
./pkg/longstep/longstep_check_iters.F |
42 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_check_iters.F |
49 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(3A)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
52 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
54 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,2I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
56 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
62 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
64 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
66 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
68 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
70 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,I10)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
72 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
74 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A,1PE23.15)') '**WARNING** ', |
|
./pkg/longstep/longstep_check_iters.F |
76 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/longstep/longstep_check_iters.F |
79 |
LONGSTEP_CHECK_ITERS |
WRITE(msgBuf,'(2A)') 'S/R LONGSTEP_CHECK_ITERS: ', |
|
./pkg/longstep/longstep_check_iters.F |
81 |
LONGSTEP_CHECK_ITERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_init_fixed.F |
29 |
LONGSTEP_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_init_fixed.F |
38 |
LONGSTEP_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/longstep/longstep_init_fixed.F |
41 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_init_fixed.F |
42 |
LONGSTEP_INIT_FIXED |
WRITE(msgBuf,'(2A)') |
|
./pkg/longstep/longstep_init_fixed.F |
45 |
LONGSTEP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/longstep/longstep_readparms.F |
33 |
LONGSTEP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/longstep/longstep_readparms.F |
55 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') ' LONGSTEP_READPARMS: opening data.longstep' |
|
./pkg/longstep/longstep_readparms.F |
56 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_readparms.F |
63 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/longstep/longstep_readparms.F |
65 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/longstep/longstep_readparms.F |
76 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/longstep/longstep_readparms.F |
77 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/longstep/longstep_readparms.F |
78 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// longstep parameters ' |
|
./pkg/longstep/longstep_readparms.F |
79 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/longstep/longstep_readparms.F |
80 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/longstep/longstep_readparms.F |
81 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/longstep/longstep_readparms.F |
88 |
LONGSTEP_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/longstep/longstep_readparms.F |
89 |
LONGSTEP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/matrix/matrix_readparms.F |
30 |
MATRIX_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/matrix/matrix_readparms.F |
41 |
MATRIX_READPARMS |
WRITE(msgBuf,'(A)') ' MATRIX_READPARMS: opening data.matrix' |
|
./pkg/matrix/matrix_readparms.F |
42 |
MATRIX_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/matrix/matrix_readparms.F |
49 |
MATRIX_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/matrix/matrix_readparms.F |
51 |
MATRIX_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_facef_read.F |
108 |
MDS_FACEF_READ_RS |
WRITE(msgBuf,'(A,I8,A)') ' MDS_FACEF_READ_RS:', |
|
./pkg/mdsio/mdsio_facef_read.F |
110 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
142 |
MDS_FACEF_READ_RS |
WRITE(msgBuf,'(A,I8,A)') ' MDS_FACEF_READ_RS:', |
|
./pkg/mdsio/mdsio_facef_read.F |
144 |
MDS_FACEF_READ_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
58 |
MDS_FACEF_READ_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
46 |
MDS_RD_REC_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
51 |
MDS_RD_REC_RL |
WRITE(msgBuf,'(A,I9.8,2x,I9.8)') |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
53 |
MDS_RD_REC_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
78 |
MDS_RD_REC_RL |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
80 |
MDS_RD_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
46 |
MDS_RD_REC_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
51 |
MDS_RD_REC_RS |
WRITE(msgBuf,'(A,I9.8,2x,I9.8)') |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
53 |
MDS_RD_REC_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
74 |
MDS_RD_REC_RS |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
76 |
MDS_RD_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
137 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
139 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
141 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_field.F |
143 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
145 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
147 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
153 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
155 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
157 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_read_field.F |
160 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
162 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
164 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
170 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_read_field.F |
172 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
174 |
MDS_READ_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_read_field.F |
177 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
179 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
181 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
182 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
184 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
209 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
212 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
225 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
228 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
252 |
MDS_READ_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_read_field.F |
254 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
256 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
257 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
259 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
261 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
305 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
307 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
326 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
328 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
333 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
335 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
449 |
MDS_READ_FIELD |
WRITE(msgBuf,'(4A)') ' MDS_READ_FIELD: filename: ', |
|
./pkg/mdsio/mdsio_read_field.F |
451 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
453 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
454 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
456 |
MDS_READ_FIELD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_field.F |
458 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
513 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
515 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
527 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
529 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
534 |
MDS_READ_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_field.F |
536 |
MDS_READ_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
95 |
MDS_READ_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_read_meta.F |
170 |
MDS_READ_META |
WRITE(msgBuf,'(4A)') 'WARNING >> MDS_READ_META: file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
173 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
175 |
MDS_READ_META |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
177 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
184 |
MDS_READ_META |
WRITE(msgBuf,'(2A)') ' MDS_READ_META: opening file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
186 |
MDS_READ_META |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_meta.F |
198 |
MDS_READ_META |
WRITE(msgBuf,'(A,A)') 'MDS_READ_META: Unable to open file: ', |
|
./pkg/mdsio/mdsio_read_meta.F |
200 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
225 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I3),A)') ' MDS_READ_META: nDims=', |
|
./pkg/mdsio/mdsio_read_meta.F |
227 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
279 |
MDS_READ_META |
WRITE(msgBuf,'(A)') ' MDS_READ_META: invalid dataprec' |
|
./pkg/mdsio/mdsio_read_meta.F |
280 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
294 |
MDS_READ_META |
WRITE(msgBuf,'(A)') ' MDS_READ_META: invalid dataprec' |
|
./pkg/mdsio/mdsio_read_meta.F |
295 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
325 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I6),A)') ' MDS_READ_META: nTimRec=', |
|
./pkg/mdsio/mdsio_read_meta.F |
327 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
350 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I6),A)') ' MDS_READ_META: nFlds=', |
|
./pkg/mdsio/mdsio_read_meta.F |
352 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
372 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
375 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
378 |
MDS_READ_META |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
381 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
385 |
MDS_READ_META |
WRITE(msgBuf,'(3(A,I3),A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
388 |
MDS_READ_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_meta.F |
93 |
MDS_READ_META |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_read_section.F |
125 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
127 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
139 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
141 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
170 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
172 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
181 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(4A)') ' MDS_READ_SEC_XZ: filename: ', |
|
./pkg/mdsio/mdsio_read_section.F |
183 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
185 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
187 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
216 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
218 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
233 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
235 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
239 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
241 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
341 |
MDS_READ_SEC_YZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_read_section.F |
349 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_section.F |
351 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
353 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
355 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
381 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
383 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
395 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
397 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
426 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
428 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
437 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(4A)') ' MDS_READ_SEC_YZ: filename: ', |
|
./pkg/mdsio/mdsio_read_section.F |
439 |
MDS_READ_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
441 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
443 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
472 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
474 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
489 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
491 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
495 |
MDS_READ_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
497 |
MDS_READ_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
85 |
MDS_READ_SEC_XZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_read_section.F |
93 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_read_section.F |
95 |
MDS_READ_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_read_section.F |
97 |
MDS_READ_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_read_section.F |
99 |
MDS_READ_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
118 |
MDSREADVECTOR |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_readvector.F |
120 |
MDSREADVECTOR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvector.F |
132 |
MDSREADVECTOR |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_readvector.F |
134 |
MDSREADVECTOR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvector.F |
163 |
MDSREADVECTOR |
WRITE(msgBuf,'(A,A)') |
|
./pkg/mdsio/mdsio_readvector.F |
165 |
MDSREADVECTOR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvector.F |
174 |
MDSREADVECTOR |
WRITE(msgBuf,'(4A)') |
|
./pkg/mdsio/mdsio_readvector.F |
177 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
178 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
180 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
202 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
204 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
260 |
MDSREADVECTOR |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_readvector.F |
263 |
MDSREADVECTOR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvector.F |
265 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
266 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
268 |
MDSREADVECTOR |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_readvector.F |
270 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
311 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
313 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
324 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
326 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
63 |
MDSREADVECTOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_readvector.F |
84 |
MDSREADVECTOR |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_readvector.F |
86 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
87 |
MDSREADVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_readvector.F |
89 |
MDSREADVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
46 |
MDS_WR_REC_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
51 |
MDS_WR_REC_RL |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
53 |
MDS_WR_REC_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
78 |
MDS_WR_REC_RL |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
80 |
MDS_WR_REC_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
46 |
MDS_WR_REC_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
51 |
MDS_WR_REC_RS |
WRITE(msgBuf,'(A,I9,2x,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
53 |
MDS_WR_REC_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
74 |
MDS_WR_REC_RS |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
76 |
MDS_WR_REC_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
109 |
MDS_WRITE_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_write_field.F |
164 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
166 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
168 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_write_field.F |
170 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
172 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
174 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
180 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
182 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
184 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_write_field.F |
187 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
189 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
191 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
197 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_write_field.F |
199 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
201 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_write_field.F |
204 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
206 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
208 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
209 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_field.F |
211 |
MDS_WRITE_FIELD |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_write_field.F |
263 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
265 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
285 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
287 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
299 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/mdsio/mdsio_write_field.F |
301 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
345 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
347 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
359 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_write_field.F |
361 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
366 |
MDS_WRITE_FIELD |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/mdsio/mdsio_write_field.F |
368 |
MDS_WRITE_FIELD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
149 |
MDS_WRITE_META |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_meta.F |
151 |
MDS_WRITE_META |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_meta.F |
176 |
MDS_WRITE_META |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii) |
|
./pkg/mdsio/mdsio_write_meta.F |
178 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,3A)') 'timeInterval = [', msgBuf(1:20*ii),' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
78 |
MDS_WRITE_META |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_write_section.F |
101 |
MDS_WRITE_SEC_XZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_section.F |
103 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
105 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
182 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
184 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
199 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
201 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
209 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
211 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
217 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
219 |
MDS_WRITE_SEC_XZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
323 |
MDS_WRITE_SEC_YZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_write_section.F |
331 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_write_section.F |
333 |
MDS_WRITE_SEC_YZ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_write_section.F |
335 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
337 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
414 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
416 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
431 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
433 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
441 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
443 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
449 |
MDS_WRITE_SEC_YZ |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_write_section.F |
451 |
MDS_WRITE_SEC_YZ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
CHARACTER*(max_len_mbuf) msgBuf |
|
./pkg/mdsio/mdsio_write_section.F |
99 |
MDS_WRITE_SEC_XZ |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_writelocal.F |
108 |
MDS_WRITELOCAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_writelocal.F |
165 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A,I10,A,2I5,A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
168 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
170 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
172 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
179 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_writelocal.F |
181 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
183 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_writelocal.F |
185 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
187 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
189 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
194 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3A,I10)') |
|
./pkg/mdsio/mdsio_writelocal.F |
196 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
198 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(3(A,I6))') |
|
./pkg/mdsio/mdsio_writelocal.F |
201 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
203 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
205 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
206 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
208 |
MDS_WRITELOCAL |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mdsio/mdsio_writelocal.F |
224 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
226 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
237 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
239 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
243 |
MDS_WRITELOCAL |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
245 |
MDS_WRITELOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
107 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
109 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
110 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
112 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
118 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(3A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
120 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
121 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
123 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
124 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A,I9)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
126 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
174 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(2A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
176 |
MDS_WRITEVEC_LOC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
190 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
192 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
196 |
MDS_WRITEVEC_LOC |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
198 |
MDS_WRITEVEC_LOC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
77 |
MDS_WRITEVEC_LOC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mdsio/mdsio_writevector.F |
105 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A,I9.8)') |
|
./pkg/mdsio/mdsio_writevector.F |
107 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
108 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevector.F |
110 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
159 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevector.F |
161 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
201 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevector.F |
203 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
294 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevector.F |
296 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
300 |
MDSWRITEVECTOR |
WRITE(msgBuf,'(A)') |
|
./pkg/mdsio/mdsio_writevector.F |
302 |
MDSWRITEVECTOR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
73 |
MDSWRITEVECTOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/calc_3d_diffusivity.F |
157 |
CALC_3D_DIFFUSIVITY |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/calc_3d_diffusivity.F |
159 |
CALC_3D_DIFFUSIVITY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./model/src/calc_3d_diffusivity.F |
72 |
CALC_3D_DIFFUSIVITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_readparms.F |
115 |
MNC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
123 |
MNC_READPARMS |
WRITE(msgBuf,'(a)') ' MNC_READPARMS: finished reading data.mnc' |
|
./pkg/mnc/mnc_readparms.F |
124 |
MNC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
39 |
MNC_READPARMS |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_readparms.F |
59 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ', |
|
./pkg/mnc/mnc_readparms.F |
61 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mnc/mnc_readparms.F |
63 |
MNC_READPARMS |
WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ', |
|
./pkg/mnc/mnc_readparms.F |
65 |
MNC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/mnc/mnc_var.F |
147 |
MNC_VAR_INIT_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
160 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_var.F |
162 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
170 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A,I7,A)') 'MNC ERROR: MNC_MAX_INFO exceeded', |
|
./pkg/mnc/mnc_var.F |
173 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
180 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
182 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
202 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
204 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
215 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: variable ''', |
|
./pkg/mnc/mnc_var.F |
218 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
234 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') 'ERROR: MNC will not ', |
|
./pkg/mnc/mnc_var.F |
236 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
237 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') ' files. Please', |
|
./pkg/mnc/mnc_var.F |
239 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
240 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(2A)') ' overwrite output', |
|
./pkg/mnc/mnc_var.F |
242 |
MNC_VAR_INIT_ANY |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mnc/mnc_var.F |
243 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'defining variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
245 |
MNC_VAR_INIT_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
441 |
MNC_VAR_ADD_ATTR_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
452 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
455 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
472 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(A,I10,A)') 'MNC ERROR: atype = ''', atype, |
|
./pkg/mnc/mnc_var.F |
474 |
MNC_VAR_ADD_ATTR_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
475 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/mnc/mnc_var.F |
478 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(5A)') 'adding attribute ''', atname(1:lenat), |
|
./pkg/mnc/mnc_var.F |
480 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
681 |
MNC_VAR_WRITE_ANY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mnc/mnc_var.F |
691 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
694 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
716 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(A)') 'reading current length of unlimited dim' |
|
./pkg/mnc/mnc_var.F |
717 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
734 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(A,I10,A)') 'MNC ERROR: vtype = ''', vtype, |
|
./pkg/mnc/mnc_var.F |
736 |
MNC_VAR_WRITE_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
737 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/mnc/mnc_var.F |
740 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(5A)') 'writing variable ''', vname(1:lenv), |
|
./pkg/mnc/mnc_var.F |
742 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./model/src/calc_grad_phi_hyd.F |
115 |
CALC_GRAD_PHI_HYD |
WRITE(msgBuf,'(3A)') 'CALC_GRAD_PHI_HYD: ', |
|
./model/src/calc_grad_phi_hyd.F |
118 |
CALC_GRAD_PHI_HYD |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/calc_grad_phi_hyd.F |
64 |
CALC_GRAD_PHI_HYD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
179 |
MOM_VI_U_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
182 |
MOM_VI_U_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
45 |
MOM_VI_U_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
191 |
MOM_VI_U_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
194 |
MOM_VI_U_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
48 |
MOM_VI_U_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
179 |
MOM_VI_V_CORIOLIS |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
182 |
MOM_VI_V_CORIOLIS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
45 |
MOM_VI_V_CORIOLIS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
191 |
MOM_VI_V_CORIOLIS_C4 |
WRITE(msgBuf,'(A,I5,A)') |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
194 |
MOM_VI_V_CORIOLIS_C4 |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
48 |
MOM_VI_V_CORIOLIS_C4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_out.F |
122 |
MON_OUT_ALL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_out.F |
135 |
MON_OUT_ALL |
msgBuf = ' ' |
|
./pkg/monitor/mon_out.F |
146 |
MON_OUT_ALL |
msgBuf(1:IL) = mon_head |
|
./pkg/monitor/mon_out.F |
148 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf) = ' ' |
|
./pkg/monitor/mon_out.F |
154 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL) |
|
./pkg/monitor/mon_out.F |
169 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
183 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
194 |
MON_OUT_ALL |
msgBuf(35:35) = '=' |
|
./pkg/monitor/mon_out.F |
198 |
MON_OUT_ALL |
& WRITE(msgBuf(36:57),'(1X,I21)') ival |
|
./pkg/monitor/mon_out.F |
200 |
MON_OUT_ALL |
& WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval |
|
./pkg/monitor/mon_out.F |
210 |
MON_OUT_ALL |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/monitor/mon_solution.F |
35 |
MON_SOLUTION |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_solution.F |
52 |
MON_SOLUTION |
WRITE(msgBuf,'(A,1P2E11.3)') |
|
./pkg/monitor/mon_solution.F |
54 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_solution.F |
55 |
MON_SOLUTION |
WRITE(msgBuf,'(2A,1PE11.3,A)') ' exceeds allowed range ', |
|
./pkg/monitor/mon_solution.F |
57 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_solution.F |
58 |
MON_SOLUTION |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/monitor/mon_solution.F |
60 |
MON_SOLUTION |
CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
50 |
MON_STATS_LATBND_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
64 |
MON_STATS_LATBND_RL |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
67 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
68 |
MON_STATS_LATBND_RL |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
70 |
MON_STATS_LATBND_RL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/monitor/monitor.F |
173 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
175 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
176 |
MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor.F |
178 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
179 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
181 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
44 |
MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor.F |
81 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
83 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
84 |
MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor.F |
86 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor.F |
87 |
MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor.F |
89 |
MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
165 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
167 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
168 |
ADMONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_ad.F |
170 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
171 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
173 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
55 |
ADMONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor_ad.F |
90 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
92 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
93 |
ADMONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_ad.F |
95 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_ad.F |
96 |
ADMONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_ad.F |
98 |
ADMONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
166 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
168 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
169 |
G_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_g.F |
171 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
172 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
174 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
55 |
G_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/monitor/monitor_g.F |
90 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
92 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
93 |
G_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/monitor/monitor_g.F |
95 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/monitor/monitor_g.F |
96 |
G_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/monitor/monitor_g.F |
98 |
G_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/my82/my82_check.F |
26 |
MY82_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/my82/my82_check.F |
28 |
MY82_CHECK |
WRITE(msgBuf,'(A)') 'MY82_CHECK: #define ALLOW_MY82' |
|
./pkg/my82/my82_check.F |
29 |
MY82_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_check.F |
34 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
36 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
43 |
MY82_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/my82/my82_check.F |
44 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
49 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
51 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
56 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
58 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
64 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
66 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_check.F |
70 |
MY82_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_check.F |
72 |
MY82_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_readparms.F |
35 |
MY82_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/my82/my82_readparms.F |
63 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') ' MY82_READPARMS: opening data.my82' |
|
./pkg/my82/my82_readparms.F |
64 |
MY82_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_readparms.F |
71 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/my82/my82_readparms.F |
73 |
MY82_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/my82/my82_readparms.F |
85 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYviscMax must be greater than zero' |
|
./pkg/my82/my82_readparms.F |
86 |
MY82_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/my82/my82_readparms.F |
90 |
MY82_READPARMS |
WRITE(msgBuf,'(A)') 'MYdiffMax must be greater than zero' |
|
./pkg/my82/my82_readparms.F |
91 |
MY82_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/mypackage/mypackage_check.F |
31 |
MYPACKAGE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_check.F |
35 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'MYPACKAGE_CHECK: #define MYPACKAGE' |
|
./pkg/mypackage/mypackage_check.F |
36 |
MYPACKAGE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_check.F |
70 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'An example requirement is:' |
|
./pkg/mypackage/mypackage_check.F |
71 |
MYPACKAGE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/mypackage/mypackage_check.F |
72 |
MYPACKAGE_CHECK |
WRITE(msgBuf,'(A)') 'myPa_applyTendT needs tempStepping=.true.' |
|
./pkg/mypackage/mypackage_check.F |
73 |
MYPACKAGE_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/mypackage/mypackage_read_pickup.F |
101 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
110 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
112 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
156 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
158 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
164 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
166 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
51 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_read_pickup.F |
70 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
72 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
73 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
75 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
84 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
87 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
88 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
91 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
94 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> MYPACKAGE_READ_PICKUP: ', |
|
./pkg/mypackage/mypackage_read_pickup.F |
96 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
99 |
MYPACKAGE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/mypackage/mypackage_readparms.F |
32 |
MYPACKAGE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/mypackage/mypackage_readparms.F |
75 |
MYPACKAGE_READPARMS |
WRITE(msgBuf,'(A)') 'MYPACKAGE_READPARMS: opening data.mypackage' |
|
./pkg/mypackage/mypackage_readparms.F |
76 |
MYPACKAGE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_readparms.F |
85 |
MYPACKAGE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/mypackage/mypackage_readparms.F |
87 |
MYPACKAGE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/mypackage/mypackage_write_pickup.F |
117 |
MYPACKAGE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'MYPACKAGE_WRITE_PICKUP: ', |
|
./pkg/mypackage/mypackage_write_pickup.F |
119 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
120 |
MYPACKAGE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'MYPACKAGE_WRITE_PICKUP: ', |
|
./pkg/mypackage/mypackage_write_pickup.F |
122 |
MYPACKAGE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/mypackage/mypackage_write_pickup.F |
61 |
MYPACKAGE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_calc.F |
228 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
230 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
231 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
233 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
260 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
262 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
263 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
265 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
292 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
294 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
295 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
297 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
324 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
326 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
327 |
OBCS_CALC |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_calc.F |
329 |
OBCS_CALC |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_calc.F |
54 |
OBCS_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check.F |
100 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
102 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
103 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
105 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
112 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
114 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
115 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
117 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
126 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_check.F |
128 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
135 |
OBCS_CHECK |
WRITE(msgBuf,'(2A)') |
|
./pkg/obcs/obcs_check.F |
137 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
142 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
144 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
145 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
147 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
164 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: OK' |
|
./pkg/obcs/obcs_check.F |
165 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_check.F |
28 |
OBCS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check.F |
31 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_OBCS' |
|
./pkg/obcs/obcs_check.F |
32 |
OBCS_CHECK |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_check.F |
37 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
39 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
40 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
42 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
43 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
45 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
51 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') 'OBCS_CHECK: #define ALLOW_ORLANSKI' |
|
./pkg/obcs/obcs_check.F |
52 |
OBCS_CHECK |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_check.F |
57 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
59 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
60 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
62 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
70 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
72 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
73 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
75 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
79 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
81 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
82 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
84 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
88 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
90 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check.F |
91 |
OBCS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/obcs/obcs_check.F |
93 |
OBCS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/obcs/obcs_check_depths.F |
109 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I7,A,A)') |
|
./pkg/obcs/obcs_check_depths.F |
113 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
30 |
OBCS_CHECK_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_check_depths.F |
49 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,(1X,4I6))') |
|
./pkg/obcs/obcs_check_depths.F |
52 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
64 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,(1X,4I6))') |
|
./pkg/obcs/obcs_check_depths.F |
67 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
79 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,(1X,4I6))') |
|
./pkg/obcs/obcs_check_depths.F |
82 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_check_depths.F |
95 |
OBCS_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,(1X,4I6))') |
|
./pkg/obcs/obcs_check_depths.F |
98 |
OBCS_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_external_fields_load.F |
121 |
OBCS_EXTERNAL_FIELDS_LOAD |
WRITE(msgBuf,'(1X,A,2I5,I10,1P1E20.12)') |
|
./pkg/obcs/obcs_external_fields_load.F |
124 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_external_fields_load.F |
319 |
OBCS_EXTERNAL_FIELDS_LOAD |
WRITE(msgBuf,'(1X,A,I10,1P1E20.12)') |
|
./pkg/obcs/obcs_external_fields_load.F |
322 |
OBCS_EXTERNAL_FIELDS_LOAD |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/obcs/obcs_external_fields_load.F |
79 |
OBCS_EXTERNAL_FIELDS_LOAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_readparms.F |
219 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: finished reading data.obcs' |
|
./pkg/obcs/obcs_readparms.F |
220 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/obcs/obcs_readparms.F |
35 |
OBCS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/obcs/obcs_readparms.F |
82 |
OBCS_READPARMS |
WRITE(msgBuf,'(A)') ' OBCS_READPARMS: opening data.obcs' |
|
./pkg/obcs/obcs_readparms.F |
83 |
OBCS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
54 |
CPL_EXCH_CONFIGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
91 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,I4,A,I4,A,I4,A,I4,A)') |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
94 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
95 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
97 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ocn_compon_interf/cpl_exch_configs.F |
98 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./model/src/cg2d.F |
105 |
CG2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d.F |
386 |
CG2D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg2d.F |
388 |
CG2D |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
119 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
121 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
132 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
134 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
135 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
137 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
145 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
147 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
149 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
151 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
154 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS:', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
156 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
164 |
CPL_READPARMS |
WRITE(msgBuf,'(A,L5,A,L5)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
167 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
168 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
170 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
176 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImport', |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
178 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
200 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
201 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
202 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
203 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
204 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling package parameters :' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
205 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
206 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
207 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
54 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
83 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
|
./pkg/ocn_compon_interf/cpl_readparms.F |
84 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/cg2d_sr.F |
109 |
CG2D_SR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg2d_sr.F |
362 |
CG2D_SR |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg2d_sr.F |
364 |
CG2D_SR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/offline/offline_readparms.F |
105 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/offline/offline_readparms.F |
107 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_readparms.F |
30 |
OFFLINE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/offline/offline_readparms.F |
52 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A)') ' OFFLINE_READPARMS: opening data.off' |
|
./pkg/offline/offline_readparms.F |
53 |
OFFLINE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/offline/offline_readparms.F |
85 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: "KPP_ghatFile"', |
|
./pkg/offline/offline_readparms.F |
87 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/offline/offline_readparms.F |
88 |
OFFLINE_READPARMS |
WRITE(msgBuf,'(A,A)') 'S/R OFFLINE_READPARMS: read instead ', |
|
./pkg/offline/offline_readparms.F |
90 |
OFFLINE_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/opps/opps_calc.F |
163 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
165 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
203 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
205 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
239 |
OPPS_CALC |
WRITE(msgBuf,'(A,3E12.4,I3)') |
|
./pkg/opps/opps_calc.F |
241 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
256 |
OPPS_CALC |
WRITE(msgBuf,'(A,I3)') |
|
./pkg/opps/opps_calc.F |
258 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
260 |
OPPS_CALC |
WRITE(msgBuf,'(A,4A14)') |
|
./pkg/opps/opps_calc.F |
263 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
265 |
OPPS_CALC |
WRITE(msgBuf,'(A,4E14.6)') |
|
./pkg/opps/opps_calc.F |
268 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
311 |
OPPS_CALC |
WRITE(msgBuf,'(A,2E12.4,I3)') |
|
./pkg/opps/opps_calc.F |
313 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
360 |
OPPS_CALC |
WRITE(msgBuf,'(A,F14.4)') |
|
./pkg/opps/opps_calc.F |
362 |
OPPS_CALC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_calc.F |
89 |
OPPS_CALC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_check.F |
26 |
OPPS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_check.F |
28 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') 'OPPS_CHECK: #define ALLOW_OPPS' |
|
./pkg/opps/opps_check.F |
29 |
OPPS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_check.F |
34 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
36 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
43 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/opps/opps_check.F |
44 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
49 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
51 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
56 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
58 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
63 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
65 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/opps/opps_check.F |
70 |
OPPS_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_check.F |
72 |
OPPS_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./model/src/cg3d.F |
109 |
CG3D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/cg3d.F |
520 |
CG3D |
WRITE(msgBuf,'(A,I6,A,1PE21.14)') |
|
./model/src/cg3d.F |
522 |
CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_interface.F |
161 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,A)') 'OPPS_INTERFACE: theta or S-range is', |
|
./pkg/opps/opps_interface.F |
163 |
OPPS_INTERFACE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_interface.F |
165 |
OPPS_INTERFACE |
WRITE(msgBuf,'(A,2I5)') ' for (i,j) = ', I,J |
|
./pkg/opps/opps_interface.F |
166 |
OPPS_INTERFACE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_interface.F |
75 |
OPPS_INTERFACE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_readparms.F |
35 |
OPPS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/opps/opps_readparms.F |
72 |
OPPS_READPARMS |
WRITE(msgBuf,'(A)') ' OPPS_READPARMS: opening data.opps' |
|
./pkg/opps/opps_readparms.F |
73 |
OPPS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/opps/opps_readparms.F |
80 |
OPPS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/opps/opps_readparms.F |
82 |
OPPS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_check.F |
26 |
PP81_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/pp81/pp81_check.F |
28 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'PP81_CHECK: #define ALLOW_PP81' |
|
./pkg/pp81/pp81_check.F |
29 |
PP81_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_check.F |
34 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
36 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
43 |
PP81_CHECK |
WRITE(msgBuf,'(A)') 'Some form of convection has been enabled' |
|
./pkg/pp81/pp81_check.F |
44 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
49 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
51 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
57 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
59 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_check.F |
63 |
PP81_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_check.F |
65 |
PP81_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./model/src/check_pickup.F |
100 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
111 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
113 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
121 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
123 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
127 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
129 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
134 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
136 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
141 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
143 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
153 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
155 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
163 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
165 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
195 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
197 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
204 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
207 |
CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/check_pickup.F |
210 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
212 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
217 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
|
./model/src/check_pickup.F |
220 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
221 |
CHECK_PICKUP |
WRITE(msgBuf,'(2(A,I10))') |
|
./model/src/check_pickup.F |
224 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
53 |
CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/check_pickup.F |
71 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
73 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
89 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') ' CHECK_PICKUP: ', |
|
./model/src/check_pickup.F |
91 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
98 |
CHECK_PICKUP |
WRITE(msgBuf,'(4A)') ' CHECK_PICKUP: ', |
|
./pkg/pp81/pp81_readparms.F |
101 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPnRi must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
102 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
35 |
PP81_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/pp81/pp81_readparms.F |
69 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') ' PP81_READPARMS: opening data.pp81' |
|
./pkg/pp81/pp81_readparms.F |
70 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
77 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/pp81/pp81_readparms.F |
79 |
PP81_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/pp81/pp81_readparms.F |
91 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero' |
|
./pkg/pp81/pp81_readparms.F |
92 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/pp81/pp81_readparms.F |
96 |
PP81_READPARMS |
WRITE(msgBuf,'(A)') 'PPalpha must not be zero' |
|
./pkg/pp81/pp81_readparms.F |
97 |
PP81_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./model/src/config_check.F |
103 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
105 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
106 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
108 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
114 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
116 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
117 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
119 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
126 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
128 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
129 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
131 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
138 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
140 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
141 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
143 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
150 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
152 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
153 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
155 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
162 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
164 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
165 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
167 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
173 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
175 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
176 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
178 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
184 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
186 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
187 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=', |
|
./model/src/config_check.F |
189 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
198 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
200 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
201 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
203 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
204 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
206 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
210 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
212 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
213 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
215 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
216 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
218 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
225 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
228 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
229 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
231 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
238 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
241 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
242 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
244 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
257 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
260 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
266 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
269 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
276 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
279 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
285 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
288 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
294 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
297 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
303 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/config_check.F |
306 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
311 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
313 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
314 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
316 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
321 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
323 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
324 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
326 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
331 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
333 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
334 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
336 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
341 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
343 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
344 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
346 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
351 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
353 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
354 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
356 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
367 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
369 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
371 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
|
./model/src/config_check.F |
373 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
380 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
382 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
383 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
385 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
38 |
CONFIG_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/config_check.F |
391 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
393 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
395 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** works better', |
|
./model/src/config_check.F |
397 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
404 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
406 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
407 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
409 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
415 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
417 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
419 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
421 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
427 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: selectAddFluid=', |
|
./model/src/config_check.F |
429 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
430 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
432 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
436 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
438 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
439 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
441 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
445 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
447 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
449 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** ', |
|
./model/src/config_check.F |
451 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
457 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
459 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
460 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
462 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
468 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: implicitIntGravWave', |
|
./model/src/config_check.F |
470 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
471 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: To by-pass this', |
|
./model/src/config_check.F |
473 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
478 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Needs exactConserv=T', |
|
./model/src/config_check.F |
47 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
480 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
485 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
487 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
489 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
491 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
496 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
498 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
49 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
500 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** => not consistent with', |
|
./model/src/config_check.F |
502 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
506 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
508 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
50 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
510 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
512 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
519 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
521 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
52 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
533 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
535 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
536 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
539 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
542 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ', |
|
./model/src/config_check.F |
544 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
546 |
CONFIG_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
./model/src/config_check.F |
549 |
CONFIG_CHECK |
WRITE(msgBuf,'(3A)') '** WARNING ** to turn ON CD-scheme:', |
|
./model/src/config_check.F |
551 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/config_check.F |
556 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
558 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
564 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: momForcingOutAB=', |
|
./model/src/config_check.F |
566 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
567 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: momForcingOutAB ', |
|
./model/src/config_check.F |
569 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
573 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,I10,A)') 'CONFIG_CHECK: tracForcingOutAB=', |
|
./model/src/config_check.F |
575 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
576 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: tracForcingOutAB ', |
|
./model/src/config_check.F |
578 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
585 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
588 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
592 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
595 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
599 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
59 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
602 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
609 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
611 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
616 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
619 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
61 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
624 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_check.F |
627 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
62 |
CONFIG_CHECK |
IF ( implicitIntGravWave ) WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
631 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
633 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
635 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') '// CONFIG_CHECK : Normal End' |
|
./model/src/config_check.F |
636 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
638 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
640 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
642 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/config_check.F |
643 |
CONFIG_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_check.F |
64 |
CONFIG_CHECK |
IF ( nonHydrostatic ) WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
66 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
73 |
CONFIG_CHECK |
WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ', |
|
./model/src/config_check.F |
75 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
76 |
CONFIG_CHECK |
WRITE(msgBuf,'(A,1P2E20.7)') |
|
./model/src/config_check.F |
78 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
85 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
87 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
88 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
90 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
94 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
96 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/config_check.F |
97 |
CONFIG_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/config_check.F |
99 |
CONFIG_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/profiles/profiles_readparms.F |
101 |
PROFILES_READPARMS |
WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ', |
|
./pkg/profiles/profiles_readparms.F |
103 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/profiles/profiles_readparms.F |
38 |
PROFILES_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/profiles/profiles_readparms.F |
82 |
PROFILES_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/profiles/profiles_readparms.F |
84 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/profiles/profiles_readparms.F |
90 |
PROFILES_READPARMS |
WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.profiles' |
|
./pkg/profiles/profiles_readparms.F |
91 |
PROFILES_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/config_summary.F |
193 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
196 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(I3,13F8.3)') |
|
./model/src/config_summary.F |
198 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
266 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' -1,0= Off ; 1,2,3= On,', |
|
./model/src/config_summary.F |
268 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
354 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') |
|
./model/src/config_summary.F |
356 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
360 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 0 : enstrophy (Shallow-Water Eq.)', |
|
./model/src/config_summary.F |
362 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
363 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 1 : same as 0 with modified hFac' |
|
./model/src/config_summary.F |
364 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
365 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 2 : energy conserving scheme', |
|
./model/src/config_summary.F |
367 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
368 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' = 3 : energy (general)', |
|
./model/src/config_summary.F |
370 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
371 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(2A)') ' from Sadourny', |
|
./model/src/config_summary.F |
373 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
379 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') ' ; ' |
|
./model/src/config_summary.F |
380 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
444 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
445 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
447 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
449 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
450 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
451 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
467 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
468 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
469 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
471 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
472 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
473 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
48 |
CONFIG_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/config_summary.F |
577 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
578 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
579 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
581 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
582 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
583 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
65 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
67 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
68 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// Model configuration' |
|
./model/src/config_summary.F |
69 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
70 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
718 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
720 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
721 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// End of Model config. summary' |
|
./model/src/config_summary.F |
722 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
723 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
725 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
726 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/config_summary.F |
727 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
72 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
74 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
75 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
76 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/config_summary.F |
78 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
79 |
CONFIG_SUMMARY |
WRITE(msgBuf,'(A)') '// ' |
|
./model/src/config_summary.F |
80 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
101 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') |
|
./pkg/ptracers/ptracers_check_pickup.F |
104 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
115 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
117 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
124 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
127 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
130 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
132 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
53 |
PTRACERS_CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_check_pickup.F |
76 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(2A,I4,3A)') 'PTRACERS_CHECK_PICKUP: ', |
|
./pkg/ptracers/ptracers_check_pickup.F |
79 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
94 |
PTRACERS_CHECK_PICKUP |
WRITE(msgBuf,'(2A,I4)') |
|
./pkg/ptracers/ptracers_check_pickup.F |
97 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_init_fixed.F |
113 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
115 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
116 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I2)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
118 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
39 |
PTRACERS_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_init_fixed.F |
71 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
73 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
75 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
77 |
PTRACERS_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_init_fixed.F |
82 |
PTRACERS_INIT_FIXED |
WRITE(msgBuf,'(2A,I4,A,L5)') 'PTRACERS_INIT_FIXED: ', |
|
./pkg/ptracers/ptracers_init_fixed.F |
85 |
PTRACERS_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_monitor.F |
125 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
127 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
128 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
130 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
131 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
133 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
49 |
PTRACERS_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_monitor.F |
85 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
87 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
88 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_monitor.F |
90 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_monitor.F |
91 |
PTRACERS_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/ptracers/ptracers_monitor.F |
93 |
PTRACERS_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/ptracers/ptracers_read_pickup.F |
118 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
120 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
121 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
123 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
132 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
135 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
136 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
139 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
142 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
144 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
147 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
149 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
152 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
154 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
155 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
157 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
249 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'PTRACERS_READ_PICKUP: ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
251 |
PTRACERS_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
271 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(A,I3,A)')'PTRACERS_READ_PICKUP: iTracer = ', |
|
./pkg/ptracers/ptracers_read_pickup.F |
274 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_read_pickup.F |
58 |
PTRACERS_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_read_pickup.F |
90 |
PTRACERS_READ_PICKUP |
WRITE(msgBuf,'(3A)')'PTRACERS_READ_PICKUP: MNC not yet coded', |
|
./pkg/ptracers/ptracers_read_pickup.F |
93 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
144 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' PTRACERS_READPARMS: opening data.ptracers' |
|
./pkg/ptracers/ptracers_readparms.F |
145 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
152 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
154 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_readparms.F |
177 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,A)') |
|
./pkg/ptracers/ptracers_readparms.F |
181 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
187 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,A,I3)') |
|
./pkg/ptracers/ptracers_readparms.F |
191 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
198 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
200 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
201 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
203 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
209 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ptracers/ptracers_readparms.F |
211 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_readparms.F |
212 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A)') 'PTRACERS_READPARMS: ', |
|
./pkg/ptracers/ptracers_readparms.F |
214 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/ptracers/ptracers_readparms.F |
220 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
222 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
223 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,L5,A)') |
|
./pkg/ptracers/ptracers_readparms.F |
225 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
229 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
231 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
232 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,L5,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
234 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
238 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(2A,I3,A)') 'PTRACERS_READPARMS:', |
|
./pkg/ptracers/ptracers_readparms.F |
240 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
241 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,L5,A)') |
|
./pkg/ptracers/ptracers_readparms.F |
243 |
PTRACERS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
285 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_readparms.F |
286 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
287 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// PTRACERS parameters ' |
|
./pkg/ptracers/ptracers_readparms.F |
288 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
289 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/ptracers/ptracers_readparms.F |
290 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
323 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_readparms.F |
324 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
325 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
|
./pkg/ptracers/ptracers_readparms.F |
326 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
352 |
PTRACERS_READPARMS |
WRITE(msgBuf,'(A)') ' -----------------------------------' |
|
./pkg/ptracers/ptracers_readparms.F |
353 |
PTRACERS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_readparms.F |
43 |
PTRACERS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ptracers/ptracers_write_pickup.F |
109 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(3A)')'PTRACERS_WRITE_PICKUP: MNC not yet coded', |
|
./pkg/ptracers/ptracers_write_pickup.F |
112 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
159 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'PTRACERS_WRITE_PICKUP: ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
161 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
162 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'PTRACERS_WRITE_PICKUP: ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
164 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_pickup.F |
188 |
PTRACERS_WRITE_PICKUP |
WRITE(msgBuf,'(A,I3,A)')'PTRACERS_WRITE_PICKUP: iTracer = ', |
|
./pkg/ptracers/ptracers_write_pickup.F |
191 |
PTRACERS_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_pickup.F |
66 |
PTRACERS_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/all_proc_die.F |
42 |
ALL_PROC_DIE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/all_proc_die.F |
49 |
ALL_PROC_DIE |
WRITE(msgBuf,'(A)') 'S/R ALL_PROC_DIE: ending the run' |
|
./eesupp/src/all_proc_die.F |
50 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/all_proc_die.F |
67 |
ALL_PROC_DIE |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/all_proc_die.F |
69 |
ALL_PROC_DIE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
136 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'S/R PTRACERS_WRITE_TIMEAVE' |
|
./pkg/ptracers/ptracers_write_timeave.F |
137 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
138 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
|
./pkg/ptracers/ptracers_write_timeave.F |
139 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
140 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/ptracers/ptracers_write_timeave.F |
141 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ptracers/ptracers_write_timeave.F |
145 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/ptracers/ptracers_write_timeave.F |
147 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
149 |
PTRACERS_WRITE_TIMEAVE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/ptracers/ptracers_write_timeave.F |
150 |
PTRACERS_WRITE_TIMEAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ptracers/ptracers_write_timeave.F |
48 |
PTRACERS_WRITE_TIMEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rbcs/rbcs_readparms.F |
106 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/rbcs/rbcs_readparms.F |
108 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/rbcs/rbcs_readparms.F |
115 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
117 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
121 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
123 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
130 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
132 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
139 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
141 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
142 |
RBCS_READPARMS |
WRITE(msgBuf,'(2A,I6,A)') 'RBCS_READPARMS: ', |
|
./pkg/rbcs/rbcs_readparms.F |
144 |
RBCS_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rbcs/rbcs_readparms.F |
37 |
RBCS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rbcs/rbcs_readparms.F |
95 |
RBCS_READPARMS |
WRITE(msgBuf,'(A)') ' RBCS_READPARMS: opening data.rbcs' |
|
./pkg/rbcs/rbcs_readparms.F |
96 |
RBCS_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/regrid/regrid_check.F |
31 |
REGRID_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/regrid/regrid_check.F |
36 |
REGRID_CHECK |
WRITE(msgBuf,'(A)') 'REGRID_CHECK: #define REGRID' |
|
./pkg/regrid/regrid_check.F |
37 |
REGRID_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/regrid/regrid_check.F |
43 |
REGRID_CHECK |
WRITE(msgBuf,'(A)') 'Regrid needs useMNC=.true.' |
|
./pkg/regrid/regrid_check.F |
44 |
REGRID_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
136 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(A)') 'S/R REGRID_INIT_VARIA()' |
|
./pkg/regrid/regrid_init_varia.F |
137 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
138 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3A)') ' File "', |
|
./pkg/regrid/regrid_init_varia.F |
140 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
148 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(A)') 'S/R REGRID_INIT_VARIA()' |
|
./pkg/regrid/regrid_init_varia.F |
149 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
150 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3A)') 'Unable to open file="', |
|
./pkg/regrid/regrid_init_varia.F |
152 |
REGRID_INIT_VARIA |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/regrid/regrid_init_varia.F |
156 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3a)') 'Reading file "', fname(1:nnb),'"' |
|
./pkg/regrid/regrid_init_varia.F |
157 |
REGRID_INIT_VARIA |
call PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
181 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a,i10)') ' num weights read = ', |
|
./pkg/regrid/regrid_init_varia.F |
183 |
REGRID_INIT_VARIA |
call PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
193 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') ' ' |
|
./pkg/regrid/regrid_init_varia.F |
194 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
69 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
71 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
73 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
75 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_init_varia.F |
77 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(a)') |
|
./pkg/regrid/regrid_init_varia.F |
79 |
REGRID_INIT_VARIA |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./pkg/regrid/regrid_readparms.F |
31 |
REGRID_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/regrid/regrid_readparms.F |
56 |
REGRID_READPARMS |
WRITE(msgBuf,'(A)') 'REGRID_READPARMS: opening data.regrid' |
|
./pkg/regrid/regrid_readparms.F |
57 |
REGRID_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/regrid/regrid_readparms.F |
66 |
REGRID_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/regrid/regrid_readparms.F |
68 |
REGRID_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_check.F |
24 |
RUNCLOCK_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_check.F |
29 |
RUNCLOCK_CHECK |
WRITE(msgBuf,'(A)') 'RUNCLOCK_CHECK: #define RUNCLOCK' |
|
./pkg/runclock/runclock_check.F |
30 |
RUNCLOCK_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
35 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_continue.F |
44 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') ' RUNCLOCK_CONTINUE: RUNCLOCK not turned on' |
|
./pkg/runclock/runclock_continue.F |
45 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_continue.F |
81 |
NO PROCEDURE |
WRITE(msgBuf,'(A,G16.6,G24.10)') ' RUNCLOCK: dT,T-To =', |
|
./pkg/runclock/runclock_continue.F |
83 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
89 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') |
|
./pkg/runclock/runclock_continue.F |
91 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
93 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_continue.F |
94 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') ' RUNCLOCK_CONTINUE: Ending run now ...' |
|
./pkg/runclock/runclock_continue.F |
95 |
NO PROCEDURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_continue.F |
97 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_init.F |
34 |
RUNCLOCK_INIT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_init.F |
37 |
RUNCLOCK_INIT |
WRITE(msgBuf,'(A)') ' RUNCLOCK_INIT: RUNCLOCK not turned on' |
|
./pkg/runclock/runclock_init.F |
38 |
RUNCLOCK_INIT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
31 |
RUNCLOCK_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/runclock/runclock_readparms.F |
39 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: opening data.runclock' |
|
./pkg/runclock/runclock_readparms.F |
40 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
56 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: read data.runclock done' |
|
./pkg/runclock/runclock_readparms.F |
57 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
64 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_hr<0' |
|
./pkg/runclock/runclock_readparms.F |
65 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
68 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_mi<0' |
|
./pkg/runclock/runclock_readparms.F |
69 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
72 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_sc<0' |
|
./pkg/runclock/runclock_readparms.F |
73 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
76 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_sc>59' |
|
./pkg/runclock/runclock_readparms.F |
77 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
80 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: ERR! RC_maxtime_mi>59' |
|
./pkg/runclock/runclock_readparms.F |
81 |
RUNCLOCK_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/runclock/runclock_readparms.F |
86 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A)') ' RUNCLOCK_READPARMS: no Wall Clock limit set' |
|
./pkg/runclock/runclock_readparms.F |
87 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/runclock/runclock_readparms.F |
91 |
RUNCLOCK_READPARMS |
WRITE(msgBuf,'(A,I7)') |
|
./pkg/runclock/runclock_readparms.F |
93 |
RUNCLOCK_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/rw/read_mflds.F |
115 |
READ_MFLDS_SET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
127 |
READ_MFLDS_SET |
WRITE(msgBuf,'(4A)') 'READ_MFLDS_SET: ', |
|
./pkg/rw/read_mflds.F |
129 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
173 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I5,A,I4,A)') |
|
./pkg/rw/read_mflds.F |
176 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
177 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I5,A,I4,A)') |
|
./pkg/rw/read_mflds.F |
179 |
READ_MFLDS_SET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
190 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' simulName=>', simulName(1:i), '<' |
|
./pkg/rw/read_mflds.F |
191 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
195 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3A)') ' titleLine=>', titleLine(1:i), '<' |
|
./pkg/rw/read_mflds.F |
196 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
198 |
READ_MFLDS_SET |
WRITE(msgBuf,'(2(A,I4),A,I10)') |
|
./pkg/rw/read_mflds.F |
201 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
202 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I4,A)') ' nDims =', nDims, ' , dims:' |
|
./pkg/rw/read_mflds.F |
203 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
205 |
READ_MFLDS_SET |
WRITE(msgBuf,'(I4,A,3I4)') j,':',(dimList(i,j),i=1,3) |
|
./pkg/rw/read_mflds.F |
206 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
208 |
READ_MFLDS_SET |
WRITE(msgBuf,'(3(A,I4))') |
|
./pkg/rw/read_mflds.F |
210 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
212 |
READ_MFLDS_SET |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
214 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
216 |
READ_MFLDS_SET |
WRITE(msgBuf,'(A,I4,A)') ' nTimRec =',nTimRec,' , timeList:' |
|
./pkg/rw/read_mflds.F |
217 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
219 |
READ_MFLDS_SET |
WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,nTimRec) |
|
./pkg/rw/read_mflds.F |
220 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
284 |
READ_MFLDS_3D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
291 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
293 |
READ_MFLDS_3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
315 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(5A)') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
317 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
324 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
326 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
333 |
READ_MFLDS_3D_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_3D_RL: ', |
|
./pkg/rw/read_mflds.F |
335 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
411 |
READ_MFLDS_LEV_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
418 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
420 |
READ_MFLDS_LEV_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
442 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(5A)') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
444 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
451 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
453 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
460 |
READ_MFLDS_LEV_RL |
WRITE(msgBuf,'(3A,2(A,I4))') 'READ_MFLDS_LEV_RL: ', |
|
./pkg/rw/read_mflds.F |
462 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
527 |
READ_MFLDS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/read_mflds.F |
534 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
536 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
555 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(3A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
557 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
558 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4,A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
560 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
562 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
564 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
566 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(A,I4,A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
568 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
571 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(20(A2,A8,A))') |
|
./pkg/rw/read_mflds.F |
573 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
578 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(2A,I4)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
580 |
READ_MFLDS_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/read_mflds.F |
593 |
READ_MFLDS_CHECK |
WRITE(msgBuf,'(3A)') 'READ_MFLDS_CHECK: ', |
|
./pkg/rw/read_mflds.F |
597 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
54 |
WRITE_FLD_S3D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/write_fld_s3d_rl.F |
63 |
WRITE_FLD_S3D_RL |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RL:', |
|
./pkg/rw/write_fld_s3d_rl.F |
65 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rl.F |
69 |
WRITE_FLD_S3D_RL |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RL:', |
|
./pkg/rw/write_fld_s3d_rl.F |
71 |
WRITE_FLD_S3D_RL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
54 |
WRITE_FLD_S3D_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/rw/write_fld_s3d_rs.F |
63 |
WRITE_FLD_S3D_RS |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RS:', |
|
./pkg/rw/write_fld_s3d_rs.F |
65 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/rw/write_fld_s3d_rs.F |
69 |
WRITE_FLD_S3D_RS |
WRITE(msgBuf,'(2A,2(I3,A))') 'WRITE_FLD_S3D_RS:', |
|
./pkg/rw/write_fld_s3d_rs.F |
71 |
WRITE_FLD_S3D_RS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_check.F |
27 |
SALT_PLUME_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/salt_plume/salt_plume_check.F |
31 |
SALT_PLUME_CHECK |
WRITE(msgBuf,'(A)') 'SALT_PLUME_CHECK: #define SALT_PLUME' |
|
./pkg/salt_plume/salt_plume_check.F |
32 |
SALT_PLUME_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/salt_plume/salt_plume_readparms.F |
36 |
SALT_PLUME_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/salt_plume/salt_plume_readparms.F |
49 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)')'SALT_PLUME_READPARMS: opening data.salt_plume' |
|
./pkg/salt_plume/salt_plume_readparms.F |
50 |
SALT_PLUME_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/salt_plume/salt_plume_readparms.F |
59 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/salt_plume/salt_plume_readparms.F |
61 |
SALT_PLUME_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/salt_plume/salt_plume_readparms.F |
72 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'S/R SALT_PLUME_READPARMS' |
|
./pkg/salt_plume/salt_plume_readparms.F |
73 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/salt_plume/salt_plume_readparms.F |
74 |
SALT_PLUME_READPARMS |
WRITE(msgBuf,'(A)') 'Invalid CriterionType' |
|
./pkg/salt_plume/salt_plume_readparms.F |
75 |
SALT_PLUME_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/sbo/sbo_check.F |
27 |
SBO_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/sbo/sbo_check.F |
29 |
SBO_CHECK |
WRITE(msgBuf,'(A)') 'SBO_CHECK: #define ALLOW_SBO' |
|
./pkg/sbo/sbo_check.F |
30 |
SBO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_check.F |
35 |
SBO_CHECK |
WRITE(msgBuf,'(A)') 'SBO requires usingSphericalPolarGrid' |
|
./pkg/sbo/sbo_check.F |
36 |
SBO_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/sbo/sbo_readparms.F |
30 |
SBO_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/sbo/sbo_readparms.F |
40 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') ' SBO_READPARMS: opening data.sbo' |
|
./pkg/sbo/sbo_readparms.F |
41 |
SBO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/sbo/sbo_readparms.F |
57 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/sbo/sbo_readparms.F |
59 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/sbo/sbo_readparms.F |
60 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/sbo/sbo_readparms.F |
62 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/sbo/sbo_readparms.F |
63 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/sbo/sbo_readparms.F |
65 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/sbo/sbo_readparms.F |
66 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/sbo/sbo_readparms.F |
68 |
SBO_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/sbo/sbo_readparms.F |
75 |
SBO_READPARMS |
WRITE(msgBuf,'(A)') ' SBO_READPARMS: finished reading data.sbo' |
|
./pkg/sbo/sbo_readparms.F |
76 |
SBO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/cost_ice_test.F |
209 |
COST_ICE_TEST |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/cost_ice_test.F |
211 |
COST_ICE_TEST |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/cost_ice_test.F |
73 |
COST_ICE_TEST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_ad_dump.F |
69 |
SEAICE_AD_DUMP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check.F |
101 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
102 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
104 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
106 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
108 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
111 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
113 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
116 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
118 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
121 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
123 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
126 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
128 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
149 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I3,A)') 'SEAICE_CHECK: SEAICEadvScheme=', |
|
./pkg/seaice/seaice_check.F |
151 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
153 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
155 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
158 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
160 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
163 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
165 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
168 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
170 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
173 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
175 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
184 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
186 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
187 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A,2I4)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
190 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
197 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
199 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
200 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
202 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
209 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
211 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
218 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
220 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
221 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
223 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
228 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
230 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
234 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
236 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
240 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
242 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
246 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
248 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
252 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
254 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
258 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
260 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
264 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
266 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
272 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./pkg/seaice/seaice_check.F |
275 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
282 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
284 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
285 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,I4)') |
|
./pkg/seaice/seaice_check.F |
288 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
294 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICE_deltaTevp is set' |
|
./pkg/seaice/seaice_check.F |
295 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
296 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
298 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
305 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseFlooding = .TRUE.' |
|
./pkg/seaice/seaice_check.F |
306 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
307 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
309 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
316 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
318 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
319 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
31 |
SEAICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check.F |
321 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
329 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
332 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
333 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: but cpp-flag '// |
|
./pkg/seaice/seaice_check.F |
335 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
343 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: UseSALT_PlUME requires that' |
|
./pkg/seaice/seaice_check.F |
344 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
345 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICE_SALINITY be defined.' |
|
./pkg/seaice/seaice_check.F |
346 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_check.F |
354 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: SEAICEuseTEM requires that' |
|
./pkg/seaice/seaice_check.F |
355 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
356 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
358 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
365 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
367 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
368 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
370 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
371 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_check.F |
373 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
38 |
SEAICE_CHECK |
WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE' |
|
./pkg/seaice/seaice_check.F |
39 |
SEAICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_check.F |
44 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check.F |
46 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
94 |
SEAICE_CHECK |
WRITE(msgBuf,'(2A)') 'SEAICE_CHECK: allowed advection schemes', |
|
./pkg/seaice/seaice_check.F |
96 |
SEAICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check.F |
97 |
SEAICE_CHECK |
WRITE(msgBuf,'(A,7I3)') 'SEAICE_CHECK:', |
|
./pkg/seaice/seaice_check_pickup.F |
110 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
112 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
123 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
125 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
129 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
131 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
139 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
142 |
SEAICE_CHECK_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
145 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
147 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
57 |
SEAICE_CHECK_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_check_pickup.F |
78 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
80 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
86 |
SEAICE_CHECK_PICKUP |
WRITE(msgBuf,'(4A)') '** WARNINGS ** SEAICE_CHECK_PICKUP: ', |
|
./pkg/seaice/seaice_check_pickup.F |
88 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
133 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
135 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
136 |
SEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor.F |
137 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
138 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
140 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
43 |
SEAICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_monitor.F |
77 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
79 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
80 |
SEAICE_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR SEAICE statistics' |
|
./pkg/seaice/seaice_monitor.F |
81 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_monitor.F |
82 |
SEAICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/seaice/seaice_monitor.F |
84 |
SEAICE_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/seaice/seaice_read_pickup.F |
101 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
104 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
106 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
109 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
111 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
114 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
116 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
117 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/seaice/seaice_read_pickup.F |
119 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
232 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
234 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
54 |
SEAICE_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_read_pickup.F |
78 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
80 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
81 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
83 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
94 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_read_pickup.F |
97 |
SEAICE_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
98 |
SEAICE_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'SEAICE_READ_PICKUP: ', |
|
./pkg/seaice/seaice_readparms.F |
100 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardmessageunit, |
|
./pkg/seaice/seaice_readparms.F |
273 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
275 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_readparms.F |
302 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
304 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
305 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
307 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
316 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
318 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
322 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
324 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
335 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
338 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
343 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
346 |
SEAICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/seaice/seaice_readparms.F |
37 |
SEAICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_readparms.F |
95 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_readparms.F |
97 |
SEAICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardmessageunit, |
|
./pkg/seaice/seaice_readparms.F |
99 |
SEAICE_READPARMS |
WRITE(msgBuf,'(A)') ' SEAICE_READPARMS: opening data.seaice' |
|
./pkg/seaice/seaice_summary.F |
219 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(a)') |
|
./pkg/seaice/seaice_summary.F |
221 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
224 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/seaice/seaice_summary.F |
226 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
228 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ; ' |
|
./pkg/seaice/seaice_summary.F |
229 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(a)') |
|
./pkg/seaice/seaice_summary.F |
231 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
234 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/seaice/seaice_summary.F |
236 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
238 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') ' ; ' |
|
./pkg/seaice/seaice_summary.F |
239 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
265 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
267 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
269 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
271 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
273 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
275 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
277 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
31 |
SEAICE_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/seaice/seaice_summary.F |
42 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
44 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
46 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
48 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
50 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
52 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
54 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
56 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_summary.F |
58 |
SEAICE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./pkg/seaice/seaice_summary.F |
60 |
SEAICE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/seaice/seaice_write_pickup.F |
153 |
SEAICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_SEAICE_PICKUP: ', |
|
./pkg/seaice/seaice_write_pickup.F |
155 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
156 |
SEAICE_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_SEAICE_PICKUP: ', |
|
./pkg/seaice/seaice_write_pickup.F |
158 |
SEAICE_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
60 |
SEAICE_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shap_filt/shap_filt_readparms.F |
169 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT: CPP-option NO_SLIP_SHAP', |
|
./pkg/shap_filt/shap_filt_readparms.F |
171 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
172 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') ' ==> use parameter Shap_noSlip=1. ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
174 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
188 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT with rigidLid ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
190 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
193 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
195 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
196 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R SHAP_FILT_READPARMS: WARNING <<< ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
198 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
206 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A,I3)') 'SHAP_FILT on CS-grid ', |
|
./pkg/shap_filt/shap_filt_readparms.F |
208 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
212 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'SHAP_FILT on CS-grid:', |
|
./pkg/shap_filt/shap_filt_readparms.F |
214 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
215 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A,I3,A)') ' Shap_funct=', Shap_funct, |
|
./pkg/shap_filt/shap_filt_readparms.F |
217 |
SHAP_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/shap_filt/shap_filt_readparms.F |
38 |
SHAP_FILT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shap_filt/shap_filt_readparms.F |
55 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A)') ' SHAP_FILT_READPARMS: opening data.shap' |
|
./pkg/shap_filt/shap_filt_readparms.F |
56 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/shap_filt/shap_filt_readparms.F |
85 |
SHAP_FILT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/shap_filt/shap_filt_readparms.F |
87 |
SHAP_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
103 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A11,I10,1X,A10)') |
|
./model/src/do_write_pickup.F |
105 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
115 |
DO_WRITE_PICKUP |
WRITE(msgBuf,'(A)') |
|
./model/src/do_write_pickup.F |
117 |
DO_WRITE_PICKUP |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/do_write_pickup.F |
59 |
DO_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
27 |
SHELFICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_check.F |
31 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') 'SHELFICE_CHECK: #define ALLOW_SHELFICE' |
|
./pkg/shelfice/shelfice_check.F |
32 |
SHELFICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_check.F |
37 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_check.F |
39 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
70 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
72 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
73 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
75 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
81 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
83 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_check.F |
84 |
SHELFICE_CHECK |
WRITE(msgBuf,'(A,A,A)') |
|
./pkg/shelfice/shelfice_check.F |
86 |
SHELFICE_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/shelfice/shelfice_readparms.F |
100 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/shelfice/shelfice_readparms.F |
102 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/shelfice/shelfice_readparms.F |
38 |
SHELFICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/shelfice/shelfice_readparms.F |
92 |
SHELFICE_READPARMS |
WRITE(msgBuf,'(A)') ' SHELFICE_READPARMS: opening data.shelfice' |
|
./pkg/shelfice/shelfice_readparms.F |
93 |
SHELFICE_READPARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/showflops/SHOWFLOPS.h |
5 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/showflops/SHOWFLOPS_INIT.h |
5 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/showflops/showflops_init.F |
62 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
|
./pkg/showflops/showflops_init.F |
65 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_init.F |
68 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
|
./pkg/showflops/showflops_init.F |
71 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_init.F |
80 |
SHOWFLOPS_INIT |
WRITE(msgBuf,'(A22,A26,F10.6)'), |
|
./pkg/showflops/showflops_init.F |
83 |
SHOWFLOPS_INIT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
102 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
64 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(A34,3F10.6,I8)') |
|
./pkg/showflops/showflops_inloop.F |
67 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
81 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)') |
|
./pkg/showflops/showflops_inloop.F |
84 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
87 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A,F12.6,A34,I8)') |
|
./pkg/showflops/showflops_inloop.F |
90 |
SHOWFLOPS_INLOOP |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_inloop.F |
99 |
SHOWFLOPS_INLOOP |
WRITE(msgBuf,'(F12.6,A2,A22,A17,I8)'), fp_result(ipcl), |
|
./pkg/showflops/showflops_insolve.F |
60 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,3F10.6)') |
|
./pkg/showflops/showflops_insolve.F |
63 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
78 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
|
./pkg/showflops/showflops_insolve.F |
81 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
84 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
|
./pkg/showflops/showflops_insolve.F |
87 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/showflops/showflops_insolve.F |
96 |
SHOWFLOPS_INSOLVE |
WRITE(msgBuf,'(A22,A26,F12.6)'), |
|
./pkg/showflops/showflops_insolve.F |
99 |
SHOWFLOPS_INSOLVE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/smooth/smooth_readparms.F |
31 |
SMOOTH_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/smooth/smooth_readparms.F |
81 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(A)') 'PROFILES_READPARMS: opening data.smooth' |
|
./pkg/smooth/smooth_readparms.F |
82 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/smooth/smooth_readparms.F |
92 |
SMOOTH_READPARMS |
WRITE(msgBuf,'(2A)') 'PROFILES_READPARMS: ', |
|
./pkg/smooth/smooth_readparms.F |
94 |
SMOOTH_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/bar_check.F |
41 |
BAR_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/bar_check.F |
64 |
BAR_CHECK |
WRITE(msgBuf,'(A,I4,A,I8)') 'BAR_CHECK: thread', myThid, |
|
./eesupp/src/bar_check.F |
66 |
BAR_CHECK |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/thsice/thsice_advdiff.F |
498 |
THSICE_ADVDIFF |
WRITE(msgBuf,'(2A)') 'S/R THSICE_ADVDIFF: ', |
|
./pkg/thsice/thsice_advdiff.F |
500 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_advdiff.F |
501 |
THSICE_ADVDIFF |
WRITE(msgBuf,'(2A)') ' ', |
|
./pkg/thsice/thsice_advdiff.F |
503 |
THSICE_ADVDIFF |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_advdiff.F |
80 |
THSICE_ADVDIFF |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_albedo.F |
155 |
THSICE_ALBEDO |
WRITE(msgBuf,'(A,I10,4I6)') |
|
./pkg/thsice/thsice_albedo.F |
157 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_albedo.F |
158 |
THSICE_ALBEDO |
WRITE(msgBuf,'(A,1P4E17.9)') |
|
./pkg/thsice/thsice_albedo.F |
160 |
THSICE_ALBEDO |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/thsice/thsice_albedo.F |
87 |
THSICE_ALBEDO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
212 |
FIND_RHO_2D |
WRITE(msgBuf,'(3a)') |
|
./model/src/find_rho.F |
214 |
FIND_RHO_2D |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/find_rho.F |
600 |
FIND_RHO_SCALAR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
623 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A,E13.5)') |
|
./model/src/find_rho.F |
625 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/find_rho.F |
642 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
|
./model/src/find_rho.F |
644 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/find_rho.F |
646 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(A)') |
|
./model/src/find_rho.F |
648 |
FIND_RHO_SCALAR |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/find_rho.F |
68 |
FIND_RHO_2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
766 |
FIND_RHO_SCALAR |
WRITE(msgBuf,'(3A)') |
|
./model/src/find_rho.F |
769 |
FIND_RHO_SCALAR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/find_rho.F |
814 |
LOOK_FOR_NEG_SALINITY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/find_rho.F |
829 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I5,A,2I4)') 'S/R LOOK_FOR_NEG_SALINITY:', |
|
./model/src/find_rho.F |
831 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/find_rho.F |
833 |
LOOK_FOR_NEG_SALINITY |
WRITE(msgBuf,'(2A,I6,A)') 'S/R LOOK_FOR_NEG_SALINITY:', |
|
./model/src/find_rho.F |
835 |
LOOK_FOR_NEG_SALINITY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_check.F |
28 |
THSICE_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_check.F |
34 |
THSICE_CHECK |
WRITE(msgBuf,'(A)') 'THSICE_CHECK: #define THSICE' |
|
./pkg/thsice/thsice_check.F |
35 |
THSICE_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_check.F |
40 |
THSICE_CHECK |
WRITE(msgBuf,'(A)') 'Need to set MaxTsf >= nitMaxTsf for TAF' |
|
./pkg/thsice/thsice_check.F |
41 |
THSICE_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/thsice/thsice_monitor.F |
100 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
102 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
103 |
THSICE_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_monitor.F |
105 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
106 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
108 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
264 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
266 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
267 |
THSICE_MONITOR |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_monitor.F |
269 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
270 |
THSICE_MONITOR |
WRITE(msgBuf,'(2A)') '// ==========================', |
|
./pkg/thsice/thsice_monitor.F |
272 |
THSICE_MONITOR |
CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/thsice/thsice_monitor.F |
48 |
THSICE_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_readparms.F |
170 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_CONST' |
|
./pkg/thsice/thsice_readparms.F |
171 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
175 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_PARM01' |
|
./pkg/thsice/thsice_readparms.F |
176 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
221 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_readparms.F |
224 |
THSICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/thsice/thsice_readparms.F |
229 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_readparms.F |
232 |
THSICE_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/thsice/thsice_readparms.F |
240 |
THSICE_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/thsice/thsice_readparms.F |
243 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
245 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/thsice/thsice_readparms.F |
247 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/thsice/thsice_readparms.F |
44 |
THSICE_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/thsice/thsice_readparms.F |
77 |
THSICE_READPARMS |
WRITE(msgBuf,'(A)') ' THSICE_READPARMS: opening data.ice' |
|
./pkg/thsice/thsice_readparms.F |
78 |
THSICE_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
198 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'S/R WRITE_TIME_AVERAGES' |
|
./pkg/timeave/timeave_statv_write.F |
199 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
200 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') 'Error writing out data' |
|
./pkg/timeave/timeave_statv_write.F |
201 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
202 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/timeave/timeave_statv_write.F |
203 |
TIMEAVE_STATV_WRITE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/timeave/timeave_statv_write.F |
207 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/timeave/timeave_statv_write.F |
209 |
TIMEAVE_STATV_WRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
211 |
TIMEAVE_STATV_WRITE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/timeave/timeave_statv_write.F |
212 |
TIMEAVE_STATV_WRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/timeave/timeave_statv_write.F |
53 |
TIMEAVE_STATV_WRITE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
34 |
ZONAL_FILT_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
43 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(A)')' ZONAL_FILT_READPARMS: opening data.zonfilt' |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
44 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
63 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
65 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
88 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'ZONAL_FILT with rigidLid ', |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
90 |
ZONAL_FILT_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
93 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
95 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
96 |
ZONAL_FILT_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ', |
|
./pkg/zonal_filt/zonal_filt_readparms.F |
98 |
ZONAL_FILT_READPARMS |
CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
184 |
INI_CG2D |
WRITE(msgBuf,'(2A,1PE23.16)') 'INI_CG2D: ', |
|
./model/src/ini_cg2d.F |
186 |
INI_CG2D |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
188 |
INI_CG2D |
WRITE(msgBuf,'(2A,1PE22.15,A,1PE16.10,A)') 'INI_CG2D: ', |
|
./model/src/ini_cg2d.F |
190 |
INI_CG2D |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
192 |
INI_CG2D |
WRITE(msgBuf,*) ' ' |
|
./model/src/ini_cg2d.F |
193 |
INI_CG2D |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_cg2d.F |
47 |
INI_CG2D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_cg3d.F |
210 |
INI_CG3D |
WRITE(msgBuf,'(2A,1PE23.16)') 'INI_CG3D: ', |
|
./model/src/ini_cg3d.F |
212 |
INI_CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cg3d.F |
214 |
INI_CG3D |
WRITE(msgBuf,*) ' ' |
|
./model/src/ini_cg3d.F |
215 |
INI_CG3D |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cg3d.F |
48 |
INI_CG3D |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_cori.F |
157 |
INI_CORI |
WRITE(msgBuf,'(A,I6,2A)') |
|
./model/src/ini_cori.F |
159 |
INI_CORI |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_cori.F |
165 |
INI_CORI |
WRITE(msgBuf,'(A)') 'INI_CORI: Needs to compile MDSIO pkg' |
|
./model/src/ini_cori.F |
166 |
INI_CORI |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_cori.F |
50 |
INI_CORI |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
133 |
GRDCHK_MAIN |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
457 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,2(1PE24.14,X))') |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
460 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
462 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
465 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
466 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
469 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
480 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
483 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
484 |
GRDCHK_MAIN |
WRITE(msgBuf,'(A34,1PE24.14)') |
|
./verification/OpenAD/code_oad_all/grdchk_main.F |
487 |
GRDCHK_MAIN |
& (msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/ini_curvilinear_grid.F |
150 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
|
./model/src/ini_curvilinear_grid.F |
152 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
174 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') 'INI_CURVILINEAR_GRID:', |
|
./model/src/ini_curvilinear_grid.F |
176 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
237 |
INI_CURVILINEAR_GRID |
msgBuf(i:i) = ' ' |
|
./model/src/ini_curvilinear_grid.F |
239 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') msgBuf,' ; Reading grid info using MNC' |
|
./model/src/ini_curvilinear_grid.F |
240 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
305 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(3A)') tmpBuf(1:iL), |
|
./model/src/ini_curvilinear_grid.F |
307 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
309 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A)') ' =>' |
|
./model/src/ini_curvilinear_grid.F |
313 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
314 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'xC' |
|
./model/src/ini_curvilinear_grid.F |
317 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'yC' |
|
./model/src/ini_curvilinear_grid.F |
319 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
320 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxF' |
|
./model/src/ini_curvilinear_grid.F |
323 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyF' |
|
./model/src/ini_curvilinear_grid.F |
325 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
326 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rA' |
|
./model/src/ini_curvilinear_grid.F |
329 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'xG' |
|
./model/src/ini_curvilinear_grid.F |
331 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
332 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'yG' |
|
./model/src/ini_curvilinear_grid.F |
335 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dxV' |
|
./model/src/ini_curvilinear_grid.F |
337 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
338 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dyU' |
|
./model/src/ini_curvilinear_grid.F |
341 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAz' |
|
./model/src/ini_curvilinear_grid.F |
343 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
344 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxC' |
|
./model/src/ini_curvilinear_grid.F |
347 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyC' |
|
./model/src/ini_curvilinear_grid.F |
349 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
350 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rAw' |
|
./model/src/ini_curvilinear_grid.F |
353 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAs' |
|
./model/src/ini_curvilinear_grid.F |
355 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
356 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxG' |
|
./model/src/ini_curvilinear_grid.F |
359 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyG' |
|
./model/src/ini_curvilinear_grid.F |
364 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
365 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'AngleCS' |
|
./model/src/ini_curvilinear_grid.F |
368 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'AngleSN' |
|
./model/src/ini_curvilinear_grid.F |
374 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_curvilinear_grid.F |
376 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
380 |
INI_CURVILINEAR_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_curvilinear_grid.F |
421 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_curvilinear_grid.F |
424 |
INI_CURVILINEAR_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
50 |
INI_CURVILINEAR_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_depths.F |
195 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') 'S/R INI_DEPTHS: ', |
|
./model/src/ini_depths.F |
197 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_depths.F |
60 |
INI_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_depths.F |
65 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_salt.F |
109 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_salt.F |
112 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_salt.F |
113 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./verification/advect_xy/code/ini_salt.F |
116 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_salt.F |
119 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_salt.F |
122 |
INI_SALT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./verification/advect_xy/code/ini_salt.F |
49 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/advect_xy/code/ini_theta.F |
113 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_theta.F |
116 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_theta.F |
117 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/advect_xy/code/ini_theta.F |
120 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/advect_xy/code/ini_theta.F |
123 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./verification/advect_xy/code/ini_theta.F |
126 |
INI_THETA |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./verification/advect_xy/code/ini_theta.F |
50 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
195 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') 'S/R INI_DEPTHS: ', |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
197 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
60 |
INI_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
65 |
INI_DEPTHS |
WRITE(msgBuf,'(A,A)') |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
68 |
INI_DEPTHS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_eos.F |
104 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
106 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
107 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
109 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
110 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
112 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
167 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
169 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
171 |
INI_EOS |
WRITE(msgBuf,'(a,a)') |
|
./model/src/ini_eos.F |
174 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
176 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
178 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
180 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
182 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
184 |
INI_EOS |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_eos.F |
186 |
INI_EOS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
320 |
EOS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_eos.F |
385 |
EOS_CHECK |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_eos.F |
388 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
428 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
42 |
INI_EOS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_eos.F |
430 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
433 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
435 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
438 |
EOS_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
440 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
443 |
EOS_CHECK |
WRITE(msgBuf,'(2(A,F4.1),A,F5.0,2A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
448 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
450 |
EOS_CHECK |
WRITE(msgBuf,'(A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
453 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
458 |
EOS_CHECK |
WRITE(msgBuf,'(A,F10.5,1X,F11.5)') |
|
./model/src/ini_eos.F |
461 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
469 |
EOS_CHECK |
WRITE(msgBuf,'(A)') 'EOS_CHECK: Done' |
|
./model/src/ini_eos.F |
470 |
EOS_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_eos.F |
80 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
82 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/ini_eos.F |
83 |
INI_EOS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_eos.F |
85 |
INI_EOS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
151 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'S/R ADDUMMY_IN_STEPPING' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
152 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
153 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
154 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
155 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
156 |
ADDUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
158 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
160 |
ADDUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
162 |
ADDUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') ' ' |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
163 |
ADDUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F |
57 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
129 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') 'S/R WRITE_STATE' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
130 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
131 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
132 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
133 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
134 |
ADDUMMY_IN_HFAC |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
136 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A,I10)') |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
138 |
ADDUMMY_IN_HFAC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
140 |
ADDUMMY_IN_HFAC |
WRITE(msgBuf,'(A)') ' ' |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
141 |
ADDUMMY_IN_HFAC |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F |
81 |
ADDUMMY_IN_HFAC |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_grid.F |
51 |
INI_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_grid.F |
89 |
INI_GRID |
WRITE(msgBuf,'(2A)') 'S/R INI_GRID: ', |
|
./model/src/ini_grid.F |
91 |
INI_GRID |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_linear_phisurf.F |
106 |
INI_LINEAR_PHISURF |
msgBuf(1:1) = ' ' |
|
./model/src/ini_linear_phisurf.F |
111 |
INI_LINEAR_PHISURF |
WRITE(msgBuf,'(A,I6,A,2I4,A)') |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
WRITE(msgBuf,'(A,I6,I6)') 'Empty tile bi,bj=', bi, bj |
|
./model/src/ini_linear_phisurf.F |
116 |
INI_LINEAR_PHISURF |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
IF ( msgBuf(1:1).NE.' ' ) THEN |
|
./model/src/ini_linear_phisurf.F |
122 |
INI_LINEAR_PHISURF |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_linear_phisurf.F |
61 |
INI_LINEAR_PHISURF |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
139 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
142 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
47 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_model_io.F |
103 |
INI_MODEL_IO |
WRITE(msgBuf,'(A,2(I10,A))') |
|
./model/src/ini_model_io.F |
106 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_model_io.F |
107 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_model_io.F |
110 |
INI_MODEL_IO |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_model_io.F |
44 |
INI_MODEL_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_model_io.F |
79 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_model_io.F |
82 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_model_io.F |
84 |
INI_MODEL_IO |
WRITE(msgBuf,'(2A)') '** WARNING ** INI_MODEL_IO:', |
|
./model/src/ini_model_io.F |
86 |
INI_MODEL_IO |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_nh_fields.F |
46 |
INI_NH_FIELDS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_nh_fields.F |
62 |
INI_NH_FIELDS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_nh_fields.F |
64 |
INI_NH_FIELDS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
32 |
CFC_ATMOS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
47 |
CFC_ATMOS |
WRITE(msgBuf,'(A)') |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
49 |
CFC_ATMOS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
66 |
CFC_ATMOS |
WRITE(msgBuf,'(A,4F8.2)') |
|
./verification/global1x1_tot/code_taueddy/cfc_atmos.F |
70 |
CFC_ATMOS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./model/src/ini_p_ground.F |
205 |
INI_P_GROUND |
WRITE(msgBuf,'(2A)') |
|
./model/src/ini_p_ground.F |
208 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_p_ground.F |
209 |
INI_P_GROUND |
WRITE(msgBuf,'(A,F7.1,2A,F6.4,A,F8.0)') |
|
./model/src/ini_p_ground.F |
212 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_p_ground.F |
61 |
INI_P_GROUND |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_p_ground.F |
81 |
INI_P_GROUND |
WRITE(msgBuf,'(A,I2,A)') |
|
./model/src/ini_p_ground.F |
84 |
INI_P_GROUND |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./eesupp/src/comm_stats.F |
101 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
106 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
110 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
119 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I6.6)') |
|
./eesupp/src/comm_stats.F |
121 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
123 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
125 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
127 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
129 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
131 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
133 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
135 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
137 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
140 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
144 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
148 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
31 |
COMM_STATS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/comm_stats.F |
35 |
COMM_STATS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/comm_stats.F |
37 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
39 |
COMM_STATS |
WRITE(msgBuf,'(A)') '// Tile <-> Tile communication statistics' |
|
./eesupp/src/comm_stats.F |
40 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
42 |
COMM_STATS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/comm_stats.F |
44 |
COMM_STATS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
50 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I6.6)') |
|
./eesupp/src/comm_stats.F |
52 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
55 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
57 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
59 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
61 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
63 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
65 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
67 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
69 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
72 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
77 |
COMM_STATS |
WRITE(msgBuf,'(A,A,1PE15.2)') |
|
./eesupp/src/comm_stats.F |
81 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
84 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
86 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
88 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
90 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
92 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
94 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/comm_stats.F |
96 |
COMM_STATS |
WRITE(msgBuf,'(A,A,I15)') |
|
./eesupp/src/comm_stats.F |
98 |
COMM_STATS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./model/src/ini_parms.F |
1001 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1003 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1004 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1006 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1039 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM04' |
|
./model/src/ini_parms.F |
1040 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1044 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1046 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1047 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1049 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1050 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1052 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1053 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1055 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1059 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; read PARM04 : OK' |
|
./model/src/ini_parms.F |
1060 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1067 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1070 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1074 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1077 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1081 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1084 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1088 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1091 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1100 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delX:', |
|
./model/src/ini_parms.F |
1102 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1116 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'Too many specifications for delY:', |
|
./model/src/ini_parms.F |
1118 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1139 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1141 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1146 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1148 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_parms.F |
1150 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1152 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_parms.F |
1168 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1170 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1183 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; Cylinder OK' |
|
./model/src/ini_parms.F |
1184 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1212 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1214 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1220 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1222 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1238 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1240 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1246 |
INI_PARMS |
WRITE(msgBuf,'(A,I4)') |
|
./model/src/ini_parms.F |
1248 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1259 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1261 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1267 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1269 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1276 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1278 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1291 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM05' |
|
./model/src/ini_parms.F |
1292 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1296 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1298 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1299 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1301 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1302 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1304 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1308 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; read PARM05 : OK' |
|
./model/src/ini_parms.F |
1309 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
1315 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
1318 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1324 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1326 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1327 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1329 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1334 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1336 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1337 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1339 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1378 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1380 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
1381 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
1383 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
327 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
329 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
330 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
332 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
333 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
335 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
353 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
355 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
357 |
INI_PARMS |
WRITE(msgBuf,'(A)') '// Model parameter file "data"' |
|
./model/src/ini_parms.F |
358 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
360 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
362 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
369 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./model/src/ini_parms.F |
370 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
375 |
INI_PARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/ini_parms.F |
376 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
422 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM01' |
|
./model/src/ini_parms.F |
423 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
427 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
429 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
430 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
432 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
433 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
435 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
436 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
438 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
442 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; read PARM01 : OK' |
|
./model/src/ini_parms.F |
443 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
463 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS:', |
|
./model/src/ini_parms.F |
465 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
472 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
474 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
476 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
478 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
505 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
507 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
537 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
539 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
53 |
INI_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_parms.F |
542 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
544 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
563 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
565 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
568 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
570 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
589 |
INI_PARMS |
WRITE(msgBuf,'(2A)') 'S/R INI_PARMS: Cannot set both ', |
|
./model/src/ini_parms.F |
591 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
594 |
INI_PARMS |
WRITE(msgBuf,'(A,2(I5,A))') 'S/R INI_PARMS: Partial setting (', |
|
./model/src/ini_parms.F |
596 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
622 |
INI_PARMS |
WRITE(msgBuf,'(A,I5,A)') |
|
./model/src/ini_parms.F |
625 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
631 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
634 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
643 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
645 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
649 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
651 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
657 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
659 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
665 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
667 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
673 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
675 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
692 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
695 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
696 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
699 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
703 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
706 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
710 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tracerAdvScheme" ', |
|
./model/src/ini_parms.F |
712 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
716 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "trac_EvPrRn" ', |
|
./model/src/ini_parms.F |
718 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
722 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tempDiffusion" ', |
|
./model/src/ini_parms.F |
724 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
725 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
|
./model/src/ini_parms.F |
727 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
731 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "saltDiffusion" ', |
|
./model/src/ini_parms.F |
733 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
734 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to turn off diffusion', |
|
./model/src/ini_parms.F |
736 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
740 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
743 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
744 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
|
./model/src/ini_parms.F |
746 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
750 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
753 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
754 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: to use Strain & Tension', |
|
./model/src/ini_parms.F |
756 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
760 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
763 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
767 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
770 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
774 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM02' |
|
./model/src/ini_parms.F |
775 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
779 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
781 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
782 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
784 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
785 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
787 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
788 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
790 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
794 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; read PARM02 : OK' |
|
./model/src/ini_parms.F |
795 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
805 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; starts to read PARM03' |
|
./model/src/ini_parms.F |
806 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
810 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
812 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
813 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
815 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
816 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
818 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
819 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
821 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
825 |
INI_PARMS |
WRITE(msgBuf,'(A)') 'S/R INI_PARMS ; read PARM03 : OK' |
|
./model/src/ini_parms.F |
826 |
INI_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_parms.F |
832 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauThetaClimRelax3Dim" ', |
|
./model/src/ini_parms.F |
834 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
835 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
|
./model/src/ini_parms.F |
837 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
841 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "tauSaltClimRelax3Dim" ', |
|
./model/src/ini_parms.F |
843 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
844 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: 3-dim. relaxation code', |
|
./model/src/ini_parms.F |
846 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
850 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: "calendarDumps" ', |
|
./model/src/ini_parms.F |
852 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
853 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R INI_PARMS: calendarDumps', |
|
./model/src/ini_parms.F |
855 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
862 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
864 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
887 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
889 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
894 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
896 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
900 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
902 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
906 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
908 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
926 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_parms.F |
929 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
982 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
984 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
985 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
987 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
991 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
993 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_parms.F |
994 |
INI_PARMS |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_parms.F |
996 |
INI_PARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_pressure.F |
144 |
INI_PRESSURE |
WRITE(msgBuf,'(A,I4,A,1PE20.12)') |
|
./model/src/ini_pressure.F |
146 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
156 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
158 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
160 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
162 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
164 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
166 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
169 |
INI_PRESSURE |
WRITE(msgBuf,'(A,I2,A)') |
|
./model/src/ini_pressure.F |
172 |
INI_PRESSURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_pressure.F |
176 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_pressure.F |
178 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
188 |
INI_PRESSURE |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_pressure.F |
191 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
198 |
INI_PRESSURE |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/ini_pressure.F |
199 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_pressure.F |
54 |
INI_PRESSURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_pressure.F |
62 |
INI_PRESSURE |
WRITE(msgBuf,'(a)') |
|
./model/src/ini_pressure.F |
64 |
INI_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_salt.F |
112 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_salt.F |
115 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_salt.F |
116 |
INI_SALT |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_salt.F |
119 |
INI_SALT |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_salt.F |
122 |
INI_SALT |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_salt.F |
125 |
INI_SALT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_salt.F |
51 |
INI_SALT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_theta.F |
113 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_theta.F |
116 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_theta.F |
117 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./model/src/ini_theta.F |
120 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./model/src/ini_theta.F |
123 |
INI_THETA |
WRITE(msgBuf,'(A,I10,A)') |
|
./model/src/ini_theta.F |
126 |
INI_THETA |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/ini_theta.F |
52 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.1x64x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
118 |
INI_THETA |
WRITE(msgBuf,'(A,A)') |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
121 |
INI_THETA |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
54 |
INI_THETA |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_vertical_grid.F |
107 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
109 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
110 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
112 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
147 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
150 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
151 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,1PE14.6,A,2E14.6)') |
|
./model/src/ini_vertical_grid.F |
154 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
37 |
INI_VERTICAL_GRID |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/ini_vertical_grid.F |
42 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,2(A,L5))') 'Enter INI_VERTICAL_GRID:', |
|
./model/src/ini_vertical_grid.F |
45 |
INI_VERTICAL_GRID |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/ini_vertical_grid.F |
60 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
62 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
63 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
65 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
79 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A,I4,A,E16.8)') |
|
./model/src/ini_vertical_grid.F |
81 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/ini_vertical_grid.F |
82 |
INI_VERTICAL_GRID |
WRITE(msgBuf,'(A)') |
|
./model/src/ini_vertical_grid.F |
84 |
INI_VERTICAL_GRID |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_grid_spacing.F |
114 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
116 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
147 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
149 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
179 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
181 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_grid_spacing.F |
43 |
LOAD_GRID_SPACING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/load_grid_spacing.F |
81 |
LOAD_GRID_SPACING |
WRITE(msgBuf,'(3A)') 'S/R LOAD_GRID_SPACING:', |
|
./model/src/load_grid_spacing.F |
83 |
LOAD_GRID_SPACING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
116 |
LOAD_REF_FILES |
WRITE(msgBuf,'(2A,I4,A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
118 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_ref_files.F |
150 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
152 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
184 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
186 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/load_ref_files.F |
45 |
LOAD_REF_FILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/load_ref_files.F |
63 |
LOAD_REF_FILES |
WRITE(msgBuf,'(2A,I4,A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
65 |
LOAD_REF_FILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/load_ref_files.F |
97 |
LOAD_REF_FILES |
WRITE(msgBuf,'(3A)') 'S/R LOAD_REF_FILES:', |
|
./model/src/load_ref_files.F |
99 |
LOAD_REF_FILES |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/modeldata_example.F |
100 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
101 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^4/s ).' |
|
./model/src/modeldata_example.F |
102 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
103 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># diffKhS - Horizontal salt diffusivity ' |
|
./model/src/modeldata_example.F |
104 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
105 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
106 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
107 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># diffKzS - Vertical salt diffusivity ' |
|
./model/src/modeldata_example.F |
108 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
109 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
110 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
111 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># diffK4S - Biharmonic salt diffusivity ' |
|
./model/src/modeldata_example.F |
112 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
113 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^4/s ).' |
|
./model/src/modeldata_example.F |
114 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
115 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># momStepping - On/Off flag for momentum' |
|
./model/src/modeldata_example.F |
116 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
117 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># equation. ' |
|
./model/src/modeldata_example.F |
118 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
119 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># momViscosity - On/Off flag for momentum' |
|
./model/src/modeldata_example.F |
120 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
121 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># mixing. ' |
|
./model/src/modeldata_example.F |
122 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
123 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># momAdvection - On/Off flag for momentum' |
|
./model/src/modeldata_example.F |
124 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
125 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># self transport. ' |
|
./model/src/modeldata_example.F |
126 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
127 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
129 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
130 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
132 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
133 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># useCoriolis - On/Off flag for momentum' |
|
./model/src/modeldata_example.F |
134 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
135 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># equation coriolis term. ' |
|
./model/src/modeldata_example.F |
136 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
137 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
139 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
140 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># eqaution. ' |
|
./model/src/modeldata_example.F |
141 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
142 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
144 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
145 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># mixing. ' |
|
./model/src/modeldata_example.F |
146 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
147 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
149 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
150 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># transport. ' |
|
./model/src/modeldata_example.F |
151 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
152 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
154 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
155 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># forcing.' |
|
./model/src/modeldata_example.F |
156 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
157 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># saltDiffusion- On/Off flag for salt' |
|
./model/src/modeldata_example.F |
158 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
159 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># mixing. ' |
|
./model/src/modeldata_example.F |
160 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
161 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># saltAdvection- On/Off flag for salt' |
|
./model/src/modeldata_example.F |
162 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
163 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># transport. ' |
|
./model/src/modeldata_example.F |
164 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
165 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># saltForcing - On/Off flag for salt' |
|
./model/src/modeldata_example.F |
166 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
167 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># forcing.' |
|
./model/src/modeldata_example.F |
168 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
169 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
171 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
172 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
174 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
175 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&PARM01' |
|
./model/src/modeldata_example.F |
176 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
177 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> gravity=9.81,' |
|
./model/src/modeldata_example.F |
178 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
179 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> rhonil=999.8,' |
|
./model/src/modeldata_example.F |
180 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
181 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tAlpha=2.e-4,' |
|
./model/src/modeldata_example.F |
182 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
183 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> sBeta=7e-4' |
|
./model/src/modeldata_example.F |
184 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
185 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> f0=1.e-4' |
|
./model/src/modeldata_example.F |
186 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
187 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> viscAh=1.e3' |
|
./model/src/modeldata_example.F |
188 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
189 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> viscAz=1.e-5' |
|
./model/src/modeldata_example.F |
190 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
191 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> viscA4=0.' |
|
./model/src/modeldata_example.F |
192 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
193 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffKhT=1.e3' |
|
./model/src/modeldata_example.F |
194 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
195 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffKzT=1.e-5' |
|
./model/src/modeldata_example.F |
196 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
197 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffK4T=0.' |
|
./model/src/modeldata_example.F |
198 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
199 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffKhS=1.e3' |
|
./model/src/modeldata_example.F |
200 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
201 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffKzS=1.e-5' |
|
./model/src/modeldata_example.F |
202 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
203 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> diffK4S=0.' |
|
./model/src/modeldata_example.F |
204 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
205 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> momStepping=.TRUE.' |
|
./model/src/modeldata_example.F |
206 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
207 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> momViscosity=.TRUE.' |
|
./model/src/modeldata_example.F |
208 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
209 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> momAdvection=.TRUE.' |
|
./model/src/modeldata_example.F |
210 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
211 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> momPressureForcing=.TRUE.' |
|
./model/src/modeldata_example.F |
212 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
213 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> momForcing=.TRUE.' |
|
./model/src/modeldata_example.F |
214 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
215 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> useCoriolis=.TRUE.' |
|
./model/src/modeldata_example.F |
216 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
217 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tempStepping=.TRUE.' |
|
./model/src/modeldata_example.F |
218 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
219 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tempDiffusion=.TRUE.' |
|
./model/src/modeldata_example.F |
220 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
221 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tempAdvection=.TRUE.' |
|
./model/src/modeldata_example.F |
222 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
223 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tempForcing=.TRUE.' |
|
./model/src/modeldata_example.F |
224 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
225 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> saltDiffusion=.TRUE.' |
|
./model/src/modeldata_example.F |
226 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
227 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> saltAdvection=.TRUE.' |
|
./model/src/modeldata_example.F |
228 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
229 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> saltForcing=.TRUE.' |
|
./model/src/modeldata_example.F |
230 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
231 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tRef=20.,' |
|
./model/src/modeldata_example.F |
232 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
233 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> sRef=35.,' |
|
./model/src/modeldata_example.F |
234 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
235 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> implicitFreeSurface=.TRUE.,' |
|
./model/src/modeldata_example.F |
236 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
237 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> rigidLid=.FALSE.,' |
|
./model/src/modeldata_example.F |
238 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
239 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> GMmaxSlope=1.d-2,' |
|
./model/src/modeldata_example.F |
240 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
241 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> GMlength=200.d3,' |
|
./model/src/modeldata_example.F |
242 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
243 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> GMalpha=200.d3,' |
|
./model/src/modeldata_example.F |
244 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
245 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> GMdepth=1000.,' |
|
./model/src/modeldata_example.F |
246 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
247 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> GMkBackground=0.,' |
|
./model/src/modeldata_example.F |
248 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
249 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>/ ' |
|
./model/src/modeldata_example.F |
250 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
252 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ' |
|
./model/src/modeldata_example.F |
253 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
254 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># o Elliptic solver parameters' |
|
./model/src/modeldata_example.F |
255 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
256 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># cg2dMaxIters - Maximum number of 2d ' |
|
./model/src/modeldata_example.F |
257 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
258 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># solver iterations. ' |
|
./model/src/modeldata_example.F |
259 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
260 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
262 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
263 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># convergence. ' |
|
./model/src/modeldata_example.F |
264 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
265 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># cg2dTargetResidual - Solver target' |
|
./model/src/modeldata_example.F |
266 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
267 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># residual. ' |
|
./model/src/modeldata_example.F |
268 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
269 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&PARM02' |
|
./model/src/modeldata_example.F |
270 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
271 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> cg2dMaxIters=200,' |
|
./model/src/modeldata_example.F |
272 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
273 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> cg2dChkResFreq=5,' |
|
./model/src/modeldata_example.F |
274 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
275 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> cg2dTargetResidual=1.e-7,' |
|
./model/src/modeldata_example.F |
276 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
277 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>/ ' |
|
./model/src/modeldata_example.F |
278 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
280 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ' |
|
./model/src/modeldata_example.F |
281 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
282 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># o Timestepping parameters' |
|
./model/src/modeldata_example.F |
283 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
284 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># nIter0 - Start timestep index' |
|
./model/src/modeldata_example.F |
285 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
286 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
288 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
289 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># delT - Timestep ( s ).' |
|
./model/src/modeldata_example.F |
290 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
291 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># deltaTtracer - Tracer timestep ( s ).' |
|
./model/src/modeldata_example.F |
292 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
293 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># abEps - Adams-Bashforth stabilising ' |
|
./model/src/modeldata_example.F |
294 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
295 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># factor. ' |
|
./model/src/modeldata_example.F |
296 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
297 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
299 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
300 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
302 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
303 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># endTime - Integration ending time (s)' |
|
./model/src/modeldata_example.F |
304 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
305 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
307 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
308 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># chkPtFreq - Frequency at which check ' |
|
./model/src/modeldata_example.F |
309 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
310 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># pointing is done ( s ). ' |
|
./model/src/modeldata_example.F |
311 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
312 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># dumpFreq - Frequency at which model ' |
|
./model/src/modeldata_example.F |
313 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
314 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># state is stored ( s ). ' |
|
./model/src/modeldata_example.F |
315 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
316 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&PARM03' |
|
./model/src/modeldata_example.F |
317 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
318 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> nIter0=0' |
|
./model/src/modeldata_example.F |
319 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
320 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> nTimeSteps=5000' |
|
./model/src/modeldata_example.F |
321 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
322 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> delT=3600.' |
|
./model/src/modeldata_example.F |
323 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
324 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> deltaTtracer=3600.' |
|
./model/src/modeldata_example.F |
325 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
326 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> abEps=0.1' |
|
./model/src/modeldata_example.F |
327 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
328 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> tauCD=345600.' |
|
./model/src/modeldata_example.F |
329 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
330 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> startTime=0.,' |
|
./model/src/modeldata_example.F |
331 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
332 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> endTime=31104000.,' |
|
./model/src/modeldata_example.F |
333 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
334 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> chkPtFreq=864000.,' |
|
./model/src/modeldata_example.F |
335 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
336 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> dumpFreq=2592000.,' |
|
./model/src/modeldata_example.F |
337 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
338 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> cAdjFreq=86400.,' |
|
./model/src/modeldata_example.F |
339 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
340 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>/ ' |
|
./model/src/modeldata_example.F |
341 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
343 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ' |
|
./model/src/modeldata_example.F |
344 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
345 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># o Gridding parameters' |
|
./model/src/modeldata_example.F |
346 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
347 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># l - Global domain grid-points in X' |
|
./model/src/modeldata_example.F |
348 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
349 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># m - Global domain grid-points in Y' |
|
./model/src/modeldata_example.F |
350 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
351 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># n - Grid-points in Z' |
|
./model/src/modeldata_example.F |
352 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
353 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
355 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
356 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
358 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
359 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># usingCartesianGrid - On/Off flag for' |
|
./model/src/modeldata_example.F |
35 |
MODELDATA_EXAMPLE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/modeldata_example.F |
360 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
361 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># selecting cartesian coordinates' |
|
./model/src/modeldata_example.F |
362 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
363 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># delX - Zonal grid spacing. Degrees' |
|
./model/src/modeldata_example.F |
364 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
365 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># for spherical polar and m for' |
|
./model/src/modeldata_example.F |
366 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
367 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
369 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
370 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># in X can be specified.' |
|
./model/src/modeldata_example.F |
371 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
372 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># delY - Meridional grid spacing. Degrees' |
|
./model/src/modeldata_example.F |
373 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
374 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># for spherical polar and m for' |
|
./model/src/modeldata_example.F |
375 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
376 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
378 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
379 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># in Y can be specified.' |
|
./model/src/modeldata_example.F |
380 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
381 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># delZ - Vertical grid spacing (m).' |
|
./model/src/modeldata_example.F |
382 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
383 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># delP - Vertical grid spacing (Pa).' |
|
./model/src/modeldata_example.F |
384 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
385 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># phiMin - Southern boundary latitude' |
|
./model/src/modeldata_example.F |
386 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
387 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># (spherical polar grid). ' |
|
./model/src/modeldata_example.F |
388 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
389 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># rSphere- Radius of globe ' |
|
./model/src/modeldata_example.F |
38 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// Shown below is an example "data" file.' |
|
./model/src/modeldata_example.F |
390 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
391 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># (spherical polar grid). ' |
|
./model/src/modeldata_example.F |
392 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
393 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&PARM04' |
|
./model/src/modeldata_example.F |
394 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
395 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> n=20,' |
|
./model/src/modeldata_example.F |
396 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
397 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> l=122,' |
|
./model/src/modeldata_example.F |
398 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
399 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> m=86,' |
|
./model/src/modeldata_example.F |
39 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
400 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
401 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> usingSphericalPolarGrid=.TRUE.,' |
|
./model/src/modeldata_example.F |
402 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
403 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> usingCartesianGrid=.FALSE.,' |
|
./model/src/modeldata_example.F |
404 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
405 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> delx=1.,' |
|
./model/src/modeldata_example.F |
406 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
407 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> dely=1.,' |
|
./model/src/modeldata_example.F |
408 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
409 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> delz= 100., 100., 100., 100., 100.,' |
|
./model/src/modeldata_example.F |
40 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// To use this example copy and paste the ' |
|
./model/src/modeldata_example.F |
410 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
411 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> 100., 100., 100., 100., 100.,' |
|
./model/src/modeldata_example.F |
412 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
413 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> 100., 100., 100., 100., 100.,' |
|
./model/src/modeldata_example.F |
414 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
415 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> 100., 100., 100., 100., 100.,' |
|
./model/src/modeldata_example.F |
416 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
417 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> phiMin=-80.,' |
|
./model/src/modeldata_example.F |
418 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
419 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '> rSphere=6430.E3' |
|
./model/src/modeldata_example.F |
41 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
420 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
421 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>/ ' |
|
./model/src/modeldata_example.F |
422 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
424 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Note: Some systems use & as the ' |
|
./model/src/modeldata_example.F |
425 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
426 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># namelist terminator. Other systems' |
|
./model/src/modeldata_example.F |
427 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
428 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># use a / character (as shown here).' |
|
./model/src/modeldata_example.F |
429 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
42 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// ">" lines. Then remove the text up to' |
|
./model/src/modeldata_example.F |
430 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/modeldata_example.F |
431 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
43 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
44 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// and including the ">".' |
|
./model/src/modeldata_example.F |
45 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
46 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Example "data" file' |
|
./model/src/modeldata_example.F |
47 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
48 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments' |
|
./model/src/modeldata_example.F |
49 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
51 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ' |
|
./model/src/modeldata_example.F |
52 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
53 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># o Continuous equation parameters' |
|
./model/src/modeldata_example.F |
54 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
55 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># gravity - Accel due to gravity (m.s^2)' |
|
./model/src/modeldata_example.F |
56 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
57 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># rhonil - Reference density (kg/m^3)' |
|
./model/src/modeldata_example.F |
58 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
59 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
61 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
62 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
64 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
65 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
67 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
68 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
70 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
71 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># beta - df/dy ( s^-1.m^-1 ).' |
|
./model/src/modeldata_example.F |
72 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
73 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
75 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
76 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
77 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
78 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
80 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
81 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
82 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
83 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
85 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
86 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^4/s ).' |
|
./model/src/modeldata_example.F |
87 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
88 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
90 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
91 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
92 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
93 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/modeldata_example.F |
95 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
96 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># ( m^2/s ).' |
|
./model/src/modeldata_example.F |
97 |
MODELDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/modeldata_example.F |
98 |
MODELDATA_EXAMPLE |
WRITE(msgBuf,'(A)') |
|
./model/src/packages_boot.F |
153 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg' |
|
./model/src/packages_boot.F |
154 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_boot.F |
43 |
PACKAGES_BOOT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_boot.F |
94 |
PACKAGES_BOOT |
WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg' |
|
./model/src/packages_boot.F |
95 |
PACKAGES_BOOT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_check.F |
100 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
356 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
358 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
359 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
361 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
39 |
PACKAGES_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_check.F |
42 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') |
|
./model/src/packages_check.F |
44 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_check.F |
46 |
PACKAGES_CHECK |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/packages_check.F |
47 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/packages_check.F |
54 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./model/src/packages_check.F |
56 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_check.F |
58 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./model/src/packages_check.F |
60 |
PACKAGES_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/packages_check.F |
67 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/packages_check.F |
70 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
71 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
73 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
79 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/packages_check.F |
82 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
83 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_check.F |
85 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
94 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') |
|
./model/src/packages_check.F |
97 |
PACKAGES_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/packages_check.F |
98 |
PACKAGES_CHECK |
WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ', |
|
./model/src/packages_error_msg.F |
39 |
PACKAGES_ERROR_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/packages_error_msg.F |
50 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ', |
|
./model/src/packages_error_msg.F |
53 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(4A)') 'from PACKAGES_CHECK: ', |
|
./model/src/packages_error_msg.F |
56 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/packages_error_msg.F |
57 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(5A)') 'but pkg/',msgLwc(1:iLen), |
|
./model/src/packages_error_msg.F |
59 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/packages_error_msg.F |
60 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(3A)') |
|
./model/src/packages_error_msg.F |
63 |
PACKAGES_ERROR_MSG |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
44 |
COST_WEIGHTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
96 |
COST_WEIGHTS |
WRITE(msgBuf,'(3A)') 'S/R COST_WEIGHTS:', |
|
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F |
98 |
COST_WEIGHTS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/read_pickup.F |
110 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
112 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
113 |
READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
115 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
126 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
130 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
131 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
134 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
137 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> READ_PICKUP: ', |
|
./model/src/read_pickup.F |
139 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
142 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
144 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
147 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
149 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
150 |
READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./model/src/read_pickup.F |
152 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
418 |
READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'READ_PICKUP: ', |
|
./model/src/read_pickup.F |
420 |
READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/read_pickup.F |
70 |
READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/remove_mean.F |
102 |
REMOVE_MEAN_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/remove_mean.F |
207 |
REMOVE_MEAN_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/rotate_uv2en.F |
245 |
ROTATE_UV2EN_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/rotate_uv2en.F |
251 |
ROTATE_UV2EN_RS |
WRITE(msgBuf,'(2A,I4,A)') ' ROTATE_UV2EN: ', |
|
./model/src/rotate_uv2en.F |
253 |
ROTATE_UV2EN_RS |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./model/src/rotate_uv2en.F |
64 |
ROTATE_UV2EN_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/rotate_uv2en.F |
70 |
ROTATE_UV2EN_RL |
WRITE(msgBuf,'(2A,I4,A)') ' ROTATE_UV2EN: ', |
|
./model/src/rotate_uv2en.F |
72 |
ROTATE_UV2EN_RL |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./model/src/set_parms.F |
161 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
163 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
165 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
167 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
169 |
SET_PARMS |
WRITE(msgBuf,'(2A,1PE20.13)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
171 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
184 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') 'SET_PARMS: done' |
|
./model/src/set_parms.F |
185 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/set_parms.F |
34 |
SET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_parms.F |
41 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') 'S/R SET_PARMS: ', |
|
./model/src/set_parms.F |
43 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/set_parms.F |
72 |
SET_PARMS |
WRITE(msgBuf,'(2A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
74 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_parms.F |
86 |
SET_PARMS |
WRITE(msgBuf,'(A,A)') '** WARNING ** SET_PARMS: ', |
|
./model/src/set_parms.F |
88 |
SET_PARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_ref_state.F |
101 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_ref_state.F |
103 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
105 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./model/src/set_ref_state.F |
303 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/set_ref_state.F |
304 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
305 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
|
./model/src/set_ref_state.F |
307 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
308 |
SET_REF_STATE |
WRITE(msgBuf,'(A)') |
|
./model/src/set_ref_state.F |
310 |
SET_REF_STATE |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
312 |
SET_REF_STATE |
WRITE(msgBuf,'(A,F5.1,A,F15.1,A,F13.3)') |
|
./model/src/set_ref_state.F |
315 |
SET_REF_STATE |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/set_ref_state.F |
40 |
SET_REF_STATE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/set_ref_state.F |
82 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
84 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
85 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
87 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
94 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/set_ref_state.F |
96 |
SET_REF_STATE |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./model/src/set_ref_state.F |
99 |
SET_REF_STATE |
WRITE(msgBuf,'(2A)') 'SET_REF_STATE:', |
|
./model/src/solve_for_pressure.F |
105 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(2A,L5)') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
107 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
109 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A,2(A,L5))') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
111 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
112 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(2A,L5)') 'SOLVE_FOR_PRESSURE:', |
|
./model/src/solve_for_pressure.F |
114 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
330 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_init_res =',firstResidual |
|
./model/src/solve_for_pressure.F |
331 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
332 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,I6)') 'cg2d_iters =',numIters |
|
./model/src/solve_for_pressure.F |
333 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
334 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_res =',lastResidual |
|
./model/src/solve_for_pressure.F |
335 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
400 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_init_res =',firstResidual |
|
./model/src/solve_for_pressure.F |
401 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
402 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,I6)') 'cg3d_iters =',numIters |
|
./model/src/solve_for_pressure.F |
403 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
404 |
SOLVE_FOR_PRESSURE |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_res =',lastResidual |
|
./model/src/solve_for_pressure.F |
405 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./model/src/solve_for_pressure.F |
66 |
SOLVE_FOR_PRESSURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/state_summary.F |
43 |
STATE_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./model/src/state_summary.F |
47 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/state_summary.F |
49 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
51 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') '// Model current state' |
|
./model/src/state_summary.F |
52 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
54 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') |
|
./model/src/state_summary.F |
56 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./model/src/state_summary.F |
58 |
STATE_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./model/src/state_summary.F |
59 |
STATE_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eedata_example.F |
21 |
EEDATA_EXAMPLE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eedata_example.F |
23 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.' |
|
./eesupp/src/eedata_example.F |
24 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
25 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// To use this example copy and paste the ' |
|
./eesupp/src/eedata_example.F |
26 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
27 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// ">" lines. Then remove the text up to' |
|
./eesupp/src/eedata_example.F |
28 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
29 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '// and including the ">".' |
|
./eesupp/src/eedata_example.F |
30 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
31 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Example "eedata" file' |
|
./eesupp/src/eedata_example.F |
32 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
33 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments' |
|
./eesupp/src/eedata_example.F |
34 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
35 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X' |
|
./eesupp/src/eedata_example.F |
36 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
37 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y' |
|
./eesupp/src/eedata_example.F |
38 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
39 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>&EEPARMS ' |
|
./eesupp/src/eedata_example.F |
40 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
41 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>nTx=1,nTy=1 ' |
|
./eesupp/src/eedata_example.F |
42 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
43 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '>/ ' |
|
./eesupp/src/eedata_example.F |
44 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
45 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># Note: Some systems use & as the ' |
|
./eesupp/src/eedata_example.F |
46 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
47 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># namelist terminator. Other systems' |
|
./eesupp/src/eedata_example.F |
48 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
49 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') '># use a / character (as shown here).' |
|
./eesupp/src/eedata_example.F |
50 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedata_example.F |
51 |
EEDATA_EXAMPLE |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eedata_example.F |
52 |
EEDATA_EXAMPLE |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./eesupp/src/eedie.F |
36 |
EEDIE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eedie.F |
57 |
EEDIE |
WRITE(msgBuf,'(A,I5,A,I5,A)') |
|
./eesupp/src/eedie.F |
61 |
EEDIE |
L = ILNBLNK(msgBuf) |
|
./eesupp/src/eedie.F |
62 |
EEDIE |
WRITE(*,*) msgBuf(1:L) |
|
./eesupp/src/eedie.F |
86 |
EEDIE |
WRITE(msgBuf,'(A,I5)') |
|
./eesupp/src/eedie.F |
89 |
EEDIE |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./model/src/write_pickup.F |
298 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
|
./model/src/write_pickup.F |
300 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/write_pickup.F |
301 |
WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'WRITE_PICKUP: ', |
|
./model/src/write_pickup.F |
303 |
WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./model/src/write_pickup.F |
73 |
WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eeintro_msg.F |
26 |
EEINTRO_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eeintro_msg.F |
29 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
30 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
32 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeintro_msg.F |
34 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
36 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// MITgcm UV' |
|
./eesupp/src/eeintro_msg.F |
37 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
39 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// =========' |
|
./eesupp/src/eeintro_msg.F |
40 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
42 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeintro_msg.F |
44 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
46 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') '// execution environment starting up...' |
|
./eesupp/src/eeintro_msg.F |
47 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
49 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
50 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
54 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// MITgcmUV version: ', |
|
./eesupp/src/eeintro_msg.F |
56 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
60 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build user: ', |
|
./eesupp/src/eeintro_msg.F |
62 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
66 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build host: ', |
|
./eesupp/src/eeintro_msg.F |
68 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
72 |
EEINTRO_MSG |
WRITE(msgBuf,'(2A)') '// Build date: ', |
|
./eesupp/src/eeintro_msg.F |
74 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeintro_msg.F |
78 |
EEINTRO_MSG |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeintro_msg.F |
79 |
EEINTRO_MSG |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeset_parms.F |
137 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
139 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
140 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
142 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
143 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
145 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
161 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
163 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/eeset_parms.F |
164 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
166 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/eeset_parms.F |
167 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
169 |
EESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeset_parms.F |
177 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
178 |
EESET_PARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/eeset_parms.F |
183 |
EESET_PARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eeset_parms.F |
184 |
EESET_PARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eeset_parms.F |
193 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
195 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
196 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
198 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
199 |
EESET_PARMS |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eeset_parms.F |
201 |
EESET_PARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/eeset_parms.F |
45 |
EESET_PARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eewrite_eeenv.F |
102 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTy =',nTy, |
|
./eesupp/src/eewrite_eeenv.F |
104 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
107 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nr =', Nr, |
|
./eesupp/src/eewrite_eeenv.F |
109 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
112 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Nx =', Nx, |
|
./eesupp/src/eewrite_eeenv.F |
114 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
117 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' Ny =', Ny, |
|
./eesupp/src/eewrite_eeenv.F |
119 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
122 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTiles =', nSx*nSy, |
|
./eesupp/src/eewrite_eeenv.F |
124 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
127 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nProcs =', nPx*nPy, |
|
./eesupp/src/eewrite_eeenv.F |
129 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
132 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') 'nThreads =', nTx*nTy, |
|
./eesupp/src/eewrite_eeenv.F |
134 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
137 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'usingMPI =', usingMPI, |
|
./eesupp/src/eewrite_eeenv.F |
139 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
142 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
144 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
147 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
149 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
152 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ' , |
|
./eesupp/src/eewrite_eeenv.F |
154 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
157 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') 'useCoupler=', useCoupler, |
|
./eesupp/src/eewrite_eeenv.F |
159 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
161 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,A,A)') ' ', ' ', |
|
./eesupp/src/eewrite_eeenv.F |
163 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
166 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,L5,A)') |
|
./eesupp/src/eewrite_eeenv.F |
169 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
171 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') 'maxLengthPrt1D=', maxLengthPrt1D, |
|
./eesupp/src/eewrite_eeenv.F |
173 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
176 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/eewrite_eeenv.F |
177 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
34 |
EEWRITE_EEENV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/eewrite_eeenv.F |
37 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
39 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
42 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
44 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
47 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
49 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
52 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/eewrite_eeenv.F |
54 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
57 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nPx =',nPx, |
|
./eesupp/src/eewrite_eeenv.F |
59 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
62 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nPy =',nPy, |
|
./eesupp/src/eewrite_eeenv.F |
64 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
67 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nSx =',nSx, |
|
./eesupp/src/eewrite_eeenv.F |
69 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
72 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nSy =',nSy, |
|
./eesupp/src/eewrite_eeenv.F |
74 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
77 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' sNx =',sNx, |
|
./eesupp/src/eewrite_eeenv.F |
79 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
82 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' sNy =',sNy, |
|
./eesupp/src/eewrite_eeenv.F |
84 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
87 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' OLx =',OLx, |
|
./eesupp/src/eewrite_eeenv.F |
89 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
92 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' OLy =',OLy, |
|
./eesupp/src/eewrite_eeenv.F |
94 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/eewrite_eeenv.F |
97 |
EEWRITE_EEENV |
WRITE(msgBuf,'(A,I5,A)') ' nTx =',nTx, |
|
./eesupp/src/eewrite_eeenv.F |
99 |
EEWRITE_EEENV |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
101 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
102 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
104 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
55 |
CPL_EXCH_CONFIGS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
95 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,I4,A,I4,A,I4,A,I4,A)') |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
98 |
CPL_EXCH_CONFIGS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
99 |
CPL_EXCH_CONFIGS |
WRITE(msgBuf,'(A,E30.15)') |
|
./pkg/aim_compon_interf/cpl_readparms.F |
103 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_compon_interf/cpl_readparms.F |
105 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
113 |
CPL_READPARMS |
WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2', |
|
./pkg/aim_compon_interf/cpl_readparms.F |
115 |
CPL_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
127 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_compon_interf/cpl_readparms.F |
128 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
129 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_compon_interf/cpl_readparms.F |
130 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
131 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// Coupling package parameters :' |
|
./pkg/aim_compon_interf/cpl_readparms.F |
132 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
133 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_compon_interf/cpl_readparms.F |
134 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_compon_interf/cpl_readparms.F |
50 |
CPL_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_compon_interf/cpl_readparms.F |
78 |
CPL_READPARMS |
WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl' |
|
./pkg/aim_compon_interf/cpl_readparms.F |
79 |
CPL_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_do_co2.F |
124 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_do_co2.F |
125 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
126 |
AIM_DO_CO2 |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_do_co2.F |
127 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
128 |
AIM_DO_CO2 |
WRITE(msgBuf,'(2A)') '// AIM_DO_CO2: Read pickup ',fn(ilo:ihi) |
|
./pkg/aim_v23/aim_do_co2.F |
129 |
AIM_DO_CO2 |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
57 |
AIM_DO_CO2 |
CHARACTER*(MAX_LEN_FNAM) fn, msgBuf |
|
./pkg/aim_v23/aim_dyn2aim.F |
211 |
AIM_DYN2AIM |
WRITE(msgBuf,'(A,1PE20.13,A,2I4)') |
|
./pkg/aim_v23/aim_dyn2aim.F |
214 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
215 |
AIM_DYN2AIM |
WRITE(msgBuf,'(A,3I4,3I3,I6,2F9.3)') |
|
./pkg/aim_v23/aim_dyn2aim.F |
218 |
AIM_DYN2AIM |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_dyn2aim.F |
64 |
AIM_DYN2AIM |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_readparms.F |
269 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' AIM_READ_PHYSPARMS: opening data.aimphys' |
|
./pkg/aim_v23/aim_readparms.F |
270 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
303 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
305 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
316 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
318 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
319 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/aim_v23/aim_readparms.F |
321 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
329 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
331 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
332 |
AIM_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/aim_v23/aim_readparms.F |
334 |
AIM_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid) |
|
./pkg/aim_v23/aim_readparms.F |
363 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_readparms.F |
364 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
365 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_readparms.F |
366 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
367 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// AIM physics parameters :' |
|
./pkg/aim_v23/aim_readparms.F |
368 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
369 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/aim_v23/aim_readparms.F |
370 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
509 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
511 |
AIM_READPARMS |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/aim_v23/aim_readparms.F |
525 |
AIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/aim_v23/aim_readparms.F |
58 |
AIM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_local.F |
49 |
AIM_WRITE_LOCAL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_local.F |
60 |
AIM_WRITE_LOCAL |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_local.F |
63 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_local.F |
64 |
AIM_WRITE_LOCAL |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_local.F |
66 |
AIM_WRITE_LOCAL |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_phys.F |
52 |
AIM_WRITE_PHYS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/aim_write_phys.F |
80 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_phys.F |
83 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
84 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_phys.F |
86 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_phys.F |
90 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I10,A,2I5,A,I4,2A)') |
|
./pkg/aim_v23/aim_write_phys.F |
93 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
94 |
AIM_WRITE_PHYS |
WRITE(msgBuf,'(A,I4,A,I4)') |
|
./pkg/aim_v23/aim_write_phys.F |
97 |
AIM_WRITE_PHYS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/aim_write_tave.F |
190 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/aim_v23/aim_write_tave.F |
192 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_v23/aim_write_tave.F |
194 |
AIM_WRITE_TAVE |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/aim_v23/aim_write_tave.F |
195 |
AIM_WRITE_TAVE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/aim_v23/aim_write_tave.F |
47 |
AIM_WRITE_TAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/aim_v23/phy_suflux_post.F |
148 |
SUFLUX_POST |
WRITE(msgBuf,'(A,1PE20.13,A,2I4)') |
|
./pkg/aim_v23/phy_suflux_post.F |
151 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
152 |
SUFLUX_POST |
WRITE(msgBuf,'(A,1P3E10.3,A,0P3F8.5)') |
|
./pkg/aim_v23/phy_suflux_post.F |
155 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
156 |
SUFLUX_POST |
WRITE(msgBuf,'(A,2I4,3I3,I6,2F9.3)') |
|
./pkg/aim_v23/phy_suflux_post.F |
159 |
SUFLUX_POST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/aim_v23/phy_suflux_post.F |
94 |
SUFLUX_POST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm2d/atm2d_readparms.F |
102 |
ATM2D_READPARMS |
WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: read PARM01_ATM2D' |
|
./pkg/atm2d/atm2d_readparms.F |
103 |
ATM2D_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/atm2d/atm2d_readparms.F |
47 |
ATM2D_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/atm2d/atm2d_readparms.F |
52 |
ATM2D_READPARMS |
WRITE(msgBuf,'(A)') ' ATM2D_READPARMS: opening data.atm2d' |
|
./pkg/atm2d/atm2d_readparms.F |
53 |
ATM2D_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/addummy_in_stepping.F |
67 |
ADDUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
129 |
ADREAD |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
165 |
ADREAD |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/autodiff/adread_adwrite.F |
168 |
ADREAD |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/adread_adwrite.F |
255 |
ADWRITE |
character*(MAX_LEN_MBUF) msgBuf |
|
./pkg/autodiff/adread_adwrite.F |
293 |
ADWRITE |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/autodiff/adread_adwrite.F |
296 |
ADWRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/adread_adwrite.F |
298 |
ADWRITE |
WRITE(msgBuf,'(A,I12,4I6)') |
|
./pkg/autodiff/adread_adwrite.F |
300 |
ADWRITE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
101 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
117 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A,I5,A,I5)') |
|
./eesupp/src/ini_threading_environment.F |
121 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
127 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
131 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
137 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
141 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
168 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
170 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
172 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') '// Mapping of tiles to threads' |
|
./eesupp/src/ini_threading_environment.F |
173 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
176 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
178 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
181 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,I4,A,4(I4,A1))') |
|
./eesupp/src/ini_threading_environment.F |
184 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_BOTH , 1) |
|
./eesupp/src/ini_threading_environment.F |
186 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/ini_threading_environment.F |
187 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT , 1) |
|
./eesupp/src/ini_threading_environment.F |
191 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
193 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
195 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') '// Tile <-> Tile connectvity table' |
|
./eesupp/src/ini_threading_environment.F |
196 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
198 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
200 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/ini_threading_environment.F |
204 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A)') |
|
./eesupp/src/ini_threading_environment.F |
207 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT , 1) |
|
./eesupp/src/ini_threading_environment.F |
210 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
215 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
216 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
220 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
222 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
224 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
228 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
233 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
234 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
238 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
240 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
242 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
246 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
251 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
252 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
256 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
258 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
260 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
264 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6,A,A)') |
|
./eesupp/src/ini_threading_environment.F |
269 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
270 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A,A,I6.6,A,I6.6)') |
|
./eesupp/src/ini_threading_environment.F |
274 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
276 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/ini_threading_environment.F |
278 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
282 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/ini_threading_environment.F |
283 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT, 1) |
|
./eesupp/src/ini_threading_environment.F |
291 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A)') 'EXCH-1 useCubedSphereExchange', |
|
./eesupp/src/ini_threading_environment.F |
293 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_threading_environment.F |
309 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(3A)') 'EXCH-1 using Comm = ', |
|
./eesupp/src/ini_threading_environment.F |
311 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/ini_threading_environment.F |
58 |
INI_THREADING_ENVIRONMENT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/ini_threading_environment.F |
93 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A,2I6)') |
|
./eesupp/src/ini_threading_environment.F |
97 |
INI_THREADING_ENVIRONMENT |
CALL PRINT_ERROR(msgBuf, myThid) |
|
./eesupp/src/ini_threading_environment.F |
98 |
INI_THREADING_ENVIRONMENT |
WRITE(msgBuf,'(2A)') |
|
./pkg/autodiff/g_dummy_in_stepping.F |
129 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'S/R WRITE_STATE' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
130 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
131 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') 'Error writing out model state' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
132 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
133 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
|
./pkg/autodiff/g_dummy_in_stepping.F |
134 |
G_DUMMY_IN_STEPPING |
CALL PRINT_ERROR( msgBuf, 1 ) |
|
./pkg/autodiff/g_dummy_in_stepping.F |
136 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/autodiff/g_dummy_in_stepping.F |
138 |
G_DUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
140 |
G_DUMMY_IN_STEPPING |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/autodiff/g_dummy_in_stepping.F |
141 |
G_DUMMY_IN_STEPPING |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/autodiff/g_dummy_in_stepping.F |
62 |
G_DUMMY_IN_STEPPING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/bulk_force/bulkf_readparms.F |
139 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts to read BULKF_CONST' |
|
./pkg/bulk_force/bulkf_readparms.F |
140 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
143 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_CONST : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
144 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
147 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts to read BULKF_PARM01' |
|
./pkg/bulk_force/bulkf_readparms.F |
148 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
151 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_PARM01 : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
152 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
159 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)')' BULKF_READPARMS: starts reading BULKF_PARM02' |
|
./pkg/bulk_force/bulkf_readparms.F |
160 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
163 |
BULKF_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: read BULKF_PARM02 : OK' |
|
./pkg/bulk_force/bulkf_readparms.F |
164 |
BULKF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/bulk_force/bulkf_readparms.F |
175 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: ', |
|
./pkg/bulk_force/bulkf_readparms.F |
177 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/bulk_force/bulkf_readparms.F |
178 |
BULKF_READPARMS |
WRITE(msgBuf,'(2A)') ' BULKF_READPARMS: => recompile with', |
|
./pkg/bulk_force/bulkf_readparms.F |
180 |
BULKF_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/bulk_force/bulkf_readparms.F |
32 |
BULKF_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_printerror.F |
110 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
112 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
113 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
114 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
116 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
117 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
124 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
126 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
127 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
129 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
131 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
132 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
134 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
136 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
137 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
139 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
141 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
142 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
144 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
146 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
147 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
149 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
151 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
152 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
153 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
155 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
156 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
158 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
160 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
161 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
162 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
164 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
165 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
167 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
169 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
170 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
172 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
174 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
175 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
177 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
179 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
180 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
182 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
184 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
185 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
187 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
189 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
190 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
192 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
195 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
197 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
198 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
200 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
202 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
203 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
227 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
229 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
230 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
239 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
241 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
242 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
251 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
253 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
254 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
263 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
265 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
266 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
267 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
269 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
270 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
279 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
281 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
282 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
291 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
293 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
294 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
303 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
305 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
306 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
315 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
317 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
318 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
352 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
354 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
355 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
356 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
358 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
359 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
361 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
363 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
364 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
366 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
368 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
369 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
371 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
373 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
374 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
376 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
378 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
379 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
381 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
383 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
384 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
386 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
388 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
389 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
391 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
393 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
394 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
396 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
398 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
399 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
413 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
415 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
416 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
430 |
CAL_PRINTERROR |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_printerror.F |
432 |
CAL_PRINTERROR |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/cal/cal_printerror.F |
433 |
CAL_PRINTERROR |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/cal/cal_printerror.F |
98 |
CAL_PRINTERROR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cal/cal_readparms.F |
121 |
CAL_READPARMS |
WRITE(msgBuf,'(A)') 'CAL_READPARMS: opening data.cal' |
|
./pkg/cal/cal_readparms.F |
122 |
CAL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cal/cal_readparms.F |
132 |
CAL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/cal/cal_readparms.F |
134 |
CAL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/mds_check4file.F |
110 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(7A)') msgPfx(1:iL), ': file: ', |
|
./eesupp/src/mds_check4file.F |
112 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/mds_check4file.F |
113 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(2A)') msgPfx(1:iL), ': Files DO not exist' |
|
./eesupp/src/mds_check4file.F |
114 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/mds_check4file.F |
49 |
MDS_CHECK4FILE |
CHARACTER*(MAX_LEN_MBUF) msgBuf, msgPfx |
|
./eesupp/src/mds_check4file.F |
63 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./eesupp/src/mds_check4file.F |
66 |
MDS_CHECK4FILE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mds_reclen.F |
28 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/mds_reclen.F |
36 |
NO PROCEDURE |
WRITE(msgBuf,'(A,I2.2)') |
|
./eesupp/src/mds_reclen.F |
38 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/mds_reclen.F |
39 |
NO PROCEDURE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/mds_reclen.F |
41 |
NO PROCEDURE |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cfc/cfc_atmos.F |
33 |
CFC_ATMOS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_atmos.F |
49 |
CFC_ATMOS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_atmos.F |
51 |
CFC_ATMOS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_atmos.F |
69 |
CFC_ATMOS |
WRITE(msgBuf,'(A,4F8.2)') |
|
./pkg/cfc/cfc_atmos.F |
73 |
CFC_ATMOS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_readparms.F |
38 |
CFC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cfc/cfc_readparms.F |
58 |
CFC_READPARMS |
WRITE(msgBuf,'(A)') ' CFC_READPARMS: opening data.cfc' |
|
./pkg/cfc/cfc_readparms.F |
59 |
CFC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cfc/cfc_readparms.F |
70 |
CFC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/cfc/cfc_readparms.F |
72 |
CFC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
100 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
102 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
111 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
113 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
144 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
146 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
152 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
154 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
50 |
CHEAPAML_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
71 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(2A,I4)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
73 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
74 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(A,2(A,I4))') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
76 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
85 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
88 |
CHEAPAML_READ_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
89 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
92 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
95 |
CHEAPAML_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'WARNING >> CHEAPAML_READ_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
97 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_readparms.F |
101 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 3333333333333333333333333333333333' |
|
./pkg/cheapaml/cheapaml_readparms.F |
102 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
105 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_CONST' |
|
./pkg/cheapaml/cheapaml_readparms.F |
106 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
111 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM01' |
|
./pkg/cheapaml/cheapaml_readparms.F |
112 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
115 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 4444444444444444444444444444444444' |
|
./pkg/cheapaml/cheapaml_readparms.F |
116 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
122 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 55555555555555555555555555555555555' |
|
./pkg/cheapaml/cheapaml_readparms.F |
123 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
126 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' CHEAPAML_READPARMS: read CHEAPAML_PARM02' |
|
./pkg/cheapaml/cheapaml_readparms.F |
127 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
130 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 6666666666666666666666666666666666' |
|
./pkg/cheapaml/cheapaml_readparms.F |
131 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
25 |
CHEAPAML_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_readparms.F |
52 |
CHEAPAML_READPARMS |
WRITE(msgBuf,'(A)') ' BULKF_READPARMS: opening data.cheapaml' |
|
./pkg/cheapaml/cheapaml_readparms.F |
53 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
61 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 1 ********************************' |
|
./pkg/cheapaml/cheapaml_readparms.F |
62 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_readparms.F |
94 |
CHEAPAML_READPARMS |
WRITE (msgBuf,'(A)') 'Test 2 ********************************' |
|
./pkg/cheapaml/cheapaml_readparms.F |
95 |
CHEAPAML_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
60 |
CHEAPAML_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
89 |
CHEAPAML_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CHEAPAML_WRITE_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
91 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
92 |
CHEAPAML_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'CHEAPAML_WRITE_PICKUP: ', |
|
./pkg/cheapaml/cheapaml_write_pickup.F |
94 |
CHEAPAML_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./eesupp/src/nml_filter.F |
54 |
NML_FILTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/nml_filter.F |
77 |
NML_FILTER |
write(msgBuf,'(A)') 'S/R nml_filter' |
|
./eesupp/src/nml_filter.F |
78 |
NML_FILTER |
call PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/nml_filter.F |
79 |
NML_FILTER |
write(msgBuf,'(A)') 'Unable to open execution environment' |
|
./eesupp/src/nml_filter.F |
80 |
NML_FILTER |
call PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/nml_filter.F |
81 |
NML_FILTER |
write(msgBuf,'(3a)') 'namelist file "', fname, '"' |
|
./eesupp/src/nml_filter.F |
82 |
NML_FILTER |
call PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/nml_filter.F |
87 |
NML_FILTER |
write(msgBuf,'(3a)') 'Processing namelist file ', fname, ' ...' |
|
./eesupp/src/nml_filter.F |
88 |
NML_FILTER |
call PRINT_MESSAGE(msgBuf,standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
103 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/open_copy_data_file.F |
105 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
107 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"' |
|
./eesupp/src/open_copy_data_file.F |
108 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
110 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/open_copy_data_file.F |
112 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
119 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
120 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
125 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A)') ' ' |
|
./eesupp/src/open_copy_data_file.F |
126 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
42 |
OPEN_COPY_DATA_FILE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/open_copy_data_file.F |
59 |
OPEN_COPY_DATA_FILE |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/open_copy_data_file.F |
62 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') |
|
./eesupp/src/open_copy_data_file.F |
64 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/open_copy_data_file.F |
65 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') 'S/R CALLED BY ',caller_sub |
|
./eesupp/src/open_copy_data_file.F |
66 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/open_copy_data_file.F |
82 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') |
|
./eesupp/src/open_copy_data_file.F |
84 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/open_copy_data_file.F |
85 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') 'S/R CALLED BY ',caller_sub |
|
./eesupp/src/open_copy_data_file.F |
86 |
OPEN_COPY_DATA_FILE |
CALL PRINT_ERROR( msgBuf , 1) |
|
./eesupp/src/print.F |
1030 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1031 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1046 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1047 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1079 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,A)') '// ',plotBuf |
|
./eesupp/src/print.F |
1080 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1088 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1090 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1092 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1094 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1096 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
1098 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1100 |
PRINT_MAPRS |
msgBuf = ' ' |
|
./eesupp/src/print.F |
1101 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1210 |
PRINT_MAPRL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
1263 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1265 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1270 |
PRINT_MAPRL |
WRITE(msgBuf,'(A)') fldTitle(iStrngLo:iStrngHi) |
|
./eesupp/src/print.F |
1272 |
PRINT_MAPRL |
msgBuf = '// UNKNOWN FIELD' |
|
./eesupp/src/print.F |
1274 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1276 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1278 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1280 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1282 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1285 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1288 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
1291 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1293 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
1295 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1297 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
1299 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1301 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
1306 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1308 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
1313 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1315 |
PRINT_MAPRL |
WRITE(msgBuf,'(A,3(A,I4),A)') |
|
./eesupp/src/print.F |
1320 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1322 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1324 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1430 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1432 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1519 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1521 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1523 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1525 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1527 |
PRINT_MAPRL |
msgBuf = |
|
./eesupp/src/print.F |
1529 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
1531 |
PRINT_MAPRL |
msgBuf = ' ' |
|
./eesupp/src/print.F |
1532 |
PRINT_MAPRL |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
336 |
PRINT_LIST_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
371 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
373 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
376 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
378 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
381 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
393 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
395 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
|
./eesupp/src/print.F |
398 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
400 |
PRINT_LIST_I |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
|
./eesupp/src/print.F |
403 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
469 |
PRINT_LIST_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
504 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
506 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
509 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
511 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
514 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
526 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
528 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),'(A,1X,A,I3,1X,A)') |
|
./eesupp/src/print.F |
531 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
533 |
PRINT_LIST_L |
& WRITE(msgBuf(45:),'(A,1X,A,I3,A,I3,1X,A)') |
|
./eesupp/src/print.F |
536 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
602 |
PRINT_LIST_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
637 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
639 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
642 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
644 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
647 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
659 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
661 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt1) |
|
./eesupp/src/print.F |
664 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
666 |
PRINT_LIST_RL |
& WRITE(msgBuf(45:),fmt2) |
|
./eesupp/src/print.F |
669 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
777 |
PRINT_MAPRS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/print.F |
829 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
831 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
836 |
PRINT_MAPRS |
WRITE(msgBuf,'(A)') fldTitle(iStrngLo:iStrngHi) |
|
./eesupp/src/print.F |
838 |
PRINT_MAPRS |
msgBuf = '// UNKNOWN FIELD' |
|
./eesupp/src/print.F |
840 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
842 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
844 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
846 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
848 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
851 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
854 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1PE30.15)') |
|
./eesupp/src/print.F |
857 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
859 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
861 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
863 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,1024A1)') |
|
./eesupp/src/print.F |
865 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
867 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
872 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
874 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I6),A)') |
|
./eesupp/src/print.F |
879 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
881 |
PRINT_MAPRS |
WRITE(msgBuf,'(A,3(A,I4),A)') |
|
./eesupp/src/print.F |
886 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
888 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
890 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./eesupp/src/print.F |
996 |
PRINT_MAPRS |
msgBuf = |
|
./eesupp/src/print.F |
998 |
PRINT_MAPRS |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
|
./pkg/cost/cost_check.F |
25 |
COST_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/cost/cost_check.F |
27 |
COST_CHECK |
WRITE(msgBuf,'(A)') 'COST_CHECK: cost package' |
|
./pkg/cost/cost_check.F |
28 |
COST_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cost/cost_readparms.F |
81 |
COST_READPARMS |
WRITE(msgBuf,'(A)') 'COST_READPARMS: opening data.cost' |
|
./pkg/cost/cost_readparms.F |
82 |
COST_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/cost/cost_readparms.F |
92 |
COST_READPARMS |
WRITE(msgBuf,'(A)') 'COST_READPARMS: finished reading data.cost' |
|
./pkg/cost/cost_readparms.F |
93 |
COST_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
100 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
107 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
109 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
118 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
120 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
125 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
127 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
128 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'ALLOW_HFLUX_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
129 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
130 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'ALLOW_SFLUX_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
131 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
132 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'ALLOW_USTRESS_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
133 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
134 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'ALLOW_VSTRESS_CONTROL' |
|
./pkg/ctrl/ctrl_check.F |
135 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
136 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'to be control vaiables' |
|
./pkg/ctrl/ctrl_check.F |
137 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
29 |
CTRL_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ctrl/ctrl_check.F |
31 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') 'CTRL_CHECK: ctrl package' |
|
./pkg/ctrl/ctrl_check.F |
32 |
CTRL_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_check.F |
40 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
42 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
43 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
45 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
51 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
53 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
58 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
60 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
65 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
67 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
72 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
74 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
80 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
82 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
89 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_check.F |
91 |
CTRL_CHECK |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ctrl/ctrl_check.F |
98 |
CTRL_CHECK |
WRITE(msgBuf,'(A)') |
|
./eesupp/src/stop_if_error.F |
48 |
STOP_IF_ERROR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/stop_if_error.F |
61 |
STOP_IF_ERROR |
WRITE(msgBuf,'(A,I5,A)') |
|
./eesupp/src/stop_if_error.F |
63 |
STOP_IF_ERROR |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/ctrl/ctrl_readparms.F |
355 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') 'CTRL_READPARMS: opening data.ctrl' |
|
./pkg/ctrl/ctrl_readparms.F |
356 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/ctrl_readparms.F |
367 |
CTRL_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/ctrl_readparms.F |
369 |
CTRL_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
120 |
WRITE_1D_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
123 |
WRITE_1D_L |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
124 |
WRITE_1D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
128 |
WRITE_1D_L |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
129 |
WRITE_1D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
179 |
WRITE_1D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
201 |
WRITE_1D_RL |
WRITE(msgBuf,'(A,A)') head(1:ILH), comment(1:ILC) |
|
./eesupp/src/write_utils.F |
202 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
221 |
WRITE_1D_RL |
WRITE(msgBuf,'(A)') ' . . .' |
|
./eesupp/src/write_utils.F |
222 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
230 |
WRITE_1D_RL |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
231 |
WRITE_1D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
275 |
WRITE_0D_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
281 |
WRITE_0D_I |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
282 |
WRITE_0D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
286 |
WRITE_0D_I |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
287 |
WRITE_0D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
331 |
WRITE_0D_L |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
336 |
WRITE_0D_L |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
337 |
WRITE_0D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
341 |
WRITE_0D_L |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
342 |
WRITE_0D_L |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
386 |
WRITE_0D_R4 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
393 |
WRITE_0D_R4 |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
394 |
WRITE_0D_R4 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
398 |
WRITE_0D_R4 |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
399 |
WRITE_0D_R4 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
443 |
WRITE_0D_R8 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
450 |
WRITE_0D_R8 |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
451 |
WRITE_0D_R8 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
455 |
WRITE_0D_R8 |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
456 |
WRITE_0D_R8 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
500 |
WRITE_0D_RS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
507 |
WRITE_0D_RS |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
508 |
WRITE_0D_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
512 |
WRITE_0D_RS |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
513 |
WRITE_0D_RS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
557 |
WRITE_0D_RL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
564 |
WRITE_0D_RL |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
565 |
WRITE_0D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
569 |
WRITE_0D_RL |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
570 |
WRITE_0D_RL |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
624 |
WRITE_0D_C |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
638 |
WRITE_0D_C |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
639 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
643 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'", fld(iS:iL), "'" |
|
./eesupp/src/write_utils.F |
645 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'","'" |
|
./eesupp/src/write_utils.F |
647 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
649 |
WRITE_0D_C |
WRITE(msgBuf,'(A)') ' ;' |
|
./eesupp/src/write_utils.F |
64 |
WRITE_1D_I |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./eesupp/src/write_utils.F |
650 |
WRITE_0D_C |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
67 |
WRITE_1D_I |
WRITE(msgBuf,'(A,A)') head, comment |
|
./eesupp/src/write_utils.F |
68 |
WRITE_1D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./eesupp/src/write_utils.F |
72 |
WRITE_1D_I |
WRITE(msgBuf,'(A)') ' ; ' |
|
./eesupp/src/write_utils.F |
73 |
WRITE_1D_I |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/optim_readparms.F |
76 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') 'OPTIM_READPARMS: opening data.optim' |
|
./pkg/ctrl/optim_readparms.F |
77 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ctrl/optim_readparms.F |
87 |
OPTIM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ctrl/optim_readparms.F |
89 |
OPTIM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/debug/debug_call.F |
25 |
DEBUG_CALL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_call.F |
27 |
DEBUG_CALL |
WRITE(msgBuf,'(A,A)') 'CALLING S/R ',text |
|
./pkg/debug/debug_call.F |
28 |
DEBUG_CALL |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_enter.F |
25 |
DEBUG_ENTER |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_enter.F |
27 |
DEBUG_ENTER |
WRITE(msgBuf,'(A,A)') 'ENTERED S/R ',text |
|
./pkg/debug/debug_enter.F |
28 |
DEBUG_ENTER |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_leave.F |
25 |
DEBUG_LEAVE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_leave.F |
27 |
DEBUG_LEAVE |
WRITE(msgBuf,'(A,A)') 'LEAVING S/R ',text |
|
./pkg/debug/debug_leave.F |
28 |
DEBUG_LEAVE |
CALL DEBUG_MSG( msgBuf, myThid ) |
|
./pkg/debug/debug_msg.F |
25 |
DEBUG_MSG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/debug/debug_msg.F |
28 |
DEBUG_MSG |
WRITE(msgBuf,'(A11,A40)') 'DEBUG_MSG: ',text |
|
./pkg/debug/debug_msg.F |
29 |
DEBUG_MSG |
CALL PRINT_MESSAGE( msgBuf, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
135 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
137 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
138 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
140 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
141 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
143 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
144 |
DIAG_VEGTILE_FILL |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL: ', |
|
./pkg/diagnostics/diag_vegtile_fill.F |
146 |
DIAG_VEGTILE_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
62 |
DIAG_VEGTILE_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_addtolist.F |
100 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(4A,I6)') 'DIAGNOSTICS_ADDTOLIST: cannot ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
102 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
103 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(4A,I6,A)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
105 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
125 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A,I6)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
127 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
128 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_addtolist.F |
130 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
53 |
DIAGNOSTICS_ADDTOLIST |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_addtolist.F |
64 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(6A)') 'DIAGNOSTICS_ADDTOLIST: ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
66 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
67 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
69 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
70 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
72 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
73 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST: ', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
75 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
85 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(3A,I6,A)') 'DIAGNOSTICS_ADDTOLIST: diag=', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
87 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_addtolist.F |
89 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_ADDTOLIST:', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
91 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_addtolist.F |
97 |
DIAGNOSTICS_ADDTOLIST |
WRITE(msgBuf,'(3A,I6,A)') 'DIAGNOSTICS_ADDTOLIST: diag=', |
|
./pkg/diagnostics/diagnostics_addtolist.F |
99 |
DIAGNOSTICS_ADDTOLIST |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
101 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
102 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
104 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
129 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
132 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
133 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I4,3(A,F16.8))') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
136 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
142 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
144 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
145 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
147 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
165 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
167 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
169 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
171 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
173 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
176 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
179 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
181 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
183 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
186 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
30 |
DIAGNOSTICS_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_check.F |
43 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** (DIAGNOSTICS_CHECK): ', |
|
./pkg/diagnostics/diagnostics_check.F |
45 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
47 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
49 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
51 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') '**CAUTION** ', |
|
./pkg/diagnostics/diagnostics_check.F |
53 |
DIAGNOSTICS_CHECK |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_check.F |
59 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
62 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
65 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
68 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid) |
|
./pkg/diagnostics/diagnostics_check.F |
79 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
81 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
82 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
84 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
85 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
87 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
96 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_check.F |
98 |
DIAGNOSTICS_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_check.F |
99 |
DIAGNOSTICS_CHECK |
WRITE(msgBuf,'(2A,I5,2A)') 'DIAGNOSTICS_CHECK: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
100 |
DIAGNOSTICS_FILL_FIELD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_fill_field.F |
199 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
201 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
202 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
204 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
205 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGNOSTICS_FILL_FIELD ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
207 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fill_field.F |
208 |
DIAGNOSTICS_FILL_FIELD |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGNOSTICS_FILL_FIELD: ', |
|
./pkg/diagnostics/diagnostics_fill_field.F |
210 |
DIAGNOSTICS_FILL_FIELD |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
112 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
114 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
115 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
117 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
152 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
154 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
155 |
DIAGNOSTICS_FRACT_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_FRACT_FILL: ', |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
157 |
DIAGNOSTICS_FRACT_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
83 |
DIAGNOSTICS_FRACT_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
102 |
DIAGNOSTICS_INTERP_VERT |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGNOSTICS_INTERP_VERT: ', |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
104 |
DIAGNOSTICS_INTERP_VERT |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
77 |
DIAGNOSTICS_INTERP_VERT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_list_check.F |
101 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
102 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
104 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
108 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
110 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
111 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
113 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
118 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(5A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
121 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
122 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
124 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
129 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(5A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
132 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
133 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
135 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
139 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
141 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
142 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
144 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
148 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
150 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
151 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
153 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
47 |
DIAGNOSTICS_LIST_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_list_check.F |
72 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
74 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
75 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
77 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
81 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
83 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
84 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
86 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
90 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_list_check.F |
92 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
93 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: ', |
|
./pkg/diagnostics/diagnostics_list_check.F |
95 |
DIAGNOSTICS_LIST_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_list_check.F |
99 |
DIAGNOSTICS_LIST_CHECK |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_LIST_CHECK: diagnostic "', |
|
./pkg/diagnostics/diagnostics_out.F |
341 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I10)') |
|
./pkg/diagnostics/diagnostics_out.F |
343 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
345 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
348 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
351 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
|
./pkg/diagnostics/diagnostics_out.F |
355 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A,2(I3,A))') |
|
./pkg/diagnostics/diagnostics_out.F |
359 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
361 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_out.F |
363 |
DIAGNOSTICS_OUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_out.F |
443 |
DIAGNOSTICS_OUT |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_OUT: ', |
|
./pkg/diagnostics/diagnostics_out.F |
445 |
DIAGNOSTICS_OUT |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
80 |
DIAGNOSTICS_OUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_readparms.F |
149 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
151 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,SQUEEZE_RIGHT,1) |
|
./pkg/diagnostics/diagnostics_readparms.F |
156 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
158 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
161 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
163 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
170 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
172 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
175 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_READPARMS,', |
|
./pkg/diagnostics/diagnostics_readparms.F |
177 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
239 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
242 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
243 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
245 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
268 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
270 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
271 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,F8.0)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
273 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
274 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
276 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
291 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
293 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
294 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
296 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
297 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
299 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
306 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
308 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
309 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
311 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
312 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
314 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
363 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
365 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
366 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
368 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
392 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
395 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
397 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
400 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_readparms.F |
404 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,I4,A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
407 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
408 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
411 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
426 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
428 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
429 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,3A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
432 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
433 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
435 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
442 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
444 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
445 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,I4)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
447 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
448 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A,F18.6,2A)') 'DIAGNOSTICS_READPARMS: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
450 |
DIAGNOSTICS_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
458 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
460 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
461 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
463 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
464 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
466 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
468 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
469 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
470 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
472 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
473 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6),A,I4)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
476 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
478 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,A,I12,3A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
482 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1PE20.12,A,I12,3A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
487 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
489 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') ' Cumulate all Levels (to be set later)' |
|
./pkg/diagnostics/diagnostics_readparms.F |
490 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
492 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,A)') ' Levels: ','will be set later' |
|
./pkg/diagnostics/diagnostics_readparms.F |
493 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
497 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
498 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
505 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
506 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
511 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
512 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
515 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
517 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
518 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
520 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
522 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Stats. Output Stream: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
524 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
525 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', |
|
./pkg/diagnostics/diagnostics_readparms.F |
527 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
528 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') ' Regions: ' |
|
./pkg/diagnostics/diagnostics_readparms.F |
533 |
DIAGNOSTICS_READPARMS |
IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j |
|
./pkg/diagnostics/diagnostics_readparms.F |
536 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
539 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ', |
|
./pkg/diagnostics/diagnostics_readparms.F |
541 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
544 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
546 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
547 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagnostics_readparms.F |
548 |
DIAGNOSTICS_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_readparms.F |
70 |
DIAGNOSTICS_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_levels.F |
105 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,3A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
108 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_levels.F |
113 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
116 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
121 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
123 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
133 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
135 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
140 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
150 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
152 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
157 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I6,3A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
159 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
165 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
167 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
168 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_LEVELS: done' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
169 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
170 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
172 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
178 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
181 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
238 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
240 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
241 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
243 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
244 |
DIAGNOSTICS_SET_LEVELS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_LEVELS: ', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
246 |
DIAGNOSTICS_SET_LEVELS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
66 |
DIAGNOSTICS_SET_LEVELS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
102 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
106 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
109 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
110 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A,I8)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
113 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
116 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
119 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
120 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
123 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
147 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,5A,I6)') ' set mate pointer for diag #', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
150 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
170 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
173 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
176 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,2(I6,A))') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
179 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
180 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,2A)') 'DIAGNOSTICS_SET_POINTERS: in', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
182 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
189 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
191 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
197 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
198 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
214 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I4,A,I6,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
217 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
218 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A,I4,A,I6,2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
221 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
222 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
224 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
231 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A)') 'DIAGNOSTICS_SET_POINTERS: done' |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
232 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
234 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
236 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
40 |
DIAGNOSTICS_SET_POINTERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
77 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGNOSTICS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
79 |
DIAGNOSTICS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
99 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
101 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
104 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
139 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
142 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
144 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagnostics_setdiag.F |
147 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
150 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
153 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
53 |
DIAGNOSTICS_SETDIAG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_setdiag.F |
91 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagnostics_setdiag.F |
93 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_setdiag.F |
95 |
DIAGNOSTICS_SETDIAG |
WRITE(msgBuf,'(A,2(I3,A),I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagnostics_setdiag.F |
98 |
DIAGNOSTICS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_summary.F |
113 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A),I4,A)') |
|
./pkg/diagnostics/diagnostics_summary.F |
132 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
133 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
135 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep |
|
./pkg/diagnostics/diagnostics_summary.F |
137 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld, |
|
./pkg/diagnostics/diagnostics_summary.F |
145 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
146 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
147 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
150 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
151 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
155 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
156 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
185 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A)') ' Regions: ' |
|
./pkg/diagnostics/diagnostics_summary.F |
190 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
191 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagnostics_summary.F |
195 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
199 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(I6,3A,2(I7,A))') |
|
./pkg/diagnostics/diagnostics_summary.F |
204 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
205 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
206 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
211 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
212 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
213 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
216 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
217 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
38 |
DIAGNOSTICS_SUMMARY |
CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf |
|
./pkg/diagnostics/diagnostics_summary.F |
54 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
56 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_summary.F |
64 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagnostics_summary.F |
66 |
DIAGNOSTICS_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, stdUnit,SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
127 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
129 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
130 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(msgBuf,'(2A,I4,A,F17.6)') 'DIAGNOSTICS_SWITCH_ONOFF:', |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
132 |
DIAGNOSTICS_SWITCH_ONOFF |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
44 |
DIAGNOSTICS_SWITCH_ONOFF |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
331 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
341 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
343 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
344 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
346 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
347 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
349 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
350 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
352 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
364 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
366 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
377 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
379 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
381 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,A)')'** WARNING ** DIAGNOSTICS_SETKLEV:', |
|
./pkg/diagnostics/diagnostics_utils.F |
383 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
387 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
389 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
390 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') 'DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
392 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
395 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A,I5)') '** WARNING ** DIAGNOSTICS_SETKLEV: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
397 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
399 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I5,3A)') '** WARNING ** will set level Nb', |
|
./pkg/diagnostics/diagnostics_utils.F |
401 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
403 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') '** WARNING ** DIAGNOSTICS_SETKLEV', |
|
./pkg/diagnostics/diagnostics_utils.F |
405 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
445 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
457 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(4A)') 'DIAGS_GET_PARMS_I: ', |
|
./pkg/diagnostics/diagnostics_utils.F |
459 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/diagnostics/diagnostics_utils.F |
495 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
510 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
512 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
514 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
516 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
552 |
DIAGNOSTICS_SETKLEV |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagnostics_utils.F |
579 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(2A,I4,A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
581 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagnostics_utils.F |
583 |
DIAGNOSTICS_SETKLEV |
WRITE(msgBuf,'(3A)') '** WARNING ** ', |
|
./pkg/diagnostics/diagnostics_utils.F |
585 |
DIAGNOSTICS_SETKLEV |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_close_io.F |
38 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_close_io.F |
57 |
DIAGSTATS_CLOSE_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_CLOSE_IO: ', |
|
./pkg/diagnostics/diagstats_close_io.F |
59 |
DIAGSTATS_CLOSE_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_fill.F |
110 |
DIAGSTATS_FILL |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_fill.F |
200 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I4,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
202 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
203 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I6,2A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
205 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
206 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,2I4,I3)') 'calling DIAGSTATS_FILL ', |
|
./pkg/diagnostics/diagstats_fill.F |
208 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_fill.F |
209 |
DIAGSTATS_FILL |
WRITE(msgBuf,'(2A,I6,A)') 'DIAGSTATS_FILL: ', |
|
./pkg/diagnostics/diagstats_fill.F |
211 |
DIAGSTATS_FILL |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
39 |
DIAGSTATS_INI_IO |
CHARACTER*(MAX_LEN_MBUF) msgBuf, tmpBuf |
|
./pkg/diagnostics/diagstats_ini_io.F |
62 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(4A,I6)') 'DIAGSTATS_INI_IO: ', |
|
./pkg/diagnostics/diagstats_ini_io.F |
64 |
DIAGSTATS_INI_IO |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_ini_io.F |
72 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A)') '# Regions : ' |
|
./pkg/diagnostics/diagstats_ini_io.F |
76 |
DIAGSTATS_INI_IO |
tmpBuf(1:iL) = msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
77 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j |
|
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_output.F |
100 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
102 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I6,3A,I4,2A)') |
|
./pkg/diagnostics/diagstats_output.F |
105 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
107 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(2A)') '- WARNING - has not been filled,', |
|
./pkg/diagnostics/diagstats_output.F |
109 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
111 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A)') |
|
./pkg/diagnostics/diagstats_output.F |
113 |
DIAGSTATS_OUTPUT |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/diagnostics/diagstats_output.F |
61 |
DIAGSTATS_OUTPUT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_output.F |
97 |
DIAGSTATS_OUTPUT |
WRITE(msgBuf,'(A,I10,A,I4)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
118 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
121 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
125 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
128 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
129 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I8,A,I8)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
132 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
135 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
138 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
139 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,I6,A,I6)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
142 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
156 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A,3(A,I5))') 'DIAGSTATS_SET_POINTERS:', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
159 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
166 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_POINTERS:', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
168 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_pointers.F |
174 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(A)') 'DIAGSTATS_SET_POINTERS: done' |
|
./pkg/diagnostics/diagstats_set_pointers.F |
175 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
177 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_pointers.F |
179 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_pointers.F |
41 |
DIAGSTATS_SET_POINTERS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_set_pointers.F |
78 |
DIAGSTATS_SET_POINTERS |
WRITE(msgBuf,'(3A)') 'DIAGSTATS_SET_POINTERS: ', |
|
./pkg/diagnostics/diagstats_set_pointers.F |
80 |
DIAGSTATS_SET_POINTERS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
135 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I4)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
137 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
141 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I3,A,I3,A)') 'DIAGSTATS_SET_REGIONS: ', |
|
./pkg/diagnostics/diagstats_set_regions.F |
144 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
169 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I4,A)') 'DIAGSTATS_SET_REGIONS: define', |
|
./pkg/diagnostics/diagstats_set_regions.F |
171 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagstats_set_regions.F |
175 |
DIAGSTATS_SET_REGIONS |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagstats_set_regions.F |
176 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagstats_set_regions.F |
180 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
182 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
184 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
213 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
215 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
219 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A)') 'DIAGSTATS_SET_REGIONS: define no region' |
|
./pkg/diagnostics/diagstats_set_regions.F |
220 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
222 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
224 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/diagnostics/diagstats_set_regions.F |
36 |
DIAGSTATS_SET_REGIONS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_set_regions.F |
73 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
75 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
79 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(2A,I4,A,I4)') 'DIAGSTATS_SET_REGIONS:', |
|
./pkg/diagnostics/diagstats_set_regions.F |
82 |
DIAGSTATS_SET_REGIONS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/diagnostics/diagstats_setdiag.F |
100 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
130 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
133 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
135 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
137 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
142 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
145 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
53 |
DIAGSTATS_SETDIAG |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/diagnostics/diagstats_setdiag.F |
86 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,A)') |
|
./pkg/diagnostics/diagstats_setdiag.F |
88 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, errUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
90 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I3,A,I6,1X,A)') 'SETDIAG: Allocate', |
|
./pkg/diagnostics/diagstats_setdiag.F |
92 |
DIAGSTATS_SETDIAG |
CALL PRINT_MESSAGE(msgBuf, stdUnit, SQUEEZE_RIGHT, myThid) |
|
./pkg/diagnostics/diagstats_setdiag.F |
97 |
DIAGSTATS_SETDIAG |
WRITE(msgBuf,'(A,I6,1X,2A)') |
|
./pkg/dic/dic_fields_load.F |
182 |
DIC_FIELDS_LOAD |
WRITE(msgBuf,'(2A)') |
|
./pkg/dic/dic_fields_load.F |
185 |
DIC_FIELDS_LOAD |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_fields_load.F |
46 |
DIC_FIELDS_LOAD |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_ini_forcing.F |
37 |
DIC_INI_FORCING |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_ini_forcing.F |
77 |
DIC_INI_FORCING |
WRITE(msgBuf,'(2A)') |
|
./pkg/dic/dic_ini_forcing.F |
80 |
DIC_INI_FORCING |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_init_fixed.F |
32 |
DIC_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_init_fixed.F |
94 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/dic/dic_init_fixed.F |
95 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_init_fixed.F |
96 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_init_fixed.F |
97 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_init_fixed.F |
98 |
DIC_INIT_FIXED |
WRITE(msgBuf,'(A)') '// DIC_INIT_FIXED parameters :' |
|
./pkg/dic/dic_init_fixed.F |
99 |
DIC_INIT_FIXED |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_read_co2_pickup.F |
38 |
DIC_READ_CO2_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_read_co2_pickup.F |
59 |
DIC_READ_CO2_PICKUP |
WRITE(msgBuf,'(4A)') 'DIC_READ_CO2_PICKUP: ', |
|
./pkg/dic/dic_read_co2_pickup.F |
61 |
DIC_READ_CO2_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
31 |
DIC_READ_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_read_pickup.F |
62 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(4A)') 'DIC_READ_PICKUP: ', |
|
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
68 |
DIC_READ_PICKUP |
WRITE(msgBuf,'(2A)') 'WARNING >> DIC_READ_PICKUP: ', |
|
./pkg/dic/dic_read_pickup.F |
70 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_readparms.F |
142 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' DIC_READPARMS: opening data.dic' |
|
./pkg/dic/dic_readparms.F |
143 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/dic/dic_readparms.F |
162 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/dic/dic_readparms.F |
164 |
DIC_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/dic/dic_readparms.F |
189 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/dic/dic_readparms.F |
190 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
191 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_readparms.F |
192 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
193 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// DIC package parameters :' |
|
./pkg/dic/dic_readparms.F |
194 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
195 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') '// ===================================' |
|
./pkg/dic/dic_readparms.F |
196 |
DIC_READPARMS |
CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/dic/dic_readparms.F |
286 |
DIC_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/dic/dic_readparms.F |
288 |
DIC_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_readparms.F |
38 |
DIC_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_write_pickup.F |
100 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
55 |
DIC_WRITE_PICKUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/dic/dic_write_pickup.F |
95 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
|
./pkg/dic/dic_write_pickup.F |
97 |
DIC_WRITE_PICKUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
98 |
DIC_WRITE_PICKUP |
WRITE(msgBuf,'(2A,I5,A)') 'DIC_WRITE_PICKUP: ', |
|
./pkg/down_slope/dwnslp_init_fixed.F |
198 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,I8,A)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
200 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
201 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,2I4,A,I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
203 |
DWNSLP_INIT_FIXED |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
296 |
DWNSLP_INIT_FIXED |
WRITE(msgBuf,'(A,2I4,I8)') |
|
./pkg/down_slope/dwnslp_init_fixed.F |
298 |
DWNSLP_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
40 |
DWNSLP_INIT_FIXED |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/down_slope/dwnslp_readparms.F |
40 |
DWNSLP_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/down_slope/dwnslp_readparms.F |
46 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)')' DWNSLP_READPARMS: opening data.down_slope' |
|
./pkg/down_slope/dwnslp_readparms.F |
47 |
DWNSLP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_readparms.F |
65 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
67 |
DWNSLP_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/down_slope/dwnslp_readparms.F |
79 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
81 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/down_slope/dwnslp_readparms.F |
85 |
DWNSLP_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/down_slope/dwnslp_readparms.F |
87 |
DWNSLP_READPARMS |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ebm/ebm_readparms.F |
32 |
EBM_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ebm/ebm_readparms.F |
43 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' ebm_readparms: opening data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
44 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ebm/ebm_readparms.F |
62 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
64 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
65 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
67 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
68 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
70 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
71 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ebm/ebm_readparms.F |
73 |
EBM_READPARMS |
CALL PRINT_ERROR( msgBuf , 1) |
|
./pkg/ebm/ebm_readparms.F |
80 |
EBM_READPARMS |
WRITE(msgBuf,'(A)') ' ebm_readparms: finished reading data.ebm' |
|
./pkg/ebm/ebm_readparms.F |
81 |
EBM_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_check.F |
39 |
ECCO_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_check.F |
44 |
ECCO_CHECK |
WRITE(msgBuf,'(2A,2I10)') |
|
./pkg/ecco/ecco_check.F |
48 |
ECCO_CHECK |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_check.F |
50 |
ECCO_CHECK |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
254 |
ECCO_COST_INIT_FIXED |
WRITE(msgBuf,'(2A,I10)') |
|
./pkg/ecco/ecco_cost_init_fixed.F |
257 |
ECCO_COST_INIT_FIXED |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_cost_init_fixed.F |
259 |
ECCO_COST_INIT_FIXED |
CALL PRINT_ERROR( msgBuf , myThid ) |
|
./pkg/ecco/ecco_readparms.F |
370 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') 'ECCO_READPARMS: opening data.ecco' |
|
./pkg/ecco/ecco_readparms.F |
371 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
37 |
ECCO_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/ecco/ecco_readparms.F |
381 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
383 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
394 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') 'ECCO_READPARMS: start assigning cost dates' |
|
./pkg/ecco/ecco_readparms.F |
395 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
433 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') 'ECCO_READPARMS: end assigning cost dates' |
|
./pkg/ecco/ecco_readparms.F |
434 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
461 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
463 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/ecco/ecco_readparms.F |
507 |
ECCO_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/ecco/ecco_readparms.F |
509 |
ECCO_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
110 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(2A,I6,A,2(I4,A))') |
|
./pkg/exch2/exch2_check_depths.F |
113 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
116 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' N.Edge has', errN, |
|
./pkg/exch2/exch2_check_depths.F |
118 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
122 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' S.Edge has', errS, |
|
./pkg/exch2/exch2_check_depths.F |
124 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
128 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' E.Edge has', errE, |
|
./pkg/exch2/exch2_check_depths.F |
130 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
134 |
EXCH2_CHECK_DEPTHS |
WRITE(msgBuf,'(A,I5,A)') ' W.Edge has', errW, |
|
./pkg/exch2/exch2_check_depths.F |
136 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
139 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(A)') 'S/R EXCH2_CHECK_DEPTHS: Fatal Error' |
|
./pkg/exch2/exch2_check_depths.F |
152 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(2A)') '** WARNINGS ** EXCH2_CHECK_DEPTHS:', |
|
./pkg/exch2/exch2_check_depths.F |
154 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
156 |
EXCH2_CHECK_DEPTHS |
WRITE( msgBuf,'(2A)') '** WARNINGS ** EXCH2_CHECK_DEPTHS:', |
|
./pkg/exch2/exch2_check_depths.F |
158 |
EXCH2_CHECK_DEPTHS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/exch2_check_depths.F |
47 |
EXCH2_CHECK_DEPTHS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_e2setup.F |
100 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
101 |
W2_E2SETUP |
WRITE(msgBuf,'(2A)') 'Must increase "W2_maxNbTiles"', |
|
./pkg/exch2/w2_e2setup.F |
103 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
110 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I5,A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
113 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I7,A,I4,A)') 'W2_E2SETUP:', blankList(i), |
|
./pkg/exch2/w2_e2setup.F |
115 |
W2_E2SETUP |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
133 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
135 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
41 |
W2_E2SETUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_e2setup.F |
71 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I5,A,2I3,A)') |
|
./pkg/exch2/w2_e2setup.F |
74 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_e2setup.F |
75 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exch2/w2_e2setup.F |
87 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
89 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
90 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
92 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
93 |
W2_E2SETUP |
WRITE(msgBuf,'(A,I8)') |
|
./pkg/exch2/w2_e2setup.F |
95 |
W2_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_e2setup.F |
98 |
W2_E2SETUP |
WRITE(msgBuf,'(3(A,I7))') 'W2_E2SETUP: Number of Tiles=', |
|
./pkg/exch2/w2_eeboot.F |
100 |
W2_EEBOOT |
WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen) |
|
./pkg/exch2/w2_eeboot.F |
101 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
156 |
W2_EEBOOT |
WRITE(msgBuf,'(3(A,I5))') |
|
./pkg/exch2/w2_eeboot.F |
159 |
W2_EEBOOT |
CALL PRINT_MESSAGE(msgBuf, |
|
./pkg/exch2/w2_eeboot.F |
164 |
W2_EEBOOT |
WRITE(msgBuf,'(3(A,I5))') |
|
./pkg/exch2/w2_eeboot.F |
167 |
W2_EEBOOT |
CALL PRINT_MESSAGE(msgBuf, |
|
./pkg/exch2/w2_eeboot.F |
178 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '===== W2 TILE TOPOLOGY =====' |
|
./pkg/exch2/w2_eeboot.F |
179 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
184 |
W2_EEBOOT |
WRITE(msgBuf,'(A,I5,A,I3)') ' TILE: ', myTileId, |
|
./pkg/exch2/w2_eeboot.F |
186 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
196 |
W2_EEBOOT |
WRITE(msgBuf,'(A,I3,A,I5,A,I3,2A,I5,A)') |
|
./pkg/exch2/w2_eeboot.F |
200 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
203 |
W2_EEBOOT |
WRITE(msgBuf,'(A,I3,A,I5,A,I3,2A,I5,A)') |
|
./pkg/exch2/w2_eeboot.F |
207 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
232 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '=== End TOPOLOGY report ===' |
|
./pkg/exch2/w2_eeboot.F |
233 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_BOTH, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
236 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '===== setting W2 TOPOLOGY: Done' |
|
./pkg/exch2/w2_eeboot.F |
237 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
238 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exch2/w2_eeboot.F |
239 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_eeboot.F |
39 |
W2_EEBOOT |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_eeboot.F |
89 |
W2_EEBOOT |
WRITE(msgBuf,'(A)') '===== Start setting W2 TOPOLOGY:' |
|
./pkg/exch2/w2_eeboot.F |
90 |
W2_EEBOOT |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
102 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
104 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
105 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
107 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(4(A,I4),A,I6,A,I4,A)') |
|
./pkg/exch2/w2_print_comm_sequence.F |
112 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
114 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
115 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
140 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(A,I6,A,I4,A,4(A,I4),A,I6,A,I4,A)') |
|
./pkg/exch2/w2_print_comm_sequence.F |
146 |
W2_PRINT_COMM_SEQUENCE |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_comm_sequence.F |
148 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
149 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
59 |
W2_PRINT_COMM_SEQUENCE |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_print_comm_sequence.F |
97 |
W2_PRINT_COMM_SEQUENCE |
WRITE(msgBuf,'(A,I6,A,I4,A,4(A,I4))') |
|
./pkg/exch2/w2_print_e2setup.F |
153 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./pkg/exch2/w2_print_e2setup.F |
155 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
162 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(A,2(A,I8))') ' Global Map (IO):', |
|
./pkg/exch2/w2_print_e2setup.F |
164 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
168 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./pkg/exch2/w2_print_e2setup.F |
170 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
197 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./pkg/exch2/w2_print_e2setup.F |
199 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
223 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(A,I5,A,I3)') |
|
./pkg/exch2/w2_print_e2setup.F |
226 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_print_e2setup.F |
37 |
W2_PRINT_E2SETUP |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_print_e2setup.F |
54 |
W2_PRINT_E2SETUP |
WRITE(msgBuf,'(2A)') 'W2_PRINT_E2SETUP:', |
|
./pkg/exch2/w2_print_e2setup.F |
56 |
W2_PRINT_E2SETUP |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_readparms.F |
104 |
W2_READPARMS |
WRITE(msgBuf,'(A)') 'W2_READPARMS: opening data.exch2' |
|
./pkg/exch2/w2_readparms.F |
105 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
113 |
W2_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_readparms.F |
115 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
119 |
W2_READPARMS |
WRITE(msgBuf,'(A)') 'W2_READPARMS: file data.exch2 not found' |
|
./pkg/exch2/w2_readparms.F |
120 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
122 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
125 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
128 |
W2_READPARMS |
WRITE(msgBuf,'(2A,I3)') '=> use W2_EXCH2 default:', |
|
./pkg/exch2/w2_readparms.F |
131 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
155 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
157 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
158 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
160 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
171 |
W2_READPARMS |
WRITE(msgBuf,'(2A)') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
173 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
174 |
W2_READPARMS |
WRITE(msgBuf,'(A,2(A,I3))') ' W2_READPARMS:', |
|
./pkg/exch2/w2_readparms.F |
176 |
W2_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_readparms.F |
183 |
W2_READPARMS |
WRITE(msgBuf,'(A,L5,A)') 'W2_useE2ioLayOut=', W2_useE2ioLayOut, |
|
./pkg/exch2/w2_readparms.F |
185 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
186 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_mapIO =', W2_mapIO, |
|
./pkg/exch2/w2_readparms.F |
188 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
189 |
W2_READPARMS |
WRITE(msgBuf,'(A,I4,A)') 'W2_printMsg =', W2_printMsg, |
|
./pkg/exch2/w2_readparms.F |
191 |
W2_READPARMS |
CALL PRINT_MESSAGE( msgBuf, stdUnit, SQUEEZE_RIGHT , myThid ) |
|
./pkg/exch2/w2_readparms.F |
35 |
W2_READPARMS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_cs6_facets.F |
111 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./pkg/exch2/w2_set_cs6_facets.F |
113 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
115 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(3(A,I4),A,I10,A,I6,A)') |
|
./pkg/exch2/w2_set_cs6_facets.F |
117 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
118 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I6,A,I10)') |
|
./pkg/exch2/w2_set_cs6_facets.F |
120 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
121 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./pkg/exch2/w2_set_cs6_facets.F |
123 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
124 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
157 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I3,3A,2(I4,A),I3,3A,I8)') |
|
./pkg/exch2/w2_set_cs6_facets.F |
160 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE(msgBuf,W2_oUnit,SQUEEZE_RIGHT,myThid) |
|
./pkg/exch2/w2_set_cs6_facets.F |
170 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(A,I3,A)') ' W2_SET_CS6_FACETS:', |
|
./pkg/exch2/w2_set_cs6_facets.F |
172 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
173 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
179 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
180 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
38 |
W2_SET_CS6_FACETS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_cs6_facets.F |
48 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_CS6_FACETS:', |
|
./pkg/exch2/w2_set_cs6_facets.F |
50 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
90 |
W2_SET_CS6_FACETS |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_CS6_FACETS:', |
|
./pkg/exch2/w2_set_cs6_facets.F |
92 |
W2_SET_CS6_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
93 |
W2_SET_CS6_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
114 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,I8,A)') 'Length of connection: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
116 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
117 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,I8,A)') ' to: ', |
|
./pkg/exch2/w2_set_f2f_index.F |
119 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
189 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(3A,I3),A)') ' connect ', |
|
./pkg/exch2/w2_set_f2f_index.F |
192 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
193 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
195 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
208 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
210 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
249 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(3A,I3),A)') ' connect ', |
|
./pkg/exch2/w2_set_f2f_index.F |
252 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
253 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,4I4,2I8)') |
|
./pkg/exch2/w2_set_f2f_index.F |
255 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
262 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
264 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
35 |
W2_SET_F2F_INDEX |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_f2f_index.F |
44 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2A)') 'W2_SET_F2F_INDEX:', |
|
./pkg/exch2/w2_set_f2f_index.F |
46 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
58 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(3A,I3,A,F6.2,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
61 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
62 |
W2_SET_F2F_INDEX |
CALL PRINT_MESSAGE( msgBuf,errorMessageUnit,SQUEEZE_RIGHT,1 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
65 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2A,I3,A,F6.2,A)') edge(i), '.Edge of facet #', |
|
./pkg/exch2/w2_set_f2f_index.F |
67 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
74 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(2(2A,I3,A),F5.2,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
77 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
79 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,2(2A,I3,A),F5.2,A)') ' but ', |
|
./pkg/exch2/w2_set_f2f_index.F |
83 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,2(2A,I3,A),F5.2,A)') ' but ', |
|
./pkg/exch2/w2_set_f2f_index.F |
87 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_f2f_index.F |
94 |
W2_SET_F2F_INDEX |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_f2f_index.F |
96 |
W2_SET_F2F_INDEX |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
100 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I2,A,I3,A,I6,A)') 'dimension', i, |
|
./pkg/exch2/w2_set_gen_facets.F |
102 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
106 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
108 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
118 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(3A,I3,A,F6.2,A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
121 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
122 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
124 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
129 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
131 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
36 |
W2_SET_GEN_FACETS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_gen_facets.F |
43 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_GEN_FACETS:', |
|
./pkg/exch2/w2_set_gen_facets.F |
45 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
58 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A,2I6)') |
|
./pkg/exch2/w2_set_gen_facets.F |
61 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
64 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
66 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
72 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') 'W2_SET_GEN_FACETS: found', errCnt, |
|
./pkg/exch2/w2_set_gen_facets.F |
74 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
79 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_gen_facets.F |
82 |
W2_SET_GEN_FACETS |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_gen_facets.F |
89 |
W2_SET_GEN_FACETS |
WRITE(msgBuf,'(A,I3,A,I5,A)') ' dimsFacets(j=',jj,') =', |
|
./pkg/exch2/w2_set_gen_facets.F |
91 |
W2_SET_GEN_FACETS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
101 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
113 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,2(I5,A))') ' W2_mapIO =', W2_mapIO, |
|
./pkg/exch2/w2_set_map_tiles.F |
115 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
133 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,2(A,I8))') ' Global Map (IO):', |
|
./pkg/exch2/w2_set_map_tiles.F |
135 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
138 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_TILES:', |
|
./pkg/exch2/w2_set_map_tiles.F |
140 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
44 |
W2_SET_MAP_TILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_map_tiles.F |
54 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_MAP_TILES:', |
|
./pkg/exch2/w2_set_map_tiles.F |
56 |
W2_SET_MAP_TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
72 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
74 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
78 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j, |
|
./pkg/exch2/w2_set_map_tiles.F |
80 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
89 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_map_tiles.F |
91 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
96 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I6,A)') |
|
./pkg/exch2/w2_set_map_tiles.F |
98 |
W2_SET_MAP_TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_map_tiles.F |
99 |
W2_SET_MAP_TILES |
WRITE(msgBuf,'(A,I6)') |
|
./pkg/exch2/w2_set_single_facet.F |
35 |
W2_SET_SINGLE_FACET |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_single_facet.F |
39 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,I3,A)') 'W2_SET_SINGLE_FACET:', |
|
./pkg/exch2/w2_set_single_facet.F |
41 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
64 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,2I5)') 'W2_SET_SINGLE_FACET:', |
|
./pkg/exch2/w2_set_single_facet.F |
66 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
67 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
73 |
W2_SET_SINGLE_FACET |
WRITE(msgBuf,'(2A,I5)') 'W2_SET_SINGLE_FACET:', |
|
./pkg/exch2/w2_set_single_facet.F |
75 |
W2_SET_SINGLE_FACET |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit,SQUEEZE_RIGHT,myThid ) |
|
./pkg/exch2/w2_set_single_facet.F |
76 |
W2_SET_SINGLE_FACET |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
251 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,A,I3)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
253 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
255 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2(A,I4),A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
258 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
259 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2A)') 'Must increase "W2_maxNeighbours"', |
|
./pkg/exch2/w2_set_tile2tiles.F |
261 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
282 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A,I5)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
284 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
285 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
288 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
294 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A,I5)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
296 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
303 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
305 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
317 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A)') 'Tile',is,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
319 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
320 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
322 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
323 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A)') ' but',it,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
325 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
326 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,3(A,I3))') ' with tile', ii, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
328 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
334 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I3,A)') |
|
./pkg/exch2/w2_set_tile2tiles.F |
336 |
W2_SET_TILE2TILES |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
41 |
W2_SET_TILE2TILES |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exch2/w2_set_tile2tiles.F |
55 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(2A)') 'W2_SET_TILE2TILES:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
57 |
W2_SET_TILE2TILES |
CALL PRINT_MESSAGE( msgBuf, W2_oUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/exf/exf_adjoint_snapshots__g.F |
64 |
G_EXF_ADJOINT_SNAPSHOTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_adjoint_snapshots_ad.F |
68 |
ADEXF_ADJOINT_SNAPSHOTS |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_check.F |
100 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: using diurnal albedo ', |
|
./pkg/exf/exf_check.F |
102 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf , mythid) |
|
./pkg/exf/exf_check.F |
34 |
EXF_CHECK |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_check.F |
74 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: unsupported option', |
|
./pkg/exf/exf_check.F |
76 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf , mythid) |
|
./pkg/exf/exf_check.F |
83 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: ALLOW_ZENITHANGLE does ', |
|
./pkg/exf/exf_check.F |
85 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf , mythid) |
|
./pkg/exf/exf_check.F |
89 |
EXF_CHECK |
WRITE(msgBuf,'(A,A)') 'S/R EXF_CHECK: unsupported ', |
|
./pkg/exf/exf_check.F |
91 |
EXF_CHECK |
CALL PRINT_ERROR( msgBuf , mythid) |
|
./pkg/exf/exf_interp_read.F |
117 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A,A)') |
|
./pkg/exf/exf_interp_read.F |
119 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
123 |
EXF_INTERP_READ |
WRITE(msgBuf,'(2A)') |
|
./pkg/exf/exf_interp_read.F |
125 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
127 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_read.F |
128 |
EXF_INTERP_READ |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_interp_read.F |
130 |
EXF_INTERP_READ |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_interp_read.F |
132 |
EXF_INTERP_READ |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_interp_read.F |
54 |
EXF_INTERP_READ |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_monitor.F |
182 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
184 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
185 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// End MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
186 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
187 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
189 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
48 |
EXF_MONITOR |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
./pkg/exf/exf_monitor.F |
83 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
85 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
86 |
EXF_MONITOR |
WRITE(msgBuf,'(A)') '// Begin MONITOR EXF statistics' |
|
./pkg/exf/exf_monitor.F |
87 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_monitor.F |
88 |
EXF_MONITOR |
WRITE(msgBuf,'(2A)') '// ===========================', |
|
./pkg/exf/exf_monitor.F |
90 |
EXF_MONITOR |
CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1) |
|
./pkg/exf/exf_readparms.F |
766 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') 'EXF_READPARMS: opening data.exf' |
|
./pkg/exf/exf_readparms.F |
767 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
775 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
777 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
780 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
782 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
785 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
787 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
790 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
792 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
797 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
799 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
805 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
807 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
826 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
828 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_readparms.F |
850 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./pkg/exf/exf_readparms.F |
852 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exf/exf_readparms.F |
854 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./pkg/exf/exf_readparms.F |
856 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exf/exf_readparms.F |
862 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
864 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
865 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
867 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
884 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./pkg/exf/exf_readparms.F |
886 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exf/exf_readparms.F |
888 |
EXF_READPARMS |
WRITE(msgBuf,'(2A)') '***WARNING***', |
|
./pkg/exf/exf_readparms.F |
890 |
EXF_READPARMS |
CALL PRINT_MESSAGE( msgBuf, errorMessageUnit, |
|
./pkg/exf/exf_readparms.F |
896 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
898 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_readparms.F |
899 |
EXF_READPARMS |
WRITE(msgBuf,'(A)') |
|
./pkg/exf/exf_readparms.F |
901 |
EXF_READPARMS |
CALL PRINT_ERROR( msgBuf, myThid ) |
|
./pkg/exf/exf_summary.F |
193 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
194 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
199 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF main CPP flags:' |
|
./pkg/exf/exf_summary.F |
200 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
202 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
203 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
82 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' EXF general parameters:' |
|
./pkg/exf/exf_summary.F |
83 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
./pkg/exf/exf_summary.F |
85 |
EXF_SUMMARY |
WRITE(msgBuf,'(A)') ' ' |
|
./pkg/exf/exf_summary.F |
86 |
EXF_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |