29 SUBROUTINE process(kth,kpv,th,pv,iostatusD3D)
33 use mpi
, only: mpi_wtime
35 use ctlblk_mod, only: cfld, etafld2_tim, eta2p_tim, mdl2sigma_tim, surfce2_tim,&
36 mdl2agl_tim, mdl2std_tim, mdl2thandpv_tim, calrad_wcloud_tim,&
37 cldrad_tim, miscln_tim, fixed_tim, ntlfld, me, run_ifi_tim
43 integer,
intent(in) :: kth
44 integer,
intent(in) :: kpv
45 integer,
intent(in) :: iostatusd3d
46 real,
intent(in) :: th(kth)
47 real,
intent(in) :: pv(kpv)
49 CHARACTER*6 datset,proj
57 if(me==0)
write(*,*)
"PROCESS starts"
63 if(me==0)
write(*,*)
"PROCESS MDLFLD done"
64 etafld2_tim = etafld2_tim +(mpi_wtime() - btim)
68 CALL mdl2p(iostatusd3d)
69 if(me==0)
write(*,*)
"PROCESS MDL2P done"
70 eta2p_tim = eta2p_tim +(mpi_wtime() - btim)
75 if(me==0)
write(*,*)
"PROCESS MDL2SIGMA done"
77 if(me==0)
write(*,*)
"PROCESS MDL2SIGMA2 done"
78 mdl2sigma_tim = mdl2sigma_tim +(mpi_wtime() - btim)
83 if(me==0)
write(*,*)
"PROCESS MDL2AGL done"
84 mdl2agl_tim = mdl2agl_tim +(mpi_wtime() - btim)
89 if(me==0)
write(*,*)
"PROCESS SURFCE done"
90 surfce2_tim = surfce2_tim +(mpi_wtime() - btim)
95 if(me==0)
write(*,*)
"PROCESS CLDRAD done"
96 cldrad_tim = cldrad_tim +(mpi_wtime() - btim)
103 if(me==0)
write(*,*)
"PROCESS MISCLN done"
104 miscln_tim = miscln_tim +(mpi_wtime() - btim)
111 if(me==0)
write(*,*)
"PROCESS MDL2STD_P done"
112 mdl2std_tim = mdl2std_tim +(mpi_wtime() - btim)
117 if(me==0)
write(*,*)
"PROCESS FIXED done"
118 fixed_tim = fixed_tim +(mpi_wtime() - btim)
123 if(me==0)
write(*,*)
"PROCESS MDL2THANDPV done"
124 mdl2thandpv_tim = mdl2thandpv_tim +(mpi_wtime() - btim)
129 if(me==0)
write(*,*)
"PROCESS CALRAD_WCLOUD done"
130 calrad_wcloud_tim = calrad_wcloud_tim +(mpi_wtime() - btim)
135 run_ifi_tim = run_ifi_tim +(mpi_wtime()-btim)
140 if(me==0)print *,
'nTLFLD=',ntlfld
141 if(me==0)
write(*,*)
"PROCESS done"
subroutine mdl2thandpv(kth, kpv, th, pv)
mdl2thandpv() vertical interpolation of model levels to isentropic and potential vorticity levels...
subroutine mdl2sigma
SUBPROGRAM: MDL2P VERT INTRP OF MODEL LVLS TO PRESSURE PRGRMMR: BLACK ORG: W/NP22 DATE: 99-09-23...
subroutine mdl2agl
SUBPROGRAM: MDL2P VERT INTRP OF MODEL LVLS TO AGL HEIGHT PRGRMMR: CHUANG ORG: W/NP22 DATE: 05-05-23...
subroutine miscln
SUBPROGRAM: MISCLN POSTS MISCELLANEOUS FIELDS PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-20.
subroutine mdlfld
SUBPROGRAM: MDLFLD SLP AND NATIVE LEVEL POSTING PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-21...
subroutine fixed
SUBPROGRAM: FIXED POSTS FIXED FIELDS PRGRMMR: TREADON ORG: W/NP2 DATE: 93-08-30.
subroutine mdl2std_p()
mdl2std_p() vertical interpolation of model levels to standard atmospheric pressure.
subroutine surfce
SURFCE posts surface-based fields.
subroutine mdl2sigma2
SUBPROGRAM: MDL2P VERT INTRP OF MODEL LVLS TO PRESSURE PRGRMMR: BLACK ORG: W/NP22 DATE: 99-09-23...