| File |
Line number |
Procedure |
Code |
|
./pkg/chronos/chronos.F |
140 |
GET_ALARM |
integer myid,n,nalarm,nsecf |
|
./pkg/chronos/chronos.F |
143 |
GET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/chronos/chronos.F |
145 |
GET_ALARM |
myid = 1 |
|
./pkg/chronos/chronos.F |
167 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/chronos/chronos.F |
223 |
SET_TIME |
integer myid |
|
./pkg/chronos/chronos.F |
226 |
SET_TIME |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/chronos/chronos.F |
228 |
SET_TIME |
myid = 1 |
|
./pkg/chronos/chronos.F |
230 |
SET_TIME |
if( myid.eq.1 ) then |
|
./pkg/chronos/chronos.F |
40 |
SET_ALARM |
integer myid |
|
./pkg/chronos/chronos.F |
46 |
SET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/chronos/chronos.F |
48 |
SET_ALARM |
myid = 1 |
|
./pkg/chronos/chronos.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) date,time,freq,tags(1) |
|
./pkg/chronos/chronos.F |
63 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./pkg/chronos/chronos.F |
79 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./pkg/chronos/chronos.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
122 |
SWRIO |
if (first .and. myid.eq.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
18 |
SWRIO |
integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
227 |
SWRIO |
if(diagnostics_is_on('CLDFRC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
228 |
SWRIO |
call DIAGNOSTICS_FILL(totcld,'CLDFRC ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
231 |
SWRIO |
if(diagnostics_is_on('CLDRAS ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
238 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
242 |
SWRIO |
if(diagnostics_is_on('CLDTOT ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
249 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
253 |
SWRIO |
if(diagnostics_is_on('CLDLOW ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
254 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
257 |
SWRIO |
if(diagnostics_is_on('CLDMID ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
258 |
SWRIO |
call DIAGNOSTICS_FILL(cldmid,'CLDMID ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
261 |
SWRIO |
if(diagnostics_is_on('CLDHI ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
262 |
SWRIO |
call DIAGNOSTICS_FILL(cldhi,'CLDHI ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
265 |
SWRIO |
if(diagnostics_is_on('LZRAD ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
272 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'LZRAD ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
278 |
SWRIO |
if(diagnostics_is_on('ALBVISDR',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
279 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
282 |
SWRIO |
if(diagnostics_is_on('ALBVISDF',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
283 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
286 |
SWRIO |
if(diagnostics_is_on('ALBNIRDR',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
287 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
290 |
SWRIO |
if(diagnostics_is_on('ALBNIRDF',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
291 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
310 |
SWRIO |
if(diagnostics_is_on('TAUAVE ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
317 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
321 |
SWRIO |
if(diagnostics_is_on('TAUCLD ',myid) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
322 |
SWRIO |
. diagnostics_is_on('TAUCLDC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
335 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
336 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
342 |
SWRIO |
if(diagnostics_is_on('TAULOW ',myid) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
343 |
SWRIO |
. diagnostics_is_on('TAULOWC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
357 |
SWRIO |
call DIAGNOSTICS_FILL(taulow,'TAULOW ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
358 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
361 |
SWRIO |
if(diagnostics_is_on('TAUMID ',myid) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
362 |
SWRIO |
. diagnostics_is_on('TAUMIDC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
376 |
SWRIO |
call DIAGNOSTICS_FILL(taumid,'TAUMID ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
377 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
380 |
SWRIO |
if(diagnostics_is_on('TAUHI ',myid) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
381 |
SWRIO |
. diagnostics_is_on('TAUHIC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
395 |
SWRIO |
call DIAGNOSTICS_FILL(tauhi,'TAUHI ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
396 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
503 |
SWRIO |
if(diagnostics_is_on('ALBEDO ',myid) .and. |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
504 |
SWRIO |
. diagnostics_is_on('ALBEDOC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
516 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
517 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
5 |
SWRIO |
subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1033 |
TURBIO |
if(diagnostics_is_on('EVAP ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1038 |
TURBIO |
. .false., 'EVAP ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1040 |
TURBIO |
if(diagnostics_is_on('EFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1045 |
TURBIO |
. .false., 'EFLUX ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1047 |
TURBIO |
if(diagnostics_is_on('HFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1052 |
TURBIO |
. .false., 'HFLUX ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1054 |
TURBIO |
if(diagnostics_is_on('TUFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1056 |
TURBIO |
. .false., 'TUFLUX ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1058 |
TURBIO |
if(diagnostics_is_on('TVFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1060 |
TURBIO |
. .false., 'TVFLUX ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1062 |
TURBIO |
if(diagnostics_is_on('TTFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1069 |
TURBIO |
. .false., 'TTFLUX ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1071 |
TURBIO |
if(diagnostics_is_on('TQFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1078 |
TURBIO |
. .false., 'TQFLUX ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1080 |
TURBIO |
if(diagnostics_is_on('RI ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1082 |
TURBIO |
. .false., 'RI ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1084 |
TURBIO |
if(diagnostics_is_on('KH ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1086 |
TURBIO |
. .false., 'KH ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1088 |
TURBIO |
if(diagnostics_is_on('KM ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1090 |
TURBIO |
. .false., 'KM ', 0, nlay, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1092 |
TURBIO |
if(diagnostics_is_on('CT ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1094 |
TURBIO |
. .false., 'CT ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1096 |
TURBIO |
if(diagnostics_is_on('CU ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1098 |
TURBIO |
. .false., 'CU ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1100 |
TURBIO |
if(diagnostics_is_on('WINDS ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1102 |
TURBIO |
. .false., 'WINDS ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1104 |
TURBIO |
if(diagnostics_is_on('UFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1106 |
TURBIO |
. nn,.false., 'UFLUX ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1108 |
TURBIO |
if(diagnostics_is_on('VFLUX ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1110 |
TURBIO |
. nn,.false., 'VFLUX ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1112 |
TURBIO |
if(diagnostics_is_on('USTAR ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1114 |
TURBIO |
. .false., 'USTAR ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1116 |
TURBIO |
if(diagnostics_is_on('Z0 ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1118 |
TURBIO |
. .false., 'Z0 ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1120 |
TURBIO |
if(diagnostics_is_on('FRQTRB ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1122 |
TURBIO |
. .false., 'FRQTRB ', 0, nlay-1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1124 |
TURBIO |
if(diagnostics_is_on('PBL ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1126 |
TURBIO |
. .false., 'PBL ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1128 |
TURBIO |
if(diagnostics_is_on('U2M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1130 |
TURBIO |
. .false., 'U2M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1132 |
TURBIO |
if(diagnostics_is_on('V2M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1134 |
TURBIO |
. .false., 'V2M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1136 |
TURBIO |
if(diagnostics_is_on('T2M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1138 |
TURBIO |
. .false., 'T2M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1140 |
TURBIO |
if(diagnostics_is_on('Q2M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1149 |
TURBIO |
. .false., 'Q2M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1151 |
TURBIO |
if(diagnostics_is_on('U10M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1153 |
TURBIO |
. .false., 'U10M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1155 |
TURBIO |
if(diagnostics_is_on('V10M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1157 |
TURBIO |
. .false., 'V10M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1159 |
TURBIO |
if(diagnostics_is_on('T10M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1161 |
TURBIO |
. .false., 'T10M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1163 |
TURBIO |
if(diagnostics_is_on('Q10M ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1172 |
TURBIO |
. .false., 'Q10M ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1179 |
TURBIO |
if(diagnostics_is_on('TDEEP ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1181 |
TURBIO |
. .false., 'TDEEP ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1183 |
TURBIO |
if(diagnostics_is_on('QCANOPY ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1185 |
TURBIO |
. .false., 'QCANOPY ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1187 |
TURBIO |
if(diagnostics_is_on('SMSHAL ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1189 |
TURBIO |
. .false., 'SMSHAL ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1191 |
TURBIO |
if(diagnostics_is_on('SMROOT ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1193 |
TURBIO |
. .false., 'SMROOT ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1195 |
TURBIO |
if(diagnostics_is_on('SMDEEP ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1197 |
TURBIO |
. .false., 'SMDEEP ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1199 |
TURBIO |
if(diagnostics_is_on('CAPACITY',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1201 |
TURBIO |
. .false., 'CAPACITY', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1203 |
TURBIO |
if(diagnostics_is_on('SNOW ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1205 |
TURBIO |
. .false., 'SNOW ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1289 |
TURBIO |
if(diagnostics_is_on('TRBFCC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1290 |
TURBIO |
call DIAGNOSTICS_FILL(fcctmp(i,j,L),'TRBFCC ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1292 |
TURBIO |
if(diagnostics_is_on('TRBQLIQ ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1298 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TRBQLIQ ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
129 |
TURBIO |
integer myid |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1316 |
TURBIO |
if(diagnostics_is_on('TGROUND ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1317 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1319 |
TURBIO |
if(diagnostics_is_on('TCANOPY ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1320 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1323 |
TURBIO |
if(diagnostics_is_on('TS ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1329 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1332 |
TURBIO |
if(diagnostics_is_on('DTG ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1333 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'DTG ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1341 |
TURBIO |
if(diagnostics_is_on('TURBV ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1347 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBV ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1350 |
TURBIO |
if(diagnostics_is_on('TURBU ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1356 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBU ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1359 |
TURBIO |
if(diagnostics_is_on('TURBQ ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1365 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBQ ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1368 |
TURBIO |
if(diagnostics_is_on('TURBT ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
1374 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
15 |
TURBIO |
2 ,qqgrid,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
320 |
TURBIO |
if( myid.eq.1 .and. bi.eq.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
335 |
TURBIO |
if(diagnostics_is_on('DTG ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
341 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTG ',0,1,-3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
454 |
TURBIO |
if(diagnostics_is_on('QICE ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
459 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
557 |
TURBIO |
if(diagnostics_is_on('QG ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
562 |
TURBIO |
. .false., 'QG ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
607 |
TURBIO |
if(diagnostics_is_on('DTSRF ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
612 |
TURBIO |
. .false., 'DTSRF ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
721 |
TURBIO |
if(diagnostics_is_on('SNOWFALL',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
726 |
TURBIO |
. .false., 'SNOWFALL', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
728 |
TURBIO |
if(diagnostics_is_on('RAINCON ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
733 |
TURBIO |
. .false., 'RAINCON ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
735 |
TURBIO |
if(diagnostics_is_on('RAINLSP ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
740 |
TURBIO |
. .false., 'RAINLSP ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
742 |
TURBIO |
if(diagnostics_is_on('GREEN ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
744 |
TURBIO |
. .false., 'GREEN ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
746 |
TURBIO |
if(diagnostics_is_on('LAI ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
748 |
TURBIO |
. .false., 'LAI ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
750 |
TURBIO |
if(diagnostics_is_on('PARDR ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
752 |
TURBIO |
. .false., 'PARDR ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
754 |
TURBIO |
if(diagnostics_is_on('PARDF ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
756 |
TURBIO |
. .false., 'PARDF ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
758 |
TURBIO |
if(diagnostics_is_on('DLWDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
760 |
TURBIO |
. .false., 'DLWDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
762 |
TURBIO |
if(diagnostics_is_on('DHDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
764 |
TURBIO |
. .false., 'DHDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
766 |
TURBIO |
if(diagnostics_is_on('DEDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
768 |
TURBIO |
. .false., 'DEDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
770 |
TURBIO |
if(diagnostics_is_on('DHDQA ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
772 |
TURBIO |
. .false., 'DHDQA ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
774 |
TURBIO |
if(diagnostics_is_on('DEDQA ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
776 |
TURBIO |
. .false., 'DEDQA ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
778 |
TURBIO |
if(diagnostics_is_on('LWGDOWN ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
780 |
TURBIO |
. .false., 'LWGDOWN ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
815 |
TURBIO |
if(diagnostics_is_on('RUNOFF ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
817 |
TURBIO |
. .false., 'RUNOFF ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
819 |
TURBIO |
if(diagnostics_is_on('FWSOIL ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
821 |
TURBIO |
. .false., 'FWSOIL ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
823 |
TURBIO |
if(diagnostics_is_on('GDRAIN ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
825 |
TURBIO |
. .false., 'GDRAIN ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
827 |
TURBIO |
if(diagnostics_is_on('SNOWMELT',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
829 |
TURBIO |
. .false., 'SNOWMELT', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
831 |
TURBIO |
if(diagnostics_is_on('EVEG ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
833 |
TURBIO |
. .false., 'EVEG ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
835 |
TURBIO |
if(diagnostics_is_on('ESNOW ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
837 |
TURBIO |
. .false., 'ESNOW ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
839 |
TURBIO |
if(diagnostics_is_on('ESOIL ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
841 |
TURBIO |
. .false., 'ESOIL ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
843 |
TURBIO |
if(diagnostics_is_on('ERESV ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
845 |
TURBIO |
. .false., 'ERESV ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
847 |
TURBIO |
if(diagnostics_is_on('EVPOT ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
849 |
TURBIO |
. .false., 'EVPOT ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
851 |
TURBIO |
if(diagnostics_is_on('DTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
853 |
TURBIO |
. .false., 'DTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
855 |
TURBIO |
if(diagnostics_is_on('DQC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
857 |
TURBIO |
. .false., 'DQC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
859 |
TURBIO |
if(diagnostics_is_on('TCDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
861 |
TURBIO |
. .false., 'TCDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
863 |
TURBIO |
if(diagnostics_is_on('RADDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
865 |
TURBIO |
. .false., 'RADDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
867 |
TURBIO |
if(diagnostics_is_on('SENSDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
869 |
TURBIO |
. .false., 'SENSDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
871 |
TURBIO |
if(diagnostics_is_on('LATDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
873 |
TURBIO |
. .false., 'LATDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
875 |
TURBIO |
if(diagnostics_is_on('TDDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
877 |
TURBIO |
. .false., 'TDDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
879 |
TURBIO |
if(diagnostics_is_on('QCDTC ',myid) ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
881 |
TURBIO |
. .false., 'QCDTC ', 1, 1, bi, bj, myid) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
233 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
307 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
4 |
DO_FIZHI |
subroutine DO_FIZHI(myIter,myid, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
141 |
GET_ALARM |
integer myid,n,nalarm,nsecf |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
144 |
GET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
146 |
GET_ALARM |
myid = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
168 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
287 |
SET_TIME |
integer myid |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
290 |
SET_TIME |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
292 |
SET_TIME |
myid = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
294 |
SET_TIME |
if( myid.eq.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
40 |
SET_ALARM |
integer myid |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
46 |
SET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
48 |
SET_ALARM |
myid = 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
63 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
79 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_clockstuff.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
4 |
DO_FIZHI |
subroutine DO_FIZHI(myIter,myid, |
|
./pkg/fizhi/fizhi_swrad.F |
122 |
SWRIO |
if (first .and. myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
18 |
SWRIO |
integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs |
|
./pkg/fizhi/fizhi_swrad.F |
226 |
SWRIO |
if(diagnostics_is_on('CLDFRC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
227 |
SWRIO |
call DIAGNOSTICS_FILL(totcld,'CLDFRC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
230 |
SWRIO |
if(diagnostics_is_on('CLDRAS ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
237 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
241 |
SWRIO |
if(diagnostics_is_on('CLDTOT ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
248 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
252 |
SWRIO |
if(diagnostics_is_on('CLDLOW ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
253 |
SWRIO |
call DIAGNOSTICS_FILL(cldlow,'CLDLOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
256 |
SWRIO |
if(diagnostics_is_on('CLDMID ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
257 |
SWRIO |
call DIAGNOSTICS_FILL(cldmid,'CLDMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
260 |
SWRIO |
if(diagnostics_is_on('CLDHI ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
261 |
SWRIO |
call DIAGNOSTICS_FILL(cldhi,'CLDHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
264 |
SWRIO |
if(diagnostics_is_on('LZRAD ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
271 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'LZRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
277 |
SWRIO |
if(diagnostics_is_on('ALBVISDR',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
278 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
281 |
SWRIO |
if(diagnostics_is_on('ALBVISDF',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
282 |
SWRIO |
call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
285 |
SWRIO |
if(diagnostics_is_on('ALBNIRDR',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
286 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
289 |
SWRIO |
if(diagnostics_is_on('ALBNIRDF',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
290 |
SWRIO |
call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
309 |
SWRIO |
if(diagnostics_is_on('TAUAVE ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
316 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
320 |
SWRIO |
if(diagnostics_is_on('TAUCLD ',myid) .and. |
|
./pkg/fizhi/fizhi_swrad.F |
321 |
SWRIO |
. diagnostics_is_on('TAUCLDC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
334 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
335 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
341 |
SWRIO |
if(diagnostics_is_on('TAULOW ',myid) .and. |
|
./pkg/fizhi/fizhi_swrad.F |
342 |
SWRIO |
. diagnostics_is_on('TAULOWC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
356 |
SWRIO |
call DIAGNOSTICS_FILL(taulow,'TAULOW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
357 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
360 |
SWRIO |
if(diagnostics_is_on('TAUMID ',myid) .and. |
|
./pkg/fizhi/fizhi_swrad.F |
361 |
SWRIO |
. diagnostics_is_on('TAUMIDC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
375 |
SWRIO |
call DIAGNOSTICS_FILL(taumid,'TAUMID ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
376 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
379 |
SWRIO |
if(diagnostics_is_on('TAUHI ',myid) .and. |
|
./pkg/fizhi/fizhi_swrad.F |
380 |
SWRIO |
. diagnostics_is_on('TAUHIC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
394 |
SWRIO |
call DIAGNOSTICS_FILL(tauhi,'TAUHI ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
395 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
502 |
SWRIO |
if(diagnostics_is_on('ALBEDO ',myid) .and. |
|
./pkg/fizhi/fizhi_swrad.F |
503 |
SWRIO |
. diagnostics_is_on('ALBEDOC ',myid) ) then |
|
./pkg/fizhi/fizhi_swrad.F |
515 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
516 |
SWRIO |
call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_swrad.F |
5 |
SWRIO |
subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_moist.F |
1071 |
MOISTIO |
if(diagnostics_is_on('CLDTMP ',myid) .and. |
|
./pkg/fizhi/fizhi_moist.F |
1072 |
MOISTIO |
. diagnostics_is_on('CTTCNT ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
1084 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1085 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1088 |
MOISTIO |
if(diagnostics_is_on('CLDPRS ',myid) .and. |
|
./pkg/fizhi/fizhi_moist.F |
1089 |
MOISTIO |
. diagnostics_is_on('CTPCNTC ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
1101 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1102 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1326 |
RNDCLOUD |
subroutine RNDCLOUD (iras,nrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
1328 |
RNDCLOUD |
integer n,iras,nrnd,myid |
|
./pkg/fizhi/fizhi_moist.F |
1346 |
RNDCLOUD |
if(first .and. myid.eq.1) print *,' NO RANDOM CLOUDS IN RAS ' |
|
./pkg/fizhi/fizhi_moist.F |
1372 |
RNDCLOUD |
if( myid.eq.1 ) print *, 'Creating Rand Numb Array in RNDCLOUD' |
|
./pkg/fizhi/fizhi_moist.F |
1374 |
RNDCLOUD |
if( myid.eq.1 ) print *, 'IRAS: ',iras,' IRAS0: ',iras0, |
|
./pkg/fizhi/fizhi_moist.F |
13 |
MOISTIO |
. lpnt,myid) |
|
./pkg/fizhi/fizhi_moist.F |
201 |
MOISTIO |
if(first .and. myid.eq.1 .and. bi.eq.1 ) then |
|
./pkg/fizhi/fizhi_moist.F |
304 |
MOISTIO |
call RNDCLOUD(iras,ncrnd,rnd,myid) |
|
./pkg/fizhi/fizhi_moist.F |
41 |
MOISTIO |
integer myid |
|
./pkg/fizhi/fizhi_moist.F |
824 |
MOISTIO |
if(diagnostics_is_on('PSUBCLD ',myid) .and. |
|
./pkg/fizhi/fizhi_moist.F |
825 |
MOISTIO |
. diagnostics_is_on('PSUBCLDC',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
826 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
827 |
MOISTIO |
call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
832 |
MOISTIO |
if(diagnostics_is_on('CLDNP ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
839 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDNP ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
845 |
MOISTIO |
if(diagnostics_is_on('MOISTT ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
853 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
859 |
MOISTIO |
if(diagnostics_is_on('MOISTQ ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
866 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
872 |
MOISTIO |
if(diagnostics_is_on('CLDMAS ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
880 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
886 |
MOISTIO |
if(diagnostics_is_on('DTRAIN ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
894 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
900 |
MOISTIO |
if(diagnostics_is_on('DTLS ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
908 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
914 |
MOISTIO |
if(diagnostics_is_on('DQLS ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
922 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'DQLS ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
928 |
MOISTIO |
if(diagnostics_is_on('PREACC ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
935 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PREACC ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_moist.F |
940 |
MOISTIO |
if(diagnostics_is_on('PRECON ',myid) ) then |
|
./pkg/fizhi/fizhi_moist.F |
947 |
MOISTIO |
call DIAGNOSTICS_FILL(tmpdiag,'PRECON ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
104 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('OSRCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
110 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
115 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('PLALBEDO',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
125 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
130 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('LWGUP ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
137 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGUP ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
13 |
FIZHI_STEP_DIAG |
integer myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer |
|
./pkg/fizhi/fizhi_step_diag.F |
142 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('RADLWG ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
149 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
154 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('LWGCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
161 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
169 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('DIABU ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
175 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
180 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('DIABV ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
186 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
191 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('DIABT ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
202 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
207 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('DIABQ ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
215 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
220 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('RADLW ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
229 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
234 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('LWCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
243 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'LWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
248 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('RADSW ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
256 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
261 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('SWCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
269 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWCLR ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
274 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('UWND ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
280 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'UWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
285 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('VWND ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
291 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VWND ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
296 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('TMPU ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
302 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TMPU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
307 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('TKE ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
313 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'TKE ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
318 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('SPHU ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
324 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SPHU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
333 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('VDTMOIST',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
352 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
357 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('VDTTURB ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
376 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
381 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('VDTRADLW',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
401 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
406 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('VDTRADSW',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
426 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
59 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('PS ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
subroutine FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
|
./pkg/fizhi/fizhi_step_diag.F |
60 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
65 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('RADSWT ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
66 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(radswt,'RADSWT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
71 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('RADSWG ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
77 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'RADSWG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
82 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('SWGCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
88 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
93 |
FIZHI_STEP_DIAG |
if(diagnostics_is_on('OSR ',myid) ) then |
|
./pkg/fizhi/fizhi_step_diag.F |
99 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(tmpdiag,'OSR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_driver.F |
141 |
FIZHI_DRIVER |
call GETPWHERE(myid,numpcheck,pcheckpress,pchecklevs) |
|
./pkg/fizhi/fizhi_driver.F |
160 |
FIZHI_DRIVER |
call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
183 |
FIZHI_DRIVER |
call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
208 |
FIZHI_DRIVER |
. myid) |
|
./pkg/fizhi/fizhi_driver.F |
215 |
FIZHI_DRIVER |
call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var, |
|
./pkg/fizhi/fizhi_driver.F |
221 |
FIZHI_DRIVER |
call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm, |
|
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
. .false.,myid) |
|
./pkg/fizhi/fizhi_driver.F |
51 |
FIZHI_DRIVER |
integer myid,im,jm,lm,bi,bj,ptracer,ntracer |
|
./pkg/fizhi/fizhi_driver.F |
5 |
FIZHI_DRIVER |
subroutine FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer, |
|
./pkg/fizhi/fizhi_alarms.F |
34 |
FIZHI_ALARMS |
integer myid |
|
./pkg/fizhi/fizhi_alarms.F |
43 |
FIZHI_ALARMS |
call MPI_COMM_RANK ( mpi_comm_world,myid,ierror ) |
|
./pkg/fizhi/fizhi_alarms.F |
45 |
FIZHI_ALARMS |
myid = 1 |
|
./pkg/fizhi/fizhi_alarms.F |
69 |
FIZHI_ALARMS |
if( myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_alarms.F |
92 |
FIZHI_ALARMS |
if( myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
205 |
GWDRAG |
if(diagnostics_is_on('GWDU ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
211 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
214 |
GWDRAG |
if(diagnostics_is_on('GWDV ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
220 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
223 |
GWDRAG |
if(diagnostics_is_on('GWDT ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
229 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
236 |
GWDRAG |
if(diagnostics_is_on('GWDUS ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
237 |
GWDRAG |
call DIAGNOSTICS_FILL(dragx,'GWDUS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
242 |
GWDRAG |
if(diagnostics_is_on('GWDVS ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
243 |
GWDRAG |
call DIAGNOSTICS_FILL(dragy,'GWDVS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
248 |
GWDRAG |
if(diagnostics_is_on('GWDUT ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
266 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDUT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
271 |
GWDRAG |
if(diagnostics_is_on('GWDVT ',myid) ) then |
|
./pkg/fizhi/fizhi_gwdrag.F |
289 |
GWDRAG |
call DIAGNOSTICS_FILL(tmpdiag,'GWDVT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_gwdrag.F |
43 |
GWDRAG |
integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal |
|
./pkg/fizhi/fizhi_gwdrag.F |
4 |
GWDRAG |
subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var, |
|
./pkg/fizhi/fizhi_rayleigh.F |
102 |
RAYLEIGH |
if(diagnostics_is_on('RFU ',myid) ) then |
|
./pkg/fizhi/fizhi_rayleigh.F |
108 |
RAYLEIGH |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
111 |
RAYLEIGH |
if(diagnostics_is_on('RFV ',myid) ) then |
|
./pkg/fizhi/fizhi_rayleigh.F |
117 |
RAYLEIGH |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
120 |
RAYLEIGH |
if(diagnostics_is_on('RFT ',myid) ) then |
|
./pkg/fizhi/fizhi_rayleigh.F |
126 |
RAYLEIGH |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_rayleigh.F |
38 |
RAYLEIGH |
integer myid,im,jm,lm,bi,bj |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_turb.F |
1000 |
TURBIO |
if(diagnostics_is_on('EFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1005 |
TURBIO |
. .false., 'EFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1007 |
TURBIO |
if(diagnostics_is_on('HFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1012 |
TURBIO |
. .false., 'HFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1014 |
TURBIO |
if(diagnostics_is_on('TUFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1016 |
TURBIO |
. .false., 'TUFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1018 |
TURBIO |
if(diagnostics_is_on('TVFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1020 |
TURBIO |
. .false., 'TVFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1022 |
TURBIO |
if(diagnostics_is_on('TTFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1029 |
TURBIO |
. .false., 'TTFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1031 |
TURBIO |
if(diagnostics_is_on('TQFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1038 |
TURBIO |
. .false., 'TQFLUX ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1040 |
TURBIO |
if(diagnostics_is_on('RI ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1042 |
TURBIO |
. .false., 'RI ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1044 |
TURBIO |
if(diagnostics_is_on('KH ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1046 |
TURBIO |
. .false., 'KH ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1048 |
TURBIO |
if(diagnostics_is_on('KM ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1050 |
TURBIO |
. .false., 'KM ', 0, nlay, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1052 |
TURBIO |
if(diagnostics_is_on('CT ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1054 |
TURBIO |
. .false., 'CT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1056 |
TURBIO |
if(diagnostics_is_on('CU ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1058 |
TURBIO |
. .false., 'CU ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1060 |
TURBIO |
if(diagnostics_is_on('WINDS ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1062 |
TURBIO |
. .false., 'WINDS ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1064 |
TURBIO |
if(diagnostics_is_on('UFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1066 |
TURBIO |
. nn,.false., 'UFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1068 |
TURBIO |
if(diagnostics_is_on('VFLUX ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1070 |
TURBIO |
. nn,.false., 'VFLUX ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1072 |
TURBIO |
if(diagnostics_is_on('USTAR ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1074 |
TURBIO |
. .false., 'USTAR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1076 |
TURBIO |
if(diagnostics_is_on('Z0 ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1078 |
TURBIO |
. .false., 'Z0 ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1080 |
TURBIO |
if(diagnostics_is_on('FRQTRB ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1082 |
TURBIO |
. .false., 'FRQTRB ', 0, nlay-1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1084 |
TURBIO |
if(diagnostics_is_on('PBL ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1086 |
TURBIO |
. .false., 'PBL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1088 |
TURBIO |
if(diagnostics_is_on('U2M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1090 |
TURBIO |
. .false., 'U2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1092 |
TURBIO |
if(diagnostics_is_on('V2M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1094 |
TURBIO |
. .false., 'V2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1096 |
TURBIO |
if(diagnostics_is_on('T2M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1098 |
TURBIO |
. .false., 'T2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1100 |
TURBIO |
if(diagnostics_is_on('Q2M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1109 |
TURBIO |
. .false., 'Q2M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1111 |
TURBIO |
if(diagnostics_is_on('U10M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1113 |
TURBIO |
. .false., 'U10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1115 |
TURBIO |
if(diagnostics_is_on('V10M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1117 |
TURBIO |
. .false., 'V10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1119 |
TURBIO |
if(diagnostics_is_on('T10M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1121 |
TURBIO |
. .false., 'T10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1123 |
TURBIO |
if(diagnostics_is_on('Q10M ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1132 |
TURBIO |
. .false., 'Q10M ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1139 |
TURBIO |
if(diagnostics_is_on('TDEEP ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1141 |
TURBIO |
. .false., 'TDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1143 |
TURBIO |
if(diagnostics_is_on('QCANOPY ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1145 |
TURBIO |
. .false., 'QCANOPY ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1147 |
TURBIO |
if(diagnostics_is_on('SMSHAL ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1149 |
TURBIO |
. .false., 'SMSHAL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1151 |
TURBIO |
if(diagnostics_is_on('SMROOT ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1153 |
TURBIO |
. .false., 'SMROOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1155 |
TURBIO |
if(diagnostics_is_on('SMDEEP ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1157 |
TURBIO |
. .false., 'SMDEEP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1159 |
TURBIO |
if(diagnostics_is_on('CAPACITY',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1161 |
TURBIO |
. .false., 'CAPACITY', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1163 |
TURBIO |
if(diagnostics_is_on('SNOW ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1165 |
TURBIO |
. .false., 'SNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
1249 |
TURBIO |
if(diagnostics_is_on('TRBFCC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1250 |
TURBIO |
call DIAGNOSTICS_FILL(fcctmp(i,j,L),'TRBFCC ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1252 |
TURBIO |
if(diagnostics_is_on('TRBQLIQ ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1258 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TRBQLIQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1276 |
TURBIO |
if(diagnostics_is_on('TGROUND ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1277 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1279 |
TURBIO |
if(diagnostics_is_on('TCANOPY ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1280 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1283 |
TURBIO |
if(diagnostics_is_on('TS ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1289 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TS ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1292 |
TURBIO |
if(diagnostics_is_on('DTG ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1293 |
TURBIO |
call DIAGNOSTICS_FILL(tgz,'DTG ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
129 |
TURBIO |
integer myid |
|
./pkg/fizhi/fizhi_turb.F |
1301 |
TURBIO |
if(diagnostics_is_on('TURBV ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1307 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBV ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1310 |
TURBIO |
if(diagnostics_is_on('TURBU ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1316 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBU ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1319 |
TURBIO |
if(diagnostics_is_on('TURBQ ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1325 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBQ ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
1328 |
TURBIO |
if(diagnostics_is_on('TURBT ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
1334 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'TURBT ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
15 |
TURBIO |
2 ,qqgrid,myid) |
|
./pkg/fizhi/fizhi_turb.F |
320 |
TURBIO |
if( myid.eq.1 .and. bi.eq.1 ) then |
|
./pkg/fizhi/fizhi_turb.F |
335 |
TURBIO |
if(diagnostics_is_on('DTG ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
341 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'DTG ',0,1,-3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
454 |
TURBIO |
if(diagnostics_is_on('QICE ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
459 |
TURBIO |
call DIAGNOSTICS_FILL(tmpdiag,'QICE ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
557 |
TURBIO |
if(diagnostics_is_on('QG ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
562 |
TURBIO |
. .false., 'QG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
607 |
TURBIO |
if(diagnostics_is_on('DTSRF ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
612 |
TURBIO |
. .false., 'DTSRF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
697 |
TURBIO |
if(diagnostics_is_on('SNOWFALL',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
702 |
TURBIO |
. .false., 'SNOWFALL', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
704 |
TURBIO |
if(diagnostics_is_on('RAINCON ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
709 |
TURBIO |
. .false., 'RAINCON ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
711 |
TURBIO |
if(diagnostics_is_on('RAINLSP ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
716 |
TURBIO |
. .false., 'RAINLSP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
718 |
TURBIO |
if(diagnostics_is_on('GREEN ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
720 |
TURBIO |
. .false., 'GREEN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
722 |
TURBIO |
if(diagnostics_is_on('LAI ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
724 |
TURBIO |
. .false., 'LAI ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
726 |
TURBIO |
if(diagnostics_is_on('PARDR ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
728 |
TURBIO |
. .false., 'PARDR ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
730 |
TURBIO |
if(diagnostics_is_on('PARDF ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
732 |
TURBIO |
. .false., 'PARDF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
734 |
TURBIO |
if(diagnostics_is_on('DLWDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
736 |
TURBIO |
. .false., 'DLWDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
738 |
TURBIO |
if(diagnostics_is_on('DHDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
740 |
TURBIO |
. .false., 'DHDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
742 |
TURBIO |
if(diagnostics_is_on('DEDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
744 |
TURBIO |
. .false., 'DEDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
746 |
TURBIO |
if(diagnostics_is_on('DHDQA ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
748 |
TURBIO |
. .false., 'DHDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
750 |
TURBIO |
if(diagnostics_is_on('DEDQA ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
752 |
TURBIO |
. .false., 'DEDQA ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
754 |
TURBIO |
if(diagnostics_is_on('LWGDOWN ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
756 |
TURBIO |
. .false., 'LWGDOWN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
791 |
TURBIO |
if(diagnostics_is_on('RUNOFF ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
793 |
TURBIO |
. .false., 'RUNOFF ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
795 |
TURBIO |
if(diagnostics_is_on('FWSOIL ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
797 |
TURBIO |
. .false., 'FWSOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
799 |
TURBIO |
if(diagnostics_is_on('GDRAIN ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
801 |
TURBIO |
. .false., 'GDRAIN ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
803 |
TURBIO |
if(diagnostics_is_on('SNOWMELT',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
805 |
TURBIO |
. .false., 'SNOWMELT', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
807 |
TURBIO |
if(diagnostics_is_on('EVEG ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
809 |
TURBIO |
. .false., 'EVEG ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
811 |
TURBIO |
if(diagnostics_is_on('ESNOW ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
813 |
TURBIO |
. .false., 'ESNOW ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
815 |
TURBIO |
if(diagnostics_is_on('ESOIL ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
817 |
TURBIO |
. .false., 'ESOIL ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
819 |
TURBIO |
if(diagnostics_is_on('ERESV ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
821 |
TURBIO |
. .false., 'ERESV ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
823 |
TURBIO |
if(diagnostics_is_on('EVPOT ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
825 |
TURBIO |
. .false., 'EVPOT ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
827 |
TURBIO |
if(diagnostics_is_on('DTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
829 |
TURBIO |
. .false., 'DTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
831 |
TURBIO |
if(diagnostics_is_on('DQC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
833 |
TURBIO |
. .false., 'DQC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
835 |
TURBIO |
if(diagnostics_is_on('TCDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
837 |
TURBIO |
. .false., 'TCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
839 |
TURBIO |
if(diagnostics_is_on('RADDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
841 |
TURBIO |
. .false., 'RADDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
843 |
TURBIO |
if(diagnostics_is_on('SENSDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
845 |
TURBIO |
. .false., 'SENSDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
847 |
TURBIO |
if(diagnostics_is_on('LATDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
849 |
TURBIO |
. .false., 'LATDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
851 |
TURBIO |
if(diagnostics_is_on('TDDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
853 |
TURBIO |
. .false., 'TDDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
855 |
TURBIO |
if(diagnostics_is_on('QCDTC ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
857 |
TURBIO |
. .false., 'QCDTC ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_turb.F |
993 |
TURBIO |
if(diagnostics_is_on('EVAP ',myid) ) then |
|
./pkg/fizhi/fizhi_turb.F |
998 |
TURBIO |
. .false., 'EVAP ', 1, 1, bi, bj, myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
19 |
LWRIO |
integer nymd,nhms,istrip,npcs,bi,bj,myid |
|
./pkg/fizhi/fizhi_lwrad.F |
281 |
LWRIO |
if(diagnostics_is_on('TGRLW ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
282 |
LWRIO |
call DIAGNOSTICS_FILL(tgz,'TGRLW ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
287 |
LWRIO |
if(diagnostics_is_on('TLW ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
293 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'TLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
296 |
LWRIO |
if(diagnostics_is_on('SHRAD ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
302 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'SHRAD ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
305 |
LWRIO |
if(diagnostics_is_on('OZLW ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
311 |
LWRIO |
call DIAGNOSTICS_FILL(tmpdiag,'OZLW ',L,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
316 |
LWRIO |
if(diagnostics_is_on('OLR ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
317 |
LWRIO |
call DIAGNOSTICS_FILL(tempor1,'OLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
320 |
LWRIO |
if(diagnostics_is_on('OLRCLR ',myid) ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
321 |
LWRIO |
call DIAGNOSTICS_FILL(tempor2,'OLRCLR ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_lwrad.F |
5 |
LWRIO |
subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/do_fizhi.F |
232 |
DO_FIZHI |
call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats, |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |
|
./pkg/fizhi/do_fizhi.F |
34 |
DO_FIZHI |
integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2 |
|
./pkg/fizhi/do_fizhi.F |
4 |
DO_FIZHI |
subroutine DO_FIZHI(myIter,myid, |
|
./pkg/fizhi/fizhi_clockstuff.F |
141 |
GET_ALARM |
integer myid,n,nalarm,nsecf |
|
./pkg/fizhi/fizhi_clockstuff.F |
144 |
GET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
146 |
GET_ALARM |
myid = 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
168 |
GET_ALARM |
if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag |
|
./pkg/fizhi/fizhi_clockstuff.F |
287 |
SET_TIME |
integer myid |
|
./pkg/fizhi/fizhi_clockstuff.F |
290 |
SET_TIME |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
292 |
SET_TIME |
myid = 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
294 |
SET_TIME |
if( myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
40 |
SET_ALARM |
integer myid |
|
./pkg/fizhi/fizhi_clockstuff.F |
46 |
SET_ALARM |
call MPI_COMM_RANK ( mpi_comm_model,myid,ierror ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
48 |
SET_ALARM |
myid = 1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
57 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1) |
|
./pkg/fizhi/fizhi_clockstuff.F |
63 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
79 |
SET_ALARM |
if( myid.eq.1 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
90 |
SET_ALARM |
if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags) |
|
./pkg/compon_communic/mitcomponent_register.F |
10 |
MITCOMPONENT_REGISTER |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcplr_init2a.F |
10 |
MITCPLR_INIT2A |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
16 |
MITCPLR_INIT2A |
call MPI_COMM_RANK( MPI_COMM_myglobal, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
18 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
24 |
MITCPLR_INIT2A |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init2a.F |
33 |
MITCPLR_INIT2A |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcplr_init2a.F |
75 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
79 |
MITCPLR_INIT2A |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
84 |
MITCPLR_INIT2A |
my_rank_in_global=myid |
|
./pkg/compon_communic/mitcomponent_init.F |
11 |
MITCOMPONENT_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcplr_init1.F |
103 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
107 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
110 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
11 |
MITCPLR_INIT1 |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcplr_init1.F |
121 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
134 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
144 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
155 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
165 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
186 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
194 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
198 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
200 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
207 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
211 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
213 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
218 |
MITCPLR_INIT1 |
if ( couplerFlag ) j=myid |
|
./pkg/compon_communic/mitcplr_init1.F |
225 |
MITCPLR_INIT1 |
write(LogUnit,*) 'myid in MPI_COMM_World = ',myid |
|
./pkg/compon_communic/mitcplr_init1.F |
31 |
MITCPLR_INIT1 |
call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
32 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
33 |
MITCPLR_INIT1 |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
36 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
38 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
39 |
MITCPLR_INIT1 |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init1.F |
51 |
MITCPLR_INIT1 |
ibuf(1)=myid |
|
./pkg/compon_communic/mitcplr_init1.F |
65 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
68 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
79 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init2b.F |
10 |
MITCPLR_INIT2B |
integer myid, numprocs, ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
22 |
MITCPLR_INIT2B |
call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
24 |
MITCPLR_INIT2B |
& ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
30 |
MITCPLR_INIT2B |
& ' Rank/Size = ',myid,' /',numprocs |
|
./pkg/compon_communic/mitcplr_init2b.F |
41 |
MITCPLR_INIT2B |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcoupler_init.F |
11 |
MITCOUPLER_INIT |
integer myid, numprocs, ierr, rc |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
12 |
MITCOMPONENT_TILE_REGISTER |
integer myid, numprocs, ierr, rc |