SCALE-RM
Functions/Subroutines | Variables
mod_cpl_vars Module Reference

module COUPLER Variables More...

Functions/Subroutines

subroutine, public cpl_vars_setup
 Setup. More...
 
subroutine, public cpl_putatm (TEMP, PRES, W, U, V, DENS, QV, PBL, SFC_DENS, SFC_PRES, SFLX_rad_dn, cosSZA, SFLX_water, SFLX_ENGI, countup)
 
subroutine, public cpl_putocn (SFC_TEMP, SFC_albedo, SFC_Z0M, SFC_Z0H, SFC_Z0E, SFLX_MW, SFLX_MU, SFLX_MV, SFLX_SH, SFLX_LH, SFLX_GH, SFLX_QTRC, U10, V10, T2, Q2, mask, countup)
 
subroutine, public cpl_putlnd (SFC_TEMP, SFC_albedo, SFC_Z0M, SFC_Z0H, SFC_Z0E, SFLX_MW, SFLX_MU, SFLX_MV, SFLX_SH, SFLX_LH, SFLX_GH, SFLX_QTRC, U10, V10, T2, Q2, mask, countup)
 
subroutine, public cpl_puturb (SFC_TEMP, SFC_albedo, SFC_Z0M, SFC_Z0H, SFC_Z0E, SFLX_MW, SFLX_MU, SFLX_MV, SFLX_SH, SFLX_LH, SFLX_SHEX, SFLX_QVEX, SFLX_GH, SFLX_QTRC, U10, V10, T2, Q2, mask, countup)
 
subroutine, public cpl_getsfc_atm (SFC_TEMP, SFC_albedo, SFC_Z0M, SFC_Z0H, SFC_Z0E, SFLX_MW, SFLX_MU, SFLX_MV, SFLX_SH, SFLX_LH, SFLX_SHEX, SFLX_QVEX, SFLX_GH, SFLX_QTRC, SFLX_ENGI, U10, V10, T2, Q2)
 
subroutine, public cpl_getatm_ocn (TEMP, PRES, W, U, V, DENS, QV, PBL, SFC_DENS, SFC_PRES, SFLX_rad_dn, cosSZA, SFLX_water, SFLX_ENGI)
 
subroutine, public cpl_getatm_lnd (TEMP, PRES, W, U, V, DENS, QV, PBL, SFC_DENS, SFC_PRES, SFLX_rad_dn, cosSZA, SFLX_water, SFLX_ENGI)
 
subroutine, public cpl_getatm_urb (TEMP, PRES, W, U, V, DENS, QV, PBL, SFC_DENS, SFC_PRES, SFLX_rad_dn, cosSZA, SFLX_water, SFLX_ENGI)
 

Variables

real(rp), dimension(:,:), allocatable, public ocn_sfc_temp
 
real(rp), dimension(:,:,:,:), allocatable, public ocn_sfc_albedo
 
real(rp), dimension(:,:), allocatable, public ocn_sfc_z0m
 
real(rp), dimension(:,:), allocatable, public ocn_sfc_z0h
 
real(rp), dimension(:,:), allocatable, public ocn_sfc_z0e
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_mw
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_mu
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_mv
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_sh
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_lh
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_gh
 
real(rp), dimension(:,:,:), allocatable, public ocn_sflx_qtrc
 
real(rp), dimension(:,:), allocatable, public ocn_sflx_engi
 
real(rp), dimension(:,:), allocatable, public ocn_u10
 
real(rp), dimension(:,:), allocatable, public ocn_v10
 
real(rp), dimension(:,:), allocatable, public ocn_t2
 
real(rp), dimension(:,:), allocatable, public ocn_q2
 
real(rp), dimension(:,:), allocatable, public lnd_sfc_temp
 
real(rp), dimension(:,:,:,:), allocatable, public lnd_sfc_albedo
 
real(rp), dimension(:,:), allocatable, public lnd_sfc_z0m
 
real(rp), dimension(:,:), allocatable, public lnd_sfc_z0h
 
real(rp), dimension(:,:), allocatable, public lnd_sfc_z0e
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_mw
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_mu
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_mv
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_sh
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_lh
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_gh
 
real(rp), dimension(:,:,:), allocatable, public lnd_sflx_qtrc
 
real(rp), dimension(:,:), allocatable, public lnd_sflx_engi
 
real(rp), dimension(:,:), allocatable, public lnd_u10
 
real(rp), dimension(:,:), allocatable, public lnd_v10
 
real(rp), dimension(:,:), allocatable, public lnd_t2
 
real(rp), dimension(:,:), allocatable, public lnd_q2
 
real(rp), dimension(:,:), allocatable, public urb_sfc_temp
 
real(rp), dimension(:,:,:,:), allocatable, public urb_sfc_albedo
 
real(rp), dimension(:,:), allocatable, public urb_sfc_z0m
 
real(rp), dimension(:,:), allocatable, public urb_sfc_z0h
 
real(rp), dimension(:,:), allocatable, public urb_sfc_z0e
 
real(rp), dimension(:,:), allocatable, public urb_sflx_mw
 
real(rp), dimension(:,:), allocatable, public urb_sflx_mu
 
real(rp), dimension(:,:), allocatable, public urb_sflx_mv
 
real(rp), dimension(:,:), allocatable, public urb_sflx_sh
 
real(rp), dimension(:,:), allocatable, public urb_sflx_lh
 
real(rp), dimension(:,:), allocatable, public urb_sflx_shex
 
real(rp), dimension(:,:), allocatable, public urb_sflx_qvex
 
real(rp), dimension(:,:), allocatable, public urb_sflx_gh
 
real(rp), dimension(:,:,:), allocatable, public urb_sflx_qtrc
 
real(rp), dimension(:,:), allocatable, public urb_sflx_engi
 
real(rp), dimension(:,:), allocatable, public urb_u10
 
real(rp), dimension(:,:), allocatable, public urb_v10
 
real(rp), dimension(:,:), allocatable, public urb_t2
 
real(rp), dimension(:,:), allocatable, public urb_q2
 
real(rp), dimension(:,:), allocatable, public ocn_atm_temp
 
real(rp), dimension(:,:), allocatable, public ocn_atm_pres
 
real(rp), dimension(:,:), allocatable, public ocn_atm_w
 
real(rp), dimension(:,:), allocatable, public ocn_atm_u
 
real(rp), dimension(:,:), allocatable, public ocn_atm_v
 
real(rp), dimension(:,:), allocatable, public ocn_atm_dens
 
real(rp), dimension(:,:), allocatable, public ocn_atm_qv
 
real(rp), dimension(:,:), allocatable, public ocn_atm_pbl
 
real(rp), dimension(:,:), allocatable, public ocn_atm_sfc_dens
 
real(rp), dimension(:,:), allocatable, public ocn_atm_sfc_pres
 
real(rp), dimension(:,:,:,:), allocatable, public ocn_atm_sflx_rad_dn
 
real(rp), dimension(:,:), allocatable, public ocn_atm_cossza
 
real(rp), dimension(:,:), allocatable, public ocn_atm_sflx_water
 
real(rp), dimension(:,:), allocatable, public ocn_atm_sflx_engi
 
real(rp), dimension(:,:), allocatable, public lnd_atm_temp
 
real(rp), dimension(:,:), allocatable, public lnd_atm_pres
 
real(rp), dimension(:,:), allocatable, public lnd_atm_w
 
real(rp), dimension(:,:), allocatable, public lnd_atm_u
 
real(rp), dimension(:,:), allocatable, public lnd_atm_v
 
real(rp), dimension(:,:), allocatable, public lnd_atm_dens
 
real(rp), dimension(:,:), allocatable, public lnd_atm_qv
 
real(rp), dimension(:,:), allocatable, public lnd_atm_pbl
 
real(rp), dimension(:,:), allocatable, public lnd_atm_sfc_dens
 
real(rp), dimension(:,:), allocatable, public lnd_atm_sfc_pres
 
real(rp), dimension(:,:,:,:), allocatable, public lnd_atm_sflx_rad_dn
 
real(rp), dimension(:,:), allocatable, public lnd_atm_cossza
 
real(rp), dimension(:,:), allocatable, public lnd_atm_sflx_water
 
real(rp), dimension(:,:), allocatable, public lnd_atm_sflx_engi
 
real(rp), dimension(:,:), allocatable, public urb_atm_temp
 
real(rp), dimension(:,:), allocatable, public urb_atm_pres
 
real(rp), dimension(:,:), allocatable, public urb_atm_w
 
real(rp), dimension(:,:), allocatable, public urb_atm_u
 
real(rp), dimension(:,:), allocatable, public urb_atm_v
 
real(rp), dimension(:,:), allocatable, public urb_atm_dens
 
real(rp), dimension(:,:), allocatable, public urb_atm_qv
 
real(rp), dimension(:,:), allocatable, public urb_atm_pbl
 
real(rp), dimension(:,:), allocatable, public urb_atm_sfc_dens
 
real(rp), dimension(:,:), allocatable, public urb_atm_sfc_pres
 
real(rp), dimension(:,:,:,:), allocatable, public urb_atm_sflx_rad_dn
 
real(rp), dimension(:,:), allocatable, public urb_atm_cossza
 
real(rp), dimension(:,:), allocatable, public urb_atm_sflx_water
 
real(rp), dimension(:,:), allocatable, public urb_atm_sflx_engi
 
real(rp), public cnt_putatm_ocn
 
real(rp), public cnt_putatm_lnd
 
real(rp), public cnt_putatm_urb
 
real(rp), public cnt_putocn
 
real(rp), public cnt_putlnd
 
real(rp), public cnt_puturb
 

Detailed Description

module COUPLER Variables

Description
Container for coupler variables
Author
Team SCALE

Function/Subroutine Documentation

◆ cpl_vars_setup()

subroutine, public mod_cpl_vars::cpl_vars_setup

Setup.

Definition at line 175 of file mod_cpl_vars.F90.

175  use scale_const, only: &
176  undef => const_undef
177  use scale_prc, only: &
178  prc_abort
179  use scale_landuse, only: &
180  landuse_fact_ocean, &
181  landuse_fact_land, &
182  landuse_fact_urban, &
183  landuse_fact_lake
184  use scale_atmos_hydrometeor, only: &
185  atmos_hydrometeor_dry
186  use mod_ocean_admin, only: &
187  ocean_do
188  use mod_land_admin, only: &
189  land_do
190  use mod_urban_admin, only: &
191  urban_do
192  use mod_lake_admin, only: &
193  lake_do
194  implicit none
195 
196  real(RP) :: checkfact
197  !---------------------------------------------------------------------------
198 
199  log_newline
200  log_info("CPL_vars_setup",*) 'Setup'
201  log_info("CPL_vars_setup",*) 'No namelists.'
202 
203  ! Check consistency of OCEAN_do and LANDUSE_fact_ocean
204  checkfact = maxval( landuse_fact_ocean(:,:) )
205  if ( .NOT. ocean_do .AND. checkfact > 0.0_rp ) then
206  log_error("CPL_vars_setup",*) 'Ocean fraction exists, but ocean component has not been called. Please check this inconsistency. STOP.', checkfact
207  call prc_abort
208  endif
209 
210  ! Check consistency of LAND_do and LANDUSE_fact_land
211  checkfact = maxval( landuse_fact_land(:,:) )
212  if ( .NOT. land_do .AND. checkfact > 0.0_rp ) then
213  log_error("CPL_vars_setup",*) 'Land fraction exists, but land component has not been called. Please check this inconsistency. STOP.', checkfact
214  call prc_abort
215  endif
216 
217  ! Check consistency of URBAN_do and LANDUSE_fact_urban
218  checkfact = maxval( landuse_fact_urban(:,:) )
219  if ( .NOT. urban_do .AND. checkfact > 0.0_rp ) then
220  log_error("CPL_vars_setup",*) 'Urban fraction exists, but urban component has not been called. Please check this inconsistency. STOP.', checkfact
221  call prc_abort
222  endif
223 
224  ! Check consistency of LAKE_do and LANDUSE_fact_lake
225  checkfact = maxval( landuse_fact_lake(:,:) )
226  if ( .NOT. lake_do .AND. checkfact > 0.0_rp ) then
227  log_error("CPL_vars_setup",*) 'Lake fraction exists, but lake component has not been called. Please check this inconsistency. STOP.', checkfact
228  call prc_abort
229  endif
230 
231 
232  allocate( ocn_sfc_temp(ia,ja) )
233  allocate( ocn_sfc_albedo(ia,ja,n_rad_dir,n_rad_rgn) )
234  allocate( ocn_sfc_z0m(ia,ja) )
235  allocate( ocn_sfc_z0h(ia,ja) )
236  allocate( ocn_sfc_z0e(ia,ja) )
237  allocate( ocn_sflx_mu(ia,ja) )
238  allocate( ocn_sflx_mv(ia,ja) )
239  allocate( ocn_sflx_mw(ia,ja) )
240  allocate( ocn_sflx_sh(ia,ja) )
241  allocate( ocn_sflx_lh(ia,ja) )
242  allocate( ocn_sflx_gh(ia,ja) )
243  allocate( ocn_sflx_qtrc(ia,ja,qa) )
244  allocate( ocn_sflx_engi(ia,ja) )
245  allocate( ocn_u10(ia,ja) )
246  allocate( ocn_v10(ia,ja) )
247  allocate( ocn_t2(ia,ja) )
248  allocate( ocn_q2(ia,ja) )
249  ocn_sfc_temp(:,:) = undef
250  ocn_sfc_albedo(:,:,:,:) = undef
251  ocn_sfc_z0m(:,:) = undef
252  ocn_sfc_z0h(:,:) = undef
253  ocn_sfc_z0e(:,:) = undef
254  ocn_sflx_mu(:,:) = undef
255  ocn_sflx_mv(:,:) = undef
256  ocn_sflx_mw(:,:) = undef
257  ocn_sflx_sh(:,:) = undef
258  ocn_sflx_lh(:,:) = undef
259  ocn_sflx_gh(:,:) = undef
260  ocn_sflx_qtrc(:,:,:) = undef
261  ocn_sflx_engi(:,:) = undef
262  ocn_u10(:,:) = undef
263  ocn_v10(:,:) = undef
264  ocn_t2(:,:) = undef
265  ocn_q2(:,:) = undef
266 
267  allocate( lnd_sfc_temp(ia,ja) )
268  allocate( lnd_sfc_albedo(ia,ja,n_rad_dir,n_rad_rgn) )
269  allocate( lnd_sfc_z0m(ia,ja) )
270  allocate( lnd_sfc_z0h(ia,ja) )
271  allocate( lnd_sfc_z0e(ia,ja) )
272  allocate( lnd_sflx_mu(ia,ja) )
273  allocate( lnd_sflx_mv(ia,ja) )
274  allocate( lnd_sflx_mw(ia,ja) )
275  allocate( lnd_sflx_sh(ia,ja) )
276  allocate( lnd_sflx_lh(ia,ja) )
277  allocate( lnd_sflx_gh(ia,ja) )
278  allocate( lnd_sflx_qtrc(ia,ja,qa) )
279  allocate( lnd_sflx_engi(ia,ja) )
280  allocate( lnd_u10(ia,ja) )
281  allocate( lnd_v10(ia,ja) )
282  allocate( lnd_t2(ia,ja) )
283  allocate( lnd_q2(ia,ja) )
284  lnd_sfc_temp(:,:) = undef
285  lnd_sfc_albedo(:,:,:,:) = undef
286  lnd_sfc_z0m(:,:) = undef
287  lnd_sfc_z0h(:,:) = undef
288  lnd_sfc_z0e(:,:) = undef
289  lnd_sflx_mu(:,:) = undef
290  lnd_sflx_mv(:,:) = undef
291  lnd_sflx_mw(:,:) = undef
292  lnd_sflx_sh(:,:) = undef
293  lnd_sflx_lh(:,:) = undef
294  lnd_sflx_gh(:,:) = undef
295  lnd_sflx_qtrc(:,:,:) = undef
296  lnd_sflx_engi(:,:) = undef
297  lnd_u10(:,:) = undef
298  lnd_v10(:,:) = undef
299  lnd_t2(:,:) = undef
300  lnd_q2(:,:) = undef
301 
302  allocate( urb_sfc_temp(ia,ja) )
303  allocate( urb_sfc_albedo(ia,ja,n_rad_dir,n_rad_rgn) )
304  allocate( urb_sfc_z0m(ia,ja) )
305  allocate( urb_sfc_z0h(ia,ja) )
306  allocate( urb_sfc_z0e(ia,ja) )
307  allocate( urb_sflx_mu(ia,ja) )
308  allocate( urb_sflx_mv(ia,ja) )
309  allocate( urb_sflx_mw(ia,ja) )
310  allocate( urb_sflx_sh(ia,ja) )
311  allocate( urb_sflx_lh(ia,ja) )
312  allocate( urb_sflx_shex(ia,ja) )
313  allocate( urb_sflx_qvex(ia,ja) )
314  allocate( urb_sflx_gh(ia,ja) )
315  allocate( urb_sflx_qtrc(ia,ja,qa) )
316  allocate( urb_sflx_engi(ia,ja) )
317  allocate( urb_u10(ia,ja) )
318  allocate( urb_v10(ia,ja) )
319  allocate( urb_t2(ia,ja) )
320  allocate( urb_q2(ia,ja) )
321  urb_sfc_temp(:,:) = undef
322  urb_sfc_albedo(:,:,:,:) = undef
323  urb_sfc_z0m(:,:) = undef
324  urb_sfc_z0h(:,:) = undef
325  urb_sfc_z0e(:,:) = undef
326  urb_sflx_mu(:,:) = undef
327  urb_sflx_mv(:,:) = undef
328  urb_sflx_mw(:,:) = undef
329  urb_sflx_sh(:,:) = undef
330  urb_sflx_lh(:,:) = undef
331  urb_sflx_shex(:,:) = undef
332  urb_sflx_qvex(:,:) = undef
333  urb_sflx_gh(:,:) = undef
334  urb_sflx_qtrc(:,:,:) = undef
335  urb_sflx_engi(:,:) = undef
336  urb_u10(:,:) = undef
337  urb_v10(:,:) = undef
338  urb_t2(:,:) = undef
339  urb_q2(:,:) = undef
340 
341  allocate( ocn_atm_temp(ia,ja) )
342  allocate( ocn_atm_pres(ia,ja) )
343  allocate( ocn_atm_w(ia,ja) )
344  allocate( ocn_atm_u(ia,ja) )
345  allocate( ocn_atm_v(ia,ja) )
346  allocate( ocn_atm_dens(ia,ja) )
347  allocate( ocn_atm_qv(ia,ja) )
348  allocate( ocn_atm_pbl(ia,ja) )
349  allocate( ocn_atm_sfc_dens(ia,ja) )
350  allocate( ocn_atm_sfc_pres(ia,ja) )
351  allocate( ocn_atm_sflx_rad_dn(ia,ja,n_rad_dir,n_rad_rgn) )
352  allocate( ocn_atm_cossza(ia,ja) )
353  allocate( ocn_atm_sflx_water(ia,ja) )
354  allocate( ocn_atm_sflx_engi(ia,ja) )
355  ocn_atm_temp(:,:) = undef
356  ocn_atm_pres(:,:) = undef
357  ocn_atm_w(:,:) = undef
358  ocn_atm_u(:,:) = undef
359  ocn_atm_v(:,:) = undef
360  ocn_atm_dens(:,:) = undef
361  ocn_atm_qv(:,:) = undef
362  ocn_atm_pbl(:,:) = undef
363  ocn_atm_sfc_dens(:,:) = undef
364  ocn_atm_sfc_pres(:,:) = undef
365  ocn_atm_sflx_rad_dn(:,:,:,:) = undef
366  ocn_atm_cossza(:,:) = undef
367  ocn_atm_sflx_water(:,:) = undef
368  ocn_atm_sflx_engi(:,:) = undef
369 
370  allocate( lnd_atm_temp(ia,ja) )
371  allocate( lnd_atm_pres(ia,ja) )
372  allocate( lnd_atm_w(ia,ja) )
373  allocate( lnd_atm_u(ia,ja) )
374  allocate( lnd_atm_v(ia,ja) )
375  allocate( lnd_atm_dens(ia,ja) )
376  allocate( lnd_atm_qv(ia,ja) )
377  allocate( lnd_atm_pbl(ia,ja) )
378  allocate( lnd_atm_sfc_dens(ia,ja) )
379  allocate( lnd_atm_sfc_pres(ia,ja) )
380  allocate( lnd_atm_sflx_rad_dn(ia,ja,n_rad_dir,n_rad_rgn) )
381  allocate( lnd_atm_cossza(ia,ja) )
382  allocate( lnd_atm_sflx_water(ia,ja) )
383  allocate( lnd_atm_sflx_engi(ia,ja) )
384  lnd_atm_temp(:,:) = undef
385  lnd_atm_pres(:,:) = undef
386  lnd_atm_w(:,:) = undef
387  lnd_atm_u(:,:) = undef
388  lnd_atm_v(:,:) = undef
389  lnd_atm_dens(:,:) = undef
390  lnd_atm_qv(:,:) = undef
391  lnd_atm_pbl(:,:) = undef
392  lnd_atm_sfc_dens(:,:) = undef
393  lnd_atm_sfc_pres(:,:) = undef
394  lnd_atm_sflx_rad_dn(:,:,:,:) = undef
395  lnd_atm_cossza(:,:) = undef
396  lnd_atm_sflx_water(:,:) = undef
397  lnd_atm_sflx_engi(:,:) = undef
398 
399  allocate( urb_atm_temp(ia,ja) )
400  allocate( urb_atm_pres(ia,ja) )
401  allocate( urb_atm_w(ia,ja) )
402  allocate( urb_atm_u(ia,ja) )
403  allocate( urb_atm_v(ia,ja) )
404  allocate( urb_atm_dens(ia,ja) )
405  allocate( urb_atm_qv(ia,ja) )
406  allocate( urb_atm_pbl(ia,ja) )
407  allocate( urb_atm_sfc_dens(ia,ja) )
408  allocate( urb_atm_sfc_pres(ia,ja) )
409  allocate( urb_atm_sflx_rad_dn(ia,ja,n_rad_dir,n_rad_rgn) )
410  allocate( urb_atm_cossza(ia,ja) )
411  allocate( urb_atm_sflx_water(ia,ja) )
412  allocate( urb_atm_sflx_engi(ia,ja) )
413  urb_atm_temp(:,:) = undef
414  urb_atm_pres(:,:) = undef
415  urb_atm_w(:,:) = undef
416  urb_atm_u(:,:) = undef
417  urb_atm_v(:,:) = undef
418  urb_atm_dens(:,:) = undef
419  urb_atm_qv(:,:) = undef
420  urb_atm_pbl(:,:) = undef
421  urb_atm_sfc_dens(:,:) = undef
422  urb_atm_sfc_pres(:,:) = undef
423  urb_atm_sflx_rad_dn(:,:,:,:) = undef
424  urb_atm_cossza(:,:) = undef
425  urb_atm_sflx_water(:,:) = undef
426  urb_atm_sflx_engi(:,:) = undef
427 
428  ! counter intialize
429  cnt_putatm_ocn = 0.0_rp
430  cnt_putatm_lnd = 0.0_rp
431  cnt_putatm_urb = 0.0_rp
432  cnt_putocn = 0.0_rp
433  cnt_putlnd = 0.0_rp
434  cnt_puturb = 0.0_rp
435 
436  if ( atmos_hydrometeor_dry ) then
437  ocn_atm_qv = 0.0_rp
438  lnd_atm_qv = 0.0_rp
439  urb_atm_qv = 0.0_rp
440  endif
441 
442  return

References scale_atmos_hydrometeor::atmos_hydrometeor_dry, cnt_putatm_lnd, cnt_putatm_ocn, cnt_putatm_urb, cnt_putlnd, cnt_putocn, cnt_puturb, scale_const::const_undef, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ja, mod_lake_admin::lake_do, mod_land_admin::land_do, scale_landuse::landuse_fact_lake, scale_landuse::landuse_fact_land, scale_landuse::landuse_fact_ocean, scale_landuse::landuse_fact_urban, lnd_atm_cossza, lnd_atm_dens, lnd_atm_pbl, lnd_atm_pres, lnd_atm_qv, lnd_atm_sfc_dens, lnd_atm_sfc_pres, lnd_atm_sflx_engi, lnd_atm_sflx_rad_dn, lnd_atm_sflx_water, lnd_atm_temp, lnd_atm_u, lnd_atm_v, lnd_atm_w, lnd_q2, lnd_sfc_albedo, lnd_sfc_temp, lnd_sfc_z0e, lnd_sfc_z0h, lnd_sfc_z0m, lnd_sflx_engi, lnd_sflx_gh, lnd_sflx_lh, lnd_sflx_mu, lnd_sflx_mv, lnd_sflx_mw, lnd_sflx_qtrc, lnd_sflx_sh, lnd_t2, lnd_u10, lnd_v10, scale_cpl_sfc_index::n_rad_dir, scale_cpl_sfc_index::n_rad_rgn, mod_ocean_admin::ocean_do, ocn_atm_cossza, ocn_atm_dens, ocn_atm_pbl, ocn_atm_pres, ocn_atm_qv, ocn_atm_sfc_dens, ocn_atm_sfc_pres, ocn_atm_sflx_engi, ocn_atm_sflx_rad_dn, ocn_atm_sflx_water, ocn_atm_temp, ocn_atm_u, ocn_atm_v, ocn_atm_w, ocn_q2, ocn_sfc_albedo, ocn_sfc_temp, ocn_sfc_z0e, ocn_sfc_z0h, ocn_sfc_z0m, ocn_sflx_engi, ocn_sflx_gh, ocn_sflx_lh, ocn_sflx_mu, ocn_sflx_mv, ocn_sflx_mw, ocn_sflx_qtrc, ocn_sflx_sh, ocn_t2, ocn_u10, ocn_v10, scale_prc::prc_abort(), scale_tracer::qa, urb_atm_cossza, urb_atm_dens, urb_atm_pbl, urb_atm_pres, urb_atm_qv, urb_atm_sfc_dens, urb_atm_sfc_pres, urb_atm_sflx_engi, urb_atm_sflx_rad_dn, urb_atm_sflx_water, urb_atm_temp, urb_atm_u, urb_atm_v, urb_atm_w, urb_q2, urb_sfc_albedo, urb_sfc_temp, urb_sfc_z0e, urb_sfc_z0h, urb_sfc_z0m, urb_sflx_engi, urb_sflx_gh, urb_sflx_lh, urb_sflx_mu, urb_sflx_mv, urb_sflx_mw, urb_sflx_qtrc, urb_sflx_qvex, urb_sflx_sh, urb_sflx_shex, urb_t2, urb_u10, urb_v10, and mod_urban_admin::urban_do.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ cpl_putatm()

subroutine, public mod_cpl_vars::cpl_putatm ( real(rp), dimension (ia,ja), intent(in)  TEMP,
real(rp), dimension (ia,ja), intent(in)  PRES,
real(rp), dimension (ia,ja), intent(in)  W,
real(rp), dimension (ia,ja), intent(in)  U,
real(rp), dimension (ia,ja), intent(in)  V,
real(rp), dimension (ia,ja), intent(in)  DENS,
real(rp), dimension (ia,ja), intent(in)  QV,
real(rp), dimension (ia,ja), intent(in)  PBL,
real(rp), dimension (ia,ja), intent(in)  SFC_DENS,
real(rp), dimension (ia,ja), intent(in)  SFC_PRES,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(in)  SFLX_rad_dn,
real(rp), dimension (ia,ja), intent(in)  cosSZA,
real(rp), dimension (ia,ja), intent(in)  SFLX_water,
real(rp), dimension (ia,ja), intent(in)  SFLX_ENGI,
logical, intent(in)  countup 
)

Definition at line 462 of file mod_cpl_vars.F90.

462  use scale_atmos_hydrometeor, only: &
463  atmos_hydrometeor_dry, &
464  cv_water, &
465  cv_ice, &
466  lhf
467  implicit none
468 
469  real(RP), intent(in) :: TEMP (IA,JA)
470  real(RP), intent(in) :: PRES (IA,JA)
471  real(RP), intent(in) :: W (IA,JA)
472  real(RP), intent(in) :: U (IA,JA)
473  real(RP), intent(in) :: V (IA,JA)
474  real(RP), intent(in) :: DENS (IA,JA)
475  real(RP), intent(in) :: QV (IA,JA)
476  real(RP), intent(in) :: PBL (IA,JA)
477  real(RP), intent(in) :: SFC_DENS (IA,JA)
478  real(RP), intent(in) :: SFC_PRES (IA,JA)
479  real(RP), intent(in) :: SFLX_rad_dn(IA,JA,N_RAD_DIR,N_RAD_RGN)
480  real(RP), intent(in) :: cosSZA (IA,JA)
481  real(RP), intent(in) :: SFLX_water (IA,JA)
482  real(RP), intent(in) :: SFLX_ENGI (IA,JA)
483  logical, intent(in) :: countup
484 
485  integer :: i, j, idir, irgn
486  !---------------------------------------------------------------------------
487 
488  !$omp parallel do default(none) private(i,j,idir,irgn) OMP_SCHEDULE_ &
489  !$omp shared(JS,JE,IS,IE,OCN_ATM_TEMP,OCN_ATM_PRES,OCN_ATM_W,OCN_ATM_U) &
490  !$omp shared(OCN_ATM_V,OCN_ATM_DENS,CNT_putATM_OCN,TEMP,PRES,W,U,V,DENS) &
491  !$omp shared(ATMOS_HYDROMETEOR_dry,OCN_ATM_QV,OCN_ATM_PBL,OCN_ATM_SFC_DENS,OCN_ATM_SFC_PRES,OCN_ATM_SFLX_rad_dn) &
492  !$omp shared(OCN_ATM_cosSZA,OCN_ATM_SFLX_water,OCN_ATM_SFLX_ENGI,QV,PBL,SFC_DENS,SFC_PRES) &
493  !$omp shared(SFLX_rad_dn,cosSZA,SFLX_water,SFLX_ENGI) &
494  !$omp shared(LND_ATM_TEMP,LND_ATM_PRES,LND_ATM_W,LND_ATM_U,LND_ATM_V,LND_ATM_DENS) &
495  !$omp shared(LND_ATM_QV,LND_ATM_PBL,LND_ATM_SFC_DENS,LND_ATM_SFC_PRES,LND_ATM_SFLX_rad_dn,LND_ATM_cosSZA) &
496  !$omp shared(LND_ATM_SFLX_water,LND_ATM_SFLX_ENGI) &
497  !$omp shared(URB_ATM_TEMP,URB_ATM_PRES,URB_ATM_W,URB_ATM_U,URB_ATM_V,URB_ATM_DENS) &
498  !$omp shared(URB_ATM_QV,URB_ATM_PBL,URB_ATM_SFC_DENS,URB_ATM_SFC_PRES,URB_ATM_SFLX_rad_dn,URB_ATM_cosSZA) &
499  !$omp shared(URB_ATM_SFLX_water,URB_ATM_SFLX_ENGI,CNT_putATM_URB,CNT_putATM_LND)
500  do j = js, je
501  do i = is, ie
502  ! for ocean
503  ocn_atm_temp(i,j) = ocn_atm_temp(i,j) * cnt_putatm_ocn + temp(i,j)
504  ocn_atm_pres(i,j) = ocn_atm_pres(i,j) * cnt_putatm_ocn + pres(i,j)
505  ocn_atm_w(i,j) = ocn_atm_w(i,j) * cnt_putatm_ocn + w(i,j)
506  ocn_atm_u(i,j) = ocn_atm_u(i,j) * cnt_putatm_ocn + u(i,j)
507  ocn_atm_v(i,j) = ocn_atm_v(i,j) * cnt_putatm_ocn + v(i,j)
508  ocn_atm_dens(i,j) = ocn_atm_dens(i,j) * cnt_putatm_ocn + dens(i,j)
509  if ( .NOT. atmos_hydrometeor_dry ) &
510  ocn_atm_qv(i,j) = ocn_atm_qv(i,j) * cnt_putatm_ocn + qv(i,j)
511  ocn_atm_pbl(i,j) = ocn_atm_pbl(i,j) * cnt_putatm_ocn + pbl(i,j)
512  ocn_atm_sfc_dens(i,j) = ocn_atm_sfc_dens(i,j) * cnt_putatm_ocn + sfc_dens(i,j)
513  ocn_atm_sfc_pres(i,j) = ocn_atm_sfc_pres(i,j) * cnt_putatm_ocn + sfc_pres(i,j)
514  ocn_atm_cossza(i,j) = ocn_atm_cossza(i,j) * cnt_putatm_ocn + cossza(i,j)
515  ocn_atm_sflx_water(i,j) = ocn_atm_sflx_water(i,j) * cnt_putatm_ocn + sflx_water(i,j)
516  ocn_atm_sflx_engi(i,j) = ocn_atm_sflx_engi(i,j) * cnt_putatm_ocn + sflx_engi(i,j)
517  do irgn = i_r_ir, i_r_vis
518  do idir = i_r_direct, i_r_diffuse
519  ocn_atm_sflx_rad_dn(i,j,idir,irgn) = ocn_atm_sflx_rad_dn(i,j,idir,irgn) * cnt_putatm_ocn + sflx_rad_dn(i,j,idir,irgn)
520  enddo
521  enddo
522 
523  ! for land
524  lnd_atm_temp(i,j) = lnd_atm_temp(i,j) * cnt_putatm_lnd + temp(i,j)
525  lnd_atm_pres(i,j) = lnd_atm_pres(i,j) * cnt_putatm_lnd + pres(i,j)
526  lnd_atm_w(i,j) = lnd_atm_w(i,j) * cnt_putatm_lnd + w(i,j)
527  lnd_atm_u(i,j) = lnd_atm_u(i,j) * cnt_putatm_lnd + u(i,j)
528  lnd_atm_v(i,j) = lnd_atm_v(i,j) * cnt_putatm_lnd + v(i,j)
529  lnd_atm_dens(i,j) = lnd_atm_dens(i,j) * cnt_putatm_lnd + dens(i,j)
530  if ( .NOT. atmos_hydrometeor_dry ) &
531  lnd_atm_qv(i,j) = lnd_atm_qv(i,j) * cnt_putatm_lnd + qv(i,j)
532  lnd_atm_pbl(i,j) = lnd_atm_pbl(i,j) * cnt_putatm_lnd + pbl(i,j)
533  lnd_atm_sfc_dens(i,j) = lnd_atm_sfc_dens(i,j) * cnt_putatm_lnd + sfc_dens(i,j)
534  lnd_atm_sfc_pres(i,j) = lnd_atm_sfc_pres(i,j) * cnt_putatm_lnd + sfc_pres(i,j)
535  lnd_atm_cossza(i,j) = lnd_atm_cossza(i,j) * cnt_putatm_lnd + cossza(i,j)
536  lnd_atm_sflx_water(i,j) = lnd_atm_sflx_water(i,j) * cnt_putatm_lnd + sflx_water(i,j)
537  lnd_atm_sflx_engi(i,j) = lnd_atm_sflx_engi(i,j) * cnt_putatm_lnd + sflx_engi(i,j)
538  do irgn = i_r_ir, i_r_vis
539  do idir = i_r_direct, i_r_diffuse
540  lnd_atm_sflx_rad_dn(i,j,idir,irgn) = lnd_atm_sflx_rad_dn(i,j,idir,irgn) * cnt_putatm_lnd + sflx_rad_dn(i,j,idir,irgn)
541  enddo
542  enddo
543 
544  ! for urban
545  urb_atm_temp(i,j) = urb_atm_temp(i,j) * cnt_putatm_urb + temp(i,j)
546  urb_atm_pres(i,j) = urb_atm_pres(i,j) * cnt_putatm_urb + pres(i,j)
547  urb_atm_w(i,j) = urb_atm_w(i,j) * cnt_putatm_urb + w(i,j)
548  urb_atm_u(i,j) = urb_atm_u(i,j) * cnt_putatm_urb + u(i,j)
549  urb_atm_v(i,j) = urb_atm_v(i,j) * cnt_putatm_urb + v(i,j)
550  urb_atm_dens(i,j) = urb_atm_dens(i,j) * cnt_putatm_urb + dens(i,j)
551  if ( .NOT. atmos_hydrometeor_dry ) &
552  urb_atm_qv(i,j) = urb_atm_qv(i,j) * cnt_putatm_urb + qv(i,j)
553  urb_atm_pbl(i,j) = urb_atm_pbl(i,j) * cnt_putatm_urb + pbl(i,j)
554  urb_atm_sfc_dens(i,j) = urb_atm_sfc_dens(i,j) * cnt_putatm_urb + sfc_dens(i,j)
555  urb_atm_sfc_pres(i,j) = urb_atm_sfc_pres(i,j) * cnt_putatm_urb + sfc_pres(i,j)
556  urb_atm_cossza(i,j) = urb_atm_cossza(i,j) * cnt_putatm_urb + cossza(i,j)
557  urb_atm_sflx_water(i,j) = urb_atm_sflx_water(i,j) * cnt_putatm_urb + sflx_water(i,j)
558  urb_atm_sflx_engi(i,j) = urb_atm_sflx_engi(i,j) * cnt_putatm_urb + sflx_engi(i,j)
559  do irgn = i_r_ir, i_r_vis
560  do idir = i_r_direct, i_r_diffuse
561  urb_atm_sflx_rad_dn(i,j,idir,irgn) = urb_atm_sflx_rad_dn(i,j,idir,irgn) * cnt_putatm_urb + sflx_rad_dn(i,j,idir,irgn)
562  enddo
563  enddo
564 
565 
566  ! for ocean
567  ocn_atm_temp(i,j) = ocn_atm_temp(i,j) / ( cnt_putatm_ocn + 1.0_rp )
568  ocn_atm_pres(i,j) = ocn_atm_pres(i,j) / ( cnt_putatm_ocn + 1.0_rp )
569  ocn_atm_w(i,j) = ocn_atm_w(i,j) / ( cnt_putatm_ocn + 1.0_rp )
570  ocn_atm_u(i,j) = ocn_atm_u(i,j) / ( cnt_putatm_ocn + 1.0_rp )
571  ocn_atm_v(i,j) = ocn_atm_v(i,j) / ( cnt_putatm_ocn + 1.0_rp )
572  ocn_atm_dens(i,j) = ocn_atm_dens(i,j) / ( cnt_putatm_ocn + 1.0_rp )
573  ocn_atm_qv(i,j) = ocn_atm_qv(i,j) / ( cnt_putatm_ocn + 1.0_rp )
574  ocn_atm_pbl(i,j) = ocn_atm_pbl(i,j) / ( cnt_putatm_ocn + 1.0_rp )
575  ocn_atm_sfc_dens(i,j) = ocn_atm_sfc_dens(i,j) / ( cnt_putatm_ocn + 1.0_rp )
576  ocn_atm_sfc_pres(i,j) = ocn_atm_sfc_pres(i,j) / ( cnt_putatm_ocn + 1.0_rp )
577  ocn_atm_cossza(i,j) = ocn_atm_cossza(i,j) / ( cnt_putatm_ocn + 1.0_rp )
578  ocn_atm_sflx_water(i,j) = ocn_atm_sflx_water(i,j) / ( cnt_putatm_ocn + 1.0_rp )
579  ocn_atm_sflx_engi(i,j) = ocn_atm_sflx_engi(i,j) / ( cnt_putatm_ocn + 1.0_rp )
580  do irgn = i_r_ir, i_r_vis
581  do idir = i_r_direct, i_r_diffuse
582  ocn_atm_sflx_rad_dn(i,j,idir,irgn) = ocn_atm_sflx_rad_dn(i,j,idir,irgn) / ( cnt_putatm_ocn + 1.0_rp )
583  enddo
584  enddo
585 
586  ! for land
587  lnd_atm_temp(i,j) = lnd_atm_temp(i,j) / ( cnt_putatm_lnd + 1.0_rp )
588  lnd_atm_pres(i,j) = lnd_atm_pres(i,j) / ( cnt_putatm_lnd + 1.0_rp )
589  lnd_atm_w(i,j) = lnd_atm_w(i,j) / ( cnt_putatm_lnd + 1.0_rp )
590  lnd_atm_u(i,j) = lnd_atm_u(i,j) / ( cnt_putatm_lnd + 1.0_rp )
591  lnd_atm_v(i,j) = lnd_atm_v(i,j) / ( cnt_putatm_lnd + 1.0_rp )
592  lnd_atm_dens(i,j) = lnd_atm_dens(i,j) / ( cnt_putatm_lnd + 1.0_rp )
593  lnd_atm_qv(i,j) = lnd_atm_qv(i,j) / ( cnt_putatm_lnd + 1.0_rp )
594  lnd_atm_pbl(i,j) = lnd_atm_pbl(i,j) / ( cnt_putatm_lnd + 1.0_rp )
595  lnd_atm_sfc_dens(i,j) = lnd_atm_sfc_dens(i,j) / ( cnt_putatm_lnd + 1.0_rp )
596  lnd_atm_sfc_pres(i,j) = lnd_atm_sfc_pres(i,j) / ( cnt_putatm_lnd + 1.0_rp )
597  lnd_atm_cossza(i,j) = lnd_atm_cossza(i,j) / ( cnt_putatm_lnd + 1.0_rp )
598  lnd_atm_sflx_water(i,j) = lnd_atm_sflx_water(i,j) / ( cnt_putatm_lnd + 1.0_rp )
599  lnd_atm_sflx_engi(i,j) = lnd_atm_sflx_engi(i,j) / ( cnt_putatm_lnd + 1.0_rp )
600  do irgn = i_r_ir, i_r_vis
601  do idir = i_r_direct, i_r_diffuse
602  lnd_atm_sflx_rad_dn(i,j,idir,irgn) = lnd_atm_sflx_rad_dn(i,j,idir,irgn) / ( cnt_putatm_lnd + 1.0_rp )
603  enddo
604  enddo
605 
606  ! for urban
607  urb_atm_temp(i,j) = urb_atm_temp(i,j) / ( cnt_putatm_urb + 1.0_rp )
608  urb_atm_pres(i,j) = urb_atm_pres(i,j) / ( cnt_putatm_urb + 1.0_rp )
609  urb_atm_w(i,j) = urb_atm_w(i,j) / ( cnt_putatm_urb + 1.0_rp )
610  urb_atm_u(i,j) = urb_atm_u(i,j) / ( cnt_putatm_urb + 1.0_rp )
611  urb_atm_v(i,j) = urb_atm_v(i,j) / ( cnt_putatm_urb + 1.0_rp )
612  urb_atm_dens(i,j) = urb_atm_dens(i,j) / ( cnt_putatm_urb + 1.0_rp )
613  urb_atm_qv(i,j) = urb_atm_qv(i,j) / ( cnt_putatm_urb + 1.0_rp )
614  urb_atm_pbl(i,j) = urb_atm_pbl(i,j) / ( cnt_putatm_urb + 1.0_rp )
615  urb_atm_sfc_dens(i,j) = urb_atm_sfc_dens(i,j) / ( cnt_putatm_urb + 1.0_rp )
616  urb_atm_sfc_pres(i,j) = urb_atm_sfc_pres(i,j) / ( cnt_putatm_urb + 1.0_rp )
617  urb_atm_cossza(i,j) = urb_atm_cossza(i,j) / ( cnt_putatm_urb + 1.0_rp )
618  urb_atm_sflx_water(i,j) = urb_atm_sflx_water(i,j) / ( cnt_putatm_urb + 1.0_rp )
619  urb_atm_sflx_engi(i,j) = urb_atm_sflx_engi(i,j) / ( cnt_putatm_urb + 1.0_rp )
620  do irgn = i_r_ir, i_r_vis
621  do idir = i_r_direct, i_r_diffuse
622  urb_atm_sflx_rad_dn(i,j,idir,irgn) = urb_atm_sflx_rad_dn(i,j,idir,irgn) / ( cnt_putatm_urb + 1.0_rp )
623  enddo
624  enddo
625  enddo
626  enddo
627 
628  if( countup ) then
629  cnt_putatm_ocn = cnt_putatm_ocn + 1.0_rp
630  cnt_putatm_lnd = cnt_putatm_lnd + 1.0_rp
631  cnt_putatm_urb = cnt_putatm_urb + 1.0_rp
632  endif
633 
634  return

References scale_atmos_hydrometeor::atmos_hydrometeor_dry, cnt_putatm_lnd, cnt_putatm_ocn, cnt_putatm_urb, scale_atmos_hydrometeor::cv_ice, scale_atmos_hydrometeor::cv_water, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_hydrometeor::lhf, lnd_atm_cossza, lnd_atm_dens, lnd_atm_pbl, lnd_atm_pres, lnd_atm_qv, lnd_atm_sfc_dens, lnd_atm_sfc_pres, lnd_atm_sflx_engi, lnd_atm_sflx_rad_dn, lnd_atm_sflx_water, lnd_atm_temp, lnd_atm_u, lnd_atm_v, lnd_atm_w, ocn_atm_cossza, ocn_atm_dens, ocn_atm_pbl, ocn_atm_pres, ocn_atm_qv, ocn_atm_sfc_dens, ocn_atm_sfc_pres, ocn_atm_sflx_engi, ocn_atm_sflx_rad_dn, ocn_atm_sflx_water, ocn_atm_temp, ocn_atm_u, ocn_atm_v, ocn_atm_w, urb_atm_cossza, urb_atm_dens, urb_atm_pbl, urb_atm_pres, urb_atm_qv, urb_atm_sfc_dens, urb_atm_sfc_pres, urb_atm_sflx_engi, urb_atm_sflx_rad_dn, urb_atm_sflx_water, urb_atm_temp, urb_atm_u, urb_atm_v, and urb_atm_w.

Referenced by mod_atmos_driver::atmos_surface_set().

Here is the caller graph for this function:

◆ cpl_putocn()

subroutine, public mod_cpl_vars::cpl_putocn ( real(rp), dimension (ia,ja), intent(in)  SFC_TEMP,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(in)  SFC_albedo,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0M,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0H,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0E,
real(rp), dimension (ia,ja), intent(in)  SFLX_MW,
real(rp), dimension (ia,ja), intent(in)  SFLX_MU,
real(rp), dimension (ia,ja), intent(in)  SFLX_MV,
real(rp), dimension (ia,ja), intent(in)  SFLX_SH,
real(rp), dimension (ia,ja), intent(in)  SFLX_LH,
real(rp), dimension (ia,ja), intent(in)  SFLX_GH,
real(rp), dimension (ia,ja,qa), intent(in)  SFLX_QTRC,
real(rp), dimension (ia,ja), intent(in)  U10,
real(rp), dimension (ia,ja), intent(in)  V10,
real(rp), dimension (ia,ja), intent(in)  T2,
real(rp), dimension (ia,ja), intent(in)  Q2,
logical, dimension (ia,ja), intent(in)  mask,
logical, intent(in)  countup 
)

Definition at line 657 of file mod_cpl_vars.F90.

657  implicit none
658 
659  real(RP), intent(in) :: SFC_TEMP (IA,JA)
660  real(RP), intent(in) :: SFC_albedo(IA,JA,N_RAD_DIR,N_RAD_RGN)
661  real(RP), intent(in) :: SFC_Z0M (IA,JA)
662  real(RP), intent(in) :: SFC_Z0H (IA,JA)
663  real(RP), intent(in) :: SFC_Z0E (IA,JA)
664  real(RP), intent(in) :: SFLX_MW (IA,JA)
665  real(RP), intent(in) :: SFLX_MU (IA,JA)
666  real(RP), intent(in) :: SFLX_MV (IA,JA)
667  real(RP), intent(in) :: SFLX_SH (IA,JA)
668  real(RP), intent(in) :: SFLX_LH (IA,JA)
669  real(RP), intent(in) :: SFLX_GH (IA,JA)
670  real(RP), intent(in) :: SFLX_QTRC (IA,JA,QA)
671  real(RP), intent(in) :: U10 (IA,JA)
672  real(RP), intent(in) :: V10 (IA,JA)
673  real(RP), intent(in) :: T2 (IA,JA)
674  real(RP), intent(in) :: Q2 (IA,JA)
675  logical, intent(in) :: mask (IA,JA)
676  logical, intent(in) :: countup
677 
678  integer :: i, j, iq, idir, irgn
679  !---------------------------------------------------------------------------
680 
681  !$omp parallel do default(none) private(i,j,idir,irgn) OMP_SCHEDULE_ &
682  !$omp shared(JS,JE,IS,IE,QA) &
683  !$omp shared(OCN_SFC_TEMP,OCN_SFC_albedo,OCN_SFC_Z0M,OCN_SFC_Z0H,OCN_SFC_Z0E) &
684  !$omp shared(OCN_SFLX_MW,OCN_SFLX_MU,OCN_SFLX_MV,OCN_SFLX_SH,OCN_SFLX_LH,OCN_SFLX_GH,OCN_SFLX_QTRC,OCN_SFLX_ENGI,OCN_U10,OCN_V10,OCN_T2,OCN_Q2) &
685  !$omp shared(SFC_TEMP,SFC_albedo,SFC_Z0M,SFC_Z0H,SFC_Z0E,SFLX_MW,SFLX_MU,SFLX_MV,SFLX_SH,SFLX_LH,SFLX_GH,SFLX_QTRC,U10,V10,T2,Q2) &
686  !$omp shared(mask) &
687  !$omp shared(CNT_putOCN) &
688  !$omp shared(TRACER_CV,TRACER_ENGI0)
689  do j = js, je
690  do i = is, ie
691  if ( mask(i,j) ) then
692  ocn_sfc_temp(i,j) = ocn_sfc_temp(i,j) * cnt_putocn + sfc_temp(i,j)
693  ocn_sfc_z0m(i,j) = ocn_sfc_z0m(i,j) * cnt_putocn + sfc_z0m(i,j)
694  ocn_sfc_z0h(i,j) = ocn_sfc_z0h(i,j) * cnt_putocn + sfc_z0h(i,j)
695  ocn_sfc_z0e(i,j) = ocn_sfc_z0e(i,j) * cnt_putocn + sfc_z0e(i,j)
696  ocn_sflx_mw(i,j) = ocn_sflx_mw(i,j) * cnt_putocn + sflx_mw(i,j)
697  ocn_sflx_mu(i,j) = ocn_sflx_mu(i,j) * cnt_putocn + sflx_mu(i,j)
698  ocn_sflx_mv(i,j) = ocn_sflx_mv(i,j) * cnt_putocn + sflx_mv(i,j)
699  ocn_sflx_sh(i,j) = ocn_sflx_sh(i,j) * cnt_putocn + sflx_sh(i,j)
700  ocn_sflx_lh(i,j) = ocn_sflx_lh(i,j) * cnt_putocn + sflx_lh(i,j)
701  ocn_sflx_gh(i,j) = ocn_sflx_gh(i,j) * cnt_putocn + sflx_gh(i,j)
702  ocn_sflx_engi(i,j) = ocn_sflx_engi(i,j) * cnt_putocn
703  do iq = 1, qa
704  ocn_sflx_qtrc(i,j,iq) = ocn_sflx_qtrc(i,j,iq) * cnt_putocn + sflx_qtrc(i,j,iq)
705  ocn_sflx_engi(i,j) = ocn_sflx_engi(i,j) + sflx_qtrc(i,j,iq) * ( tracer_cv(iq) * sfc_temp(i,j) + tracer_engi0(iq) )
706  end do
707  ocn_u10(i,j) = ocn_u10(i,j) * cnt_putocn + u10(i,j)
708  ocn_v10(i,j) = ocn_v10(i,j) * cnt_putocn + v10(i,j)
709  ocn_t2(i,j) = ocn_t2(i,j) * cnt_putocn + t2(i,j)
710  ocn_q2(i,j) = ocn_q2(i,j) * cnt_putocn + q2(i,j)
711  do irgn = i_r_ir, i_r_vis
712  do idir = i_r_direct, i_r_diffuse
713  ocn_sfc_albedo(i,j,idir,irgn) = ocn_sfc_albedo(i,j,idir,irgn) * cnt_putocn + sfc_albedo(i,j,idir,irgn)
714  enddo
715  enddo
716 
717  ocn_sfc_temp(i,j) = ocn_sfc_temp(i,j) / ( cnt_putocn + 1.0_rp )
718  ocn_sfc_z0m(i,j) = ocn_sfc_z0m(i,j) / ( cnt_putocn + 1.0_rp )
719  ocn_sfc_z0h(i,j) = ocn_sfc_z0h(i,j) / ( cnt_putocn + 1.0_rp )
720  ocn_sfc_z0e(i,j) = ocn_sfc_z0e(i,j) / ( cnt_putocn + 1.0_rp )
721  ocn_sflx_mw(i,j) = ocn_sflx_mw(i,j) / ( cnt_putocn + 1.0_rp )
722  ocn_sflx_mu(i,j) = ocn_sflx_mu(i,j) / ( cnt_putocn + 1.0_rp )
723  ocn_sflx_mv(i,j) = ocn_sflx_mv(i,j) / ( cnt_putocn + 1.0_rp )
724  ocn_sflx_sh(i,j) = ocn_sflx_sh(i,j) / ( cnt_putocn + 1.0_rp )
725  ocn_sflx_lh(i,j) = ocn_sflx_lh(i,j) / ( cnt_putocn + 1.0_rp )
726  ocn_sflx_gh(i,j) = ocn_sflx_gh(i,j) / ( cnt_putocn + 1.0_rp )
727  ocn_sflx_qtrc(i,j,:) = ocn_sflx_qtrc(i,j,:) / ( cnt_putocn + 1.0_rp )
728  ocn_sflx_engi(i,j) = ocn_sflx_engi(i,j) / ( cnt_putocn + 1.0_rp )
729  ocn_u10(i,j) = ocn_u10(i,j) / ( cnt_putocn + 1.0_rp )
730  ocn_v10(i,j) = ocn_v10(i,j) / ( cnt_putocn + 1.0_rp )
731  ocn_t2(i,j) = ocn_t2(i,j) / ( cnt_putocn + 1.0_rp )
732  ocn_q2(i,j) = ocn_q2(i,j) / ( cnt_putocn + 1.0_rp )
733  do irgn = i_r_ir, i_r_vis
734  do idir = i_r_direct, i_r_diffuse
735  ocn_sfc_albedo(i,j,idir,irgn) = ocn_sfc_albedo(i,j,idir,irgn) / ( cnt_putocn + 1.0_rp )
736  enddo
737  enddo
738  end if
739  enddo
740  enddo
741 
742  if( countup ) then
743  cnt_putocn = cnt_putocn + 1.0_rp
744  endif
745 
746  return

References cnt_putocn, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, ocn_q2, ocn_sfc_albedo, ocn_sfc_temp, ocn_sfc_z0e, ocn_sfc_z0h, ocn_sfc_z0m, ocn_sflx_engi, ocn_sflx_gh, ocn_sflx_lh, ocn_sflx_mu, ocn_sflx_mv, ocn_sflx_mw, ocn_sflx_qtrc, ocn_sflx_sh, ocn_t2, ocn_u10, ocn_v10, scale_tracer::qa, scale_tracer::tracer_cv, and scale_tracer::tracer_engi0.

Referenced by mod_ocean_driver::ocean_surface_set().

Here is the caller graph for this function:

◆ cpl_putlnd()

subroutine, public mod_cpl_vars::cpl_putlnd ( real(rp), dimension (ia,ja), intent(in)  SFC_TEMP,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(in)  SFC_albedo,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0M,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0H,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0E,
real(rp), dimension (ia,ja), intent(in)  SFLX_MW,
real(rp), dimension (ia,ja), intent(in)  SFLX_MU,
real(rp), dimension (ia,ja), intent(in)  SFLX_MV,
real(rp), dimension (ia,ja), intent(in)  SFLX_SH,
real(rp), dimension (ia,ja), intent(in)  SFLX_LH,
real(rp), dimension (ia,ja), intent(in)  SFLX_GH,
real(rp), dimension (ia,ja,qa), intent(in)  SFLX_QTRC,
real(rp), dimension (ia,ja), intent(in)  U10,
real(rp), dimension (ia,ja), intent(in)  V10,
real(rp), dimension (ia,ja), intent(in)  T2,
real(rp), dimension (ia,ja), intent(in)  Q2,
logical, dimension (ia,ja), intent(in)  mask,
logical, intent(in)  countup 
)

Definition at line 769 of file mod_cpl_vars.F90.

769  implicit none
770 
771  real(RP), intent(in) :: SFC_TEMP (IA,JA)
772  real(RP), intent(in) :: SFC_albedo(IA,JA,N_RAD_DIR,N_RAD_RGN)
773  real(RP), intent(in) :: SFC_Z0M (IA,JA)
774  real(RP), intent(in) :: SFC_Z0H (IA,JA)
775  real(RP), intent(in) :: SFC_Z0E (IA,JA)
776  real(RP), intent(in) :: SFLX_MW (IA,JA)
777  real(RP), intent(in) :: SFLX_MU (IA,JA)
778  real(RP), intent(in) :: SFLX_MV (IA,JA)
779  real(RP), intent(in) :: SFLX_SH (IA,JA)
780  real(RP), intent(in) :: SFLX_LH (IA,JA)
781  real(RP), intent(in) :: SFLX_GH (IA,JA)
782  real(RP), intent(in) :: SFLX_QTRC (IA,JA,QA)
783  real(RP), intent(in) :: U10 (IA,JA)
784  real(RP), intent(in) :: V10 (IA,JA)
785  real(RP), intent(in) :: T2 (IA,JA)
786  real(RP), intent(in) :: Q2 (IA,JA)
787  logical, intent(in) :: mask (IA,JA)
788  logical, intent(in) :: countup
789 
790  integer :: i, j, iq, idir, irgn
791  !---------------------------------------------------------------------------
792 
793  !$omp parallel do default(none) &
794  !$omp shared(JS,JE,IS,IE,QA) &
795  !$omp shared(LND_SFC_TEMP,LND_SFC_albedo,LND_SFC_Z0M,LND_SFC_Z0H,LND_SFC_Z0E) &
796  !$omp shared(LND_SFLX_MW,LND_SFLX_MU,LND_SFLX_MV,LND_SFLX_SH,LND_SFLX_LH,LND_SFLX_GH,LND_SFLX_QTRC,LND_SFLX_ENGI) &
797  !$omp shared(LND_U10,LND_V10,LND_T2,LND_Q2,CNT_putLND,SFC_TEMP,SFC_albedo,SFC_Z0M,SFC_Z0H) &
798  !$omp shared(SFC_Z0E,SFLX_MW,SFLX_MU,SFLX_MV,SFLX_SH,SFLX_LH,SFLX_GH,SFLX_QTRC,U10,V10,T2,Q2) &
799  !$omp shared(mask) &
800  !$omp shared(TRACER_CV,TRACER_ENGI0) &
801  !$omp private(i,j,idir,irgn) OMP_SCHEDULE_
802  do j = js, je
803  do i = is, ie
804  if ( mask(i,j) ) then
805  lnd_sfc_temp(i,j) = lnd_sfc_temp(i,j) * cnt_putlnd + sfc_temp(i,j)
806  lnd_sfc_z0m(i,j) = lnd_sfc_z0m(i,j) * cnt_putlnd + sfc_z0m(i,j)
807  lnd_sfc_z0h(i,j) = lnd_sfc_z0h(i,j) * cnt_putlnd + sfc_z0h(i,j)
808  lnd_sfc_z0e(i,j) = lnd_sfc_z0e(i,j) * cnt_putlnd + sfc_z0e(i,j)
809  lnd_sflx_mw(i,j) = lnd_sflx_mw(i,j) * cnt_putlnd + sflx_mw(i,j)
810  lnd_sflx_mu(i,j) = lnd_sflx_mu(i,j) * cnt_putlnd + sflx_mu(i,j)
811  lnd_sflx_mv(i,j) = lnd_sflx_mv(i,j) * cnt_putlnd + sflx_mv(i,j)
812  lnd_sflx_sh(i,j) = lnd_sflx_sh(i,j) * cnt_putlnd + sflx_sh(i,j)
813  lnd_sflx_lh(i,j) = lnd_sflx_lh(i,j) * cnt_putlnd + sflx_lh(i,j)
814  lnd_sflx_gh(i,j) = lnd_sflx_gh(i,j) * cnt_putlnd + sflx_gh(i,j)
815  lnd_sflx_engi(i,j) = lnd_sflx_engi(i,j) * cnt_putlnd
816  do iq = 1, qa
817  lnd_sflx_qtrc(i,j,iq) = lnd_sflx_qtrc(i,j,iq) * cnt_putlnd + sflx_qtrc(i,j,iq)
818  lnd_sflx_engi(i,j) = lnd_sflx_engi(i,j) + sflx_qtrc(i,j,iq) * ( tracer_cv(iq) * sfc_temp(i,j) + tracer_engi0(iq) )
819  end do
820  lnd_u10(i,j) = lnd_u10(i,j) * cnt_putlnd + u10(i,j)
821  lnd_v10(i,j) = lnd_v10(i,j) * cnt_putlnd + v10(i,j)
822  lnd_t2(i,j) = lnd_t2(i,j) * cnt_putlnd + t2(i,j)
823  lnd_q2(i,j) = lnd_q2(i,j) * cnt_putlnd + q2(i,j)
824  do irgn = i_r_ir, i_r_vis
825  do idir = i_r_direct, i_r_diffuse
826  lnd_sfc_albedo(i,j,idir,irgn) = lnd_sfc_albedo(i,j,idir,irgn) * cnt_putlnd + sfc_albedo(i,j,idir,irgn)
827  enddo
828  enddo
829 
830  lnd_sfc_temp(i,j) = lnd_sfc_temp(i,j) / ( cnt_putlnd + 1.0_rp )
831  lnd_sfc_z0m(i,j) = lnd_sfc_z0m(i,j) / ( cnt_putlnd + 1.0_rp )
832  lnd_sfc_z0h(i,j) = lnd_sfc_z0h(i,j) / ( cnt_putlnd + 1.0_rp )
833  lnd_sfc_z0e(i,j) = lnd_sfc_z0e(i,j) / ( cnt_putlnd + 1.0_rp )
834  lnd_sflx_mw(i,j) = lnd_sflx_mw(i,j) / ( cnt_putlnd + 1.0_rp )
835  lnd_sflx_mu(i,j) = lnd_sflx_mu(i,j) / ( cnt_putlnd + 1.0_rp )
836  lnd_sflx_mv(i,j) = lnd_sflx_mv(i,j) / ( cnt_putlnd + 1.0_rp )
837  lnd_sflx_sh(i,j) = lnd_sflx_sh(i,j) / ( cnt_putlnd + 1.0_rp )
838  lnd_sflx_lh(i,j) = lnd_sflx_lh(i,j) / ( cnt_putlnd + 1.0_rp )
839  lnd_sflx_gh(i,j) = lnd_sflx_gh(i,j) / ( cnt_putlnd + 1.0_rp )
840  lnd_sflx_qtrc(i,j,:) = lnd_sflx_qtrc(i,j,:) / ( cnt_putlnd + 1.0_rp )
841  lnd_sflx_engi(i,j) = lnd_sflx_engi(i,j) / ( cnt_putlnd + 1.0_rp )
842  lnd_u10(i,j) = lnd_u10(i,j) / ( cnt_putlnd + 1.0_rp )
843  lnd_v10(i,j) = lnd_v10(i,j) / ( cnt_putlnd + 1.0_rp )
844  lnd_t2(i,j) = lnd_t2(i,j) / ( cnt_putlnd + 1.0_rp )
845  lnd_q2(i,j) = lnd_q2(i,j) / ( cnt_putlnd + 1.0_rp )
846  do irgn = i_r_ir, i_r_vis
847  do idir = i_r_direct, i_r_diffuse
848  lnd_sfc_albedo(i,j,idir,irgn) = lnd_sfc_albedo(i,j,idir,irgn) / ( cnt_putlnd + 1.0_rp )
849  enddo
850  enddo
851  end if
852  enddo
853  enddo
854 
855  if( countup ) then
856  cnt_putlnd = cnt_putlnd + 1.0_rp
857  endif
858 
859  return

References cnt_putlnd, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, lnd_q2, lnd_sfc_albedo, lnd_sfc_temp, lnd_sfc_z0e, lnd_sfc_z0h, lnd_sfc_z0m, lnd_sflx_engi, lnd_sflx_gh, lnd_sflx_lh, lnd_sflx_mu, lnd_sflx_mv, lnd_sflx_mw, lnd_sflx_qtrc, lnd_sflx_sh, lnd_t2, lnd_u10, lnd_v10, scale_tracer::qa, scale_tracer::tracer_cv, and scale_tracer::tracer_engi0.

Referenced by mod_land_driver::land_surface_set().

Here is the caller graph for this function:

◆ cpl_puturb()

subroutine, public mod_cpl_vars::cpl_puturb ( real(rp), dimension (ia,ja), intent(in)  SFC_TEMP,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(in)  SFC_albedo,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0M,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0H,
real(rp), dimension (ia,ja), intent(in)  SFC_Z0E,
real(rp), dimension (ia,ja), intent(in)  SFLX_MW,
real(rp), dimension (ia,ja), intent(in)  SFLX_MU,
real(rp), dimension (ia,ja), intent(in)  SFLX_MV,
real(rp), dimension (ia,ja), intent(in)  SFLX_SH,
real(rp), dimension (ia,ja), intent(in)  SFLX_LH,
real(rp), dimension (ia,ja), intent(in)  SFLX_SHEX,
real(rp), dimension (ia,ja), intent(in)  SFLX_QVEX,
real(rp), dimension (ia,ja), intent(in)  SFLX_GH,
real(rp), dimension (ia,ja,qa), intent(in)  SFLX_QTRC,
real(rp), dimension (ia,ja), intent(in)  U10,
real(rp), dimension (ia,ja), intent(in)  V10,
real(rp), dimension (ia,ja), intent(in)  T2,
real(rp), dimension (ia,ja), intent(in)  Q2,
logical, dimension (ia,ja), intent(in)  mask,
logical, intent(in)  countup 
)

Definition at line 884 of file mod_cpl_vars.F90.

884  implicit none
885 
886  real(RP), intent(in) :: SFC_TEMP (IA,JA)
887  real(RP), intent(in) :: SFC_albedo(IA,JA,N_RAD_DIR,N_RAD_RGN)
888  real(RP), intent(in) :: SFC_Z0M (IA,JA)
889  real(RP), intent(in) :: SFC_Z0H (IA,JA)
890  real(RP), intent(in) :: SFC_Z0E (IA,JA)
891  real(RP), intent(in) :: SFLX_MW (IA,JA)
892  real(RP), intent(in) :: SFLX_MU (IA,JA)
893  real(RP), intent(in) :: SFLX_MV (IA,JA)
894  real(RP), intent(in) :: SFLX_SH (IA,JA)
895  real(RP), intent(in) :: SFLX_LH (IA,JA)
896  real(RP), intent(in) :: SFLX_SHEX (IA,JA)
897  real(RP), intent(in) :: SFLX_QVEX (IA,JA)
898  real(RP), intent(in) :: SFLX_GH (IA,JA)
899  real(RP), intent(in) :: SFLX_QTRC (IA,JA,QA)
900  real(RP), intent(in) :: U10 (IA,JA)
901  real(RP), intent(in) :: V10 (IA,JA)
902  real(RP), intent(in) :: T2 (IA,JA)
903  real(RP), intent(in) :: Q2 (IA,JA)
904  logical, intent(in) :: mask (IA,JA)
905  logical, intent(in) :: countup
906 
907  integer :: i, j, iq, idir, irgn
908  !---------------------------------------------------------------------------
909 
910  !$omp parallel do default(none) OMP_SCHEDULE_ &
911  !$omp shared(JS,JE,IS,IE,QA, &
912  !$omp URB_SFC_TEMP,URB_SFC_albedo,URB_SFC_Z0M,URB_SFC_Z0H,URB_SFC_Z0E, &
913  !$omp URB_SFLX_MW,URB_SFLX_MU,URB_SFLX_MV,URB_SFLX_SH,URB_SFLX_LH,URB_SFLX_SHEX,URB_SFLX_QVEX,URB_SFLX_GH, &
914  !$omp URB_SFLX_QTRC,URB_SFLX_ENGI,URB_U10,URB_V10,URB_T2,URB_Q2,CNT_putURB, &
915  !$omp SFC_TEMP,SFC_albedo,SFC_Z0M,SFC_Z0H,SFC_Z0E,SFLX_MW,SFLX_MU,SFLX_MV,SFLX_SH,SFLX_LH,SFLX_SHEX,SFLX_QVEX,SFLX_GH,SFLX_QTRC,U10,V10,T2,Q2, &
916  !$omp mask, &
917  !$omp TRACER_CV,TRACER_ENGI0)
918  do j = js, je
919  do i = is, ie
920  if ( mask(i,j) ) then
921  urb_sfc_temp(i,j) = urb_sfc_temp(i,j) * cnt_puturb + sfc_temp(i,j)
922  urb_sfc_z0m(i,j) = urb_sfc_z0m(i,j) * cnt_puturb + sfc_z0m(i,j)
923  urb_sfc_z0h(i,j) = urb_sfc_z0h(i,j) * cnt_puturb + sfc_z0h(i,j)
924  urb_sfc_z0e(i,j) = urb_sfc_z0e(i,j) * cnt_puturb + sfc_z0e(i,j)
925  urb_sflx_mw(i,j) = urb_sflx_mw(i,j) * cnt_puturb + sflx_mw(i,j)
926  urb_sflx_mu(i,j) = urb_sflx_mu(i,j) * cnt_puturb + sflx_mu(i,j)
927  urb_sflx_mv(i,j) = urb_sflx_mv(i,j) * cnt_puturb + sflx_mv(i,j)
928  urb_sflx_sh(i,j) = urb_sflx_sh(i,j) * cnt_puturb + sflx_sh(i,j)
929  urb_sflx_lh(i,j) = urb_sflx_lh(i,j) * cnt_puturb + sflx_lh(i,j)
930  urb_sflx_shex(i,j) = urb_sflx_shex(i,j) * cnt_puturb + sflx_shex(i,j)
931  urb_sflx_qvex(i,j) = urb_sflx_qvex(i,j) * cnt_puturb + sflx_qvex(i,j)
932  urb_sflx_gh(i,j) = urb_sflx_gh(i,j) * cnt_puturb + sflx_gh(i,j)
933  urb_sflx_engi(i,j) = urb_sflx_engi(i,j) * cnt_puturb
934  do iq = 1, qa
935  urb_sflx_qtrc(i,j,iq) = urb_sflx_qtrc(i,j,iq) * cnt_puturb + sflx_qtrc(i,j,iq)
936  urb_sflx_engi(i,j) = urb_sflx_engi(i,j) + sflx_qtrc(i,j,iq) * ( tracer_cv(iq) * sfc_temp(i,j) + tracer_engi0(iq) )
937  end do
938  urb_u10(i,j) = urb_u10(i,j) * cnt_puturb + u10(i,j)
939  urb_v10(i,j) = urb_v10(i,j) * cnt_puturb + v10(i,j)
940  urb_t2(i,j) = urb_t2(i,j) * cnt_puturb + t2(i,j)
941  urb_q2(i,j) = urb_q2(i,j) * cnt_puturb + q2(i,j)
942  do irgn = i_r_ir, i_r_vis
943  do idir = i_r_direct, i_r_diffuse
944  urb_sfc_albedo(i,j,idir,irgn) = urb_sfc_albedo(i,j,idir,irgn) * cnt_puturb + sfc_albedo(i,j,idir,irgn)
945  enddo
946  enddo
947 
948  urb_sfc_temp(i,j) = urb_sfc_temp(i,j) / ( cnt_puturb + 1.0_rp )
949  urb_sfc_z0m(i,j) = urb_sfc_z0m(i,j) / ( cnt_puturb + 1.0_rp )
950  urb_sfc_z0h(i,j) = urb_sfc_z0h(i,j) / ( cnt_puturb + 1.0_rp )
951  urb_sfc_z0e(i,j) = urb_sfc_z0e(i,j) / ( cnt_puturb + 1.0_rp )
952  urb_sflx_mw(i,j) = urb_sflx_mw(i,j) / ( cnt_puturb + 1.0_rp )
953  urb_sflx_mu(i,j) = urb_sflx_mu(i,j) / ( cnt_puturb + 1.0_rp )
954  urb_sflx_mv(i,j) = urb_sflx_mv(i,j) / ( cnt_puturb + 1.0_rp )
955  urb_sflx_sh(i,j) = urb_sflx_sh(i,j) / ( cnt_puturb + 1.0_rp )
956  urb_sflx_lh(i,j) = urb_sflx_lh(i,j) / ( cnt_puturb + 1.0_rp )
957  urb_sflx_shex(i,j) = urb_sflx_shex(i,j) / ( cnt_puturb + 1.0_rp )
958  urb_sflx_qvex(i,j) = urb_sflx_qvex(i,j) / ( cnt_puturb + 1.0_rp )
959  urb_sflx_gh(i,j) = urb_sflx_gh(i,j) / ( cnt_puturb + 1.0_rp )
960  urb_sflx_qtrc(i,j,:) = urb_sflx_qtrc(i,j,:) / ( cnt_puturb + 1.0_rp )
961  urb_sflx_engi(i,j) = urb_sflx_engi(i,j) / ( cnt_puturb + 1.0_rp )
962  urb_u10(i,j) = urb_u10(i,j) / ( cnt_puturb + 1.0_rp )
963  urb_v10(i,j) = urb_v10(i,j) / ( cnt_puturb + 1.0_rp )
964  urb_t2(i,j) = urb_t2(i,j) / ( cnt_puturb + 1.0_rp )
965  urb_q2(i,j) = urb_q2(i,j) / ( cnt_puturb + 1.0_rp )
966  do irgn = i_r_ir, i_r_vis
967  do idir = i_r_direct, i_r_diffuse
968  urb_sfc_albedo(i,j,idir,irgn) = urb_sfc_albedo(i,j,idir,irgn) / ( cnt_puturb + 1.0_rp )
969  enddo
970  enddo
971  end if
972  enddo
973  enddo
974 
975  if( countup ) then
976  cnt_puturb = cnt_puturb + 1.0_rp
977  endif
978 
979  return

References cnt_puturb, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_tracer::qa, scale_tracer::tracer_cv, scale_tracer::tracer_engi0, urb_q2, urb_sfc_albedo, urb_sfc_temp, urb_sfc_z0e, urb_sfc_z0h, urb_sfc_z0m, urb_sflx_engi, urb_sflx_gh, urb_sflx_lh, urb_sflx_mu, urb_sflx_mv, urb_sflx_mw, urb_sflx_qtrc, urb_sflx_qvex, urb_sflx_sh, urb_sflx_shex, urb_t2, urb_u10, and urb_v10.

Referenced by mod_urban_driver::urban_surface_set().

Here is the caller graph for this function:

◆ cpl_getsfc_atm()

subroutine, public mod_cpl_vars::cpl_getsfc_atm ( real(rp), dimension (ia,ja), intent(out)  SFC_TEMP,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(out)  SFC_albedo,
real(rp), dimension (ia,ja), intent(out)  SFC_Z0M,
real(rp), dimension (ia,ja), intent(out)  SFC_Z0H,
real(rp), dimension (ia,ja), intent(out)  SFC_Z0E,
real(rp), dimension (ia,ja), intent(out)  SFLX_MW,
real(rp), dimension (ia,ja), intent(out)  SFLX_MU,
real(rp), dimension (ia,ja), intent(out)  SFLX_MV,
real(rp), dimension (ia,ja), intent(out)  SFLX_SH,
real(rp), dimension (ia,ja), intent(out)  SFLX_LH,
real(rp), dimension (ia,ja), intent(out)  SFLX_SHEX,
real(rp), dimension (ia,ja), intent(out)  SFLX_QVEX,
real(rp), dimension (ia,ja), intent(out)  SFLX_GH,
real(rp), dimension (ia,ja,qa), intent(out)  SFLX_QTRC,
real(rp), dimension (ia,ja), intent(out)  SFLX_ENGI,
real(rp), dimension (ia,ja), intent(out)  U10,
real(rp), dimension (ia,ja), intent(out)  V10,
real(rp), dimension (ia,ja), intent(out)  T2,
real(rp), dimension (ia,ja), intent(out)  Q2 
)

Definition at line 1003 of file mod_cpl_vars.F90.

1003  use scale_landuse, only: &
1004  fact_ocean => landuse_fact_ocean, &
1005  fact_land => landuse_fact_land, &
1006  fact_urban => landuse_fact_urban
1007  implicit none
1008 
1009  real(RP), intent(out) :: SFC_TEMP (IA,JA)
1010  real(RP), intent(out) :: SFC_albedo(IA,JA,N_RAD_DIR,N_RAD_RGN)
1011  real(RP), intent(out) :: SFC_Z0M (IA,JA)
1012  real(RP), intent(out) :: SFC_Z0H (IA,JA)
1013  real(RP), intent(out) :: SFC_Z0E (IA,JA)
1014  real(RP), intent(out) :: SFLX_MW (IA,JA)
1015  real(RP), intent(out) :: SFLX_MU (IA,JA)
1016  real(RP), intent(out) :: SFLX_MV (IA,JA)
1017  real(RP), intent(out) :: SFLX_SH (IA,JA)
1018  real(RP), intent(out) :: SFLX_LH (IA,JA)
1019  real(RP), intent(out) :: SFLX_SHEX (IA,JA)
1020  real(RP), intent(out) :: SFLX_QVEX (IA,JA)
1021  real(RP), intent(out) :: SFLX_GH (IA,JA)
1022  real(RP), intent(out) :: SFLX_QTRC (IA,JA,QA)
1023  real(RP), intent(out) :: SFLX_ENGI (IA,JA)
1024  real(RP), intent(out) :: U10 (IA,JA)
1025  real(RP), intent(out) :: V10 (IA,JA)
1026  real(RP), intent(out) :: T2 (IA,JA)
1027  real(RP), intent(out) :: Q2 (IA,JA)
1028 
1029  integer :: i, j, idir, irgn, iq
1030  !---------------------------------------------------------------------------
1031 
1032  !$omp parallel do default(none) &
1033  !$omp shared(JS,JE,IS,IE,QA,SFLX_QTRC,SFLX_ENGI,SFC_TEMP,SFC_albedo,SFC_Z0M,SFC_Z0H,SFC_Z0E) &
1034  !$omp shared(SFLX_MW,SFLX_MU,SFLX_MV,SFLX_SH,SFLX_LH,SFLX_SHEX,SFLX_QVEX,SFLX_GH,U10,V10,T2,Q2) &
1035  !$omp shared(fact_ocean,fact_land,fact_urban,OCN_SFC_TEMP,LND_SFC_TEMP,URB_SFC_TEMP,OCN_SFC_albedo) &
1036  !$omp shared(LND_SFC_albedo,URB_SFC_albedo,OCN_SFC_Z0M,LND_SFC_Z0M,URB_SFC_Z0M) &
1037  !$omp shared(OCN_SFC_Z0H,LND_SFC_Z0H,URB_SFC_Z0H,OCN_SFC_Z0E,LND_SFC_Z0E,URB_SFC_Z0E,OCN_SFLX_MW) &
1038  !$omp shared(LND_SFLX_MW,URB_SFLX_MW,OCN_SFLX_MU,LND_SFLX_MU,URB_SFLX_MU,OCN_SFLX_MV,LND_SFLX_MV) &
1039  !$omp shared(URB_SFLX_MV,OCN_SFLX_SH,LND_SFLX_SH,URB_SFLX_SH,URB_SFLX_SHEX,OCN_SFLX_LH,LND_SFLX_LH,URB_SFLX_LH,URB_SFLX_QVEX) &
1040  !$omp shared(OCN_SFLX_GH,LND_SFLX_GH,URB_SFLX_GH,OCN_SFLX_QTRC,LND_SFLX_QTRC,URB_SFLX_QTRC,OCN_SFLX_ENGI,LND_SFLX_ENGI,URB_SFLX_ENGI) &
1041  !$omp shared(OCN_U10,LND_U10,URB_U10,OCN_V10,LND_V10,URB_V10,OCN_T2,LND_T2,URB_T2,OCN_Q2,LND_Q2,URB_Q2) &
1042  !$omp private(i,j,iq) OMP_SCHEDULE_
1043  do j = js, je
1044  do i = is, ie
1045  sfc_temp(i,j) = fact_ocean(i,j) * ocn_sfc_temp(i,j) &
1046  + fact_land(i,j) * lnd_sfc_temp(i,j) &
1047  + fact_urban(i,j) * urb_sfc_temp(i,j)
1048 
1049  do irgn = i_r_ir, i_r_vis
1050  do idir = i_r_direct, i_r_diffuse
1051  sfc_albedo(i,j,idir,irgn) = fact_ocean(i,j) * ocn_sfc_albedo(i,j,idir,irgn) &
1052  + fact_land(i,j) * lnd_sfc_albedo(i,j,idir,irgn) &
1053  + fact_urban(i,j) * urb_sfc_albedo(i,j,idir,irgn)
1054  enddo
1055  enddo
1056 
1057  sfc_z0m(i,j) = fact_ocean(i,j) * ocn_sfc_z0m(i,j) &
1058  + fact_land(i,j) * lnd_sfc_z0m(i,j) &
1059  + fact_urban(i,j) * urb_sfc_z0m(i,j)
1060 
1061  sfc_z0h(i,j) = fact_ocean(i,j) * ocn_sfc_z0h(i,j) &
1062  + fact_land(i,j) * lnd_sfc_z0h(i,j) &
1063  + fact_urban(i,j) * urb_sfc_z0h(i,j)
1064 
1065  sfc_z0e(i,j) = fact_ocean(i,j) * ocn_sfc_z0e(i,j) &
1066  + fact_land(i,j) * lnd_sfc_z0e(i,j) &
1067  + fact_urban(i,j) * urb_sfc_z0e(i,j)
1068 
1069  sflx_mw(i,j) = fact_ocean(i,j) * ocn_sflx_mw(i,j) &
1070  + fact_land(i,j) * lnd_sflx_mw(i,j) &
1071  + fact_urban(i,j) * urb_sflx_mw(i,j)
1072 
1073  sflx_mu(i,j) = fact_ocean(i,j) * ocn_sflx_mu(i,j) &
1074  + fact_land(i,j) * lnd_sflx_mu(i,j) &
1075  + fact_urban(i,j) * urb_sflx_mu(i,j)
1076 
1077  sflx_mv(i,j) = fact_ocean(i,j) * ocn_sflx_mv(i,j) &
1078  + fact_land(i,j) * lnd_sflx_mv(i,j) &
1079  + fact_urban(i,j) * urb_sflx_mv(i,j)
1080 
1081  sflx_sh(i,j) = fact_ocean(i,j) * ocn_sflx_sh(i,j) &
1082  + fact_land(i,j) * lnd_sflx_sh(i,j) &
1083  + fact_urban(i,j) * urb_sflx_sh(i,j)
1084 
1085  sflx_lh(i,j) = fact_ocean(i,j) * ocn_sflx_lh(i,j) &
1086  + fact_land(i,j) * lnd_sflx_lh(i,j) &
1087  + fact_urban(i,j) * urb_sflx_lh(i,j)
1088 
1089  sflx_shex(i,j) = + fact_urban(i,j) * urb_sflx_shex(i,j)
1090 
1091  sflx_qvex(i,j) = + fact_urban(i,j) * urb_sflx_qvex(i,j)
1092 
1093  sflx_gh(i,j) = fact_ocean(i,j) * ocn_sflx_gh(i,j) &
1094  + fact_land(i,j) * lnd_sflx_gh(i,j) &
1095  + fact_urban(i,j) * urb_sflx_gh(i,j)
1096 
1097  do iq = 1, qa
1098  sflx_qtrc(i,j,iq) = fact_ocean(i,j) * ocn_sflx_qtrc(i,j,iq) &
1099  + fact_land(i,j) * lnd_sflx_qtrc(i,j,iq) &
1100  + fact_urban(i,j) * urb_sflx_qtrc(i,j,iq)
1101  enddo
1102 
1103  sflx_engi(i,j) = fact_ocean(i,j) * ocn_sflx_engi(i,j) &
1104  + fact_land(i,j) * lnd_sflx_engi(i,j) &
1105  + fact_urban(i,j) * urb_sflx_engi(i,j)
1106 
1107  u10(i,j) = fact_ocean(i,j) * ocn_u10(i,j) &
1108  + fact_land(i,j) * lnd_u10(i,j) &
1109  + fact_urban(i,j) * urb_u10(i,j)
1110 
1111  v10(i,j) = fact_ocean(i,j) * ocn_v10(i,j) &
1112  + fact_land(i,j) * lnd_v10(i,j) &
1113  + fact_urban(i,j) * urb_v10(i,j)
1114 
1115  t2(i,j) = fact_ocean(i,j) * ocn_t2(i,j) &
1116  + fact_land(i,j) * lnd_t2(i,j) &
1117  + fact_urban(i,j) * urb_t2(i,j)
1118 
1119  q2(i,j) = fact_ocean(i,j) * ocn_q2(i,j) &
1120  + fact_land(i,j) * lnd_q2(i,j) &
1121  + fact_urban(i,j) * urb_q2(i,j)
1122  enddo
1123  enddo
1124 
1125  cnt_putocn = 0.0_rp
1126  cnt_putlnd = 0.0_rp
1127  cnt_puturb = 0.0_rp
1128 
1129  return

References cnt_putlnd, cnt_putocn, cnt_puturb, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_landuse::landuse_fact_land, scale_landuse::landuse_fact_ocean, scale_landuse::landuse_fact_urban, lnd_q2, lnd_sfc_albedo, lnd_sfc_temp, lnd_sfc_z0e, lnd_sfc_z0h, lnd_sfc_z0m, lnd_sflx_engi, lnd_sflx_gh, lnd_sflx_lh, lnd_sflx_mu, lnd_sflx_mv, lnd_sflx_mw, lnd_sflx_qtrc, lnd_sflx_sh, lnd_t2, lnd_u10, lnd_v10, ocn_q2, ocn_sfc_albedo, ocn_sfc_temp, ocn_sfc_z0e, ocn_sfc_z0h, ocn_sfc_z0m, ocn_sflx_engi, ocn_sflx_gh, ocn_sflx_lh, ocn_sflx_mu, ocn_sflx_mv, ocn_sflx_mw, ocn_sflx_qtrc, ocn_sflx_sh, ocn_t2, ocn_u10, ocn_v10, scale_tracer::qa, urb_q2, urb_sfc_albedo, urb_sfc_temp, urb_sfc_z0e, urb_sfc_z0h, urb_sfc_z0m, urb_sflx_engi, urb_sflx_gh, urb_sflx_lh, urb_sflx_mu, urb_sflx_mv, urb_sflx_mw, urb_sflx_qtrc, urb_sflx_qvex, urb_sflx_sh, urb_sflx_shex, urb_t2, urb_u10, and urb_v10.

Referenced by mod_atmos_driver::atmos_surface_get().

Here is the caller graph for this function:

◆ cpl_getatm_ocn()

subroutine, public mod_cpl_vars::cpl_getatm_ocn ( real(rp), dimension (ia,ja), intent(out)  TEMP,
real(rp), dimension (ia,ja), intent(out)  PRES,
real(rp), dimension (ia,ja), intent(out)  W,
real(rp), dimension (ia,ja), intent(out)  U,
real(rp), dimension (ia,ja), intent(out)  V,
real(rp), dimension (ia,ja), intent(out)  DENS,
real(rp), dimension (ia,ja), intent(out)  QV,
real(rp), dimension (ia,ja), intent(out)  PBL,
real(rp), dimension (ia,ja), intent(out)  SFC_DENS,
real(rp), dimension (ia,ja), intent(out)  SFC_PRES,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(out)  SFLX_rad_dn,
real(rp), dimension (ia,ja), intent(out)  cosSZA,
real(rp), dimension (ia,ja), intent(out)  SFLX_water,
real(rp), dimension (ia,ja), intent(out)  SFLX_ENGI 
)

Definition at line 1148 of file mod_cpl_vars.F90.

1148  implicit none
1149 
1150  real(RP), intent(out) :: TEMP (IA,JA)
1151  real(RP), intent(out) :: PRES (IA,JA)
1152  real(RP), intent(out) :: W (IA,JA)
1153  real(RP), intent(out) :: U (IA,JA)
1154  real(RP), intent(out) :: V (IA,JA)
1155  real(RP), intent(out) :: DENS (IA,JA)
1156  real(RP), intent(out) :: QV (IA,JA)
1157  real(RP), intent(out) :: PBL (IA,JA)
1158  real(RP), intent(out) :: SFC_DENS (IA,JA)
1159  real(RP), intent(out) :: SFC_PRES (IA,JA)
1160  real(RP), intent(out) :: SFLX_rad_dn(IA,JA,N_RAD_DIR,N_RAD_RGN)
1161  real(RP), intent(out) :: cosSZA (IA,JA)
1162  real(RP), intent(out) :: SFLX_water (IA,JA)
1163  real(RP), intent(out) :: SFLX_ENGI (IA,JA)
1164 
1165  integer :: i, j, idir, irgn
1166  !---------------------------------------------------------------------------
1167 
1168 !OCL XFILL
1169  !$omp parallel do default(none) private(i,j,idir,irgn) OMP_SCHEDULE_ &
1170  !$omp shared(JS,JE,IS,IE,TEMP,PRES,W,U,V,DENS,QV,PBL,SFC_DENS,SFC_PRES,SFLX_rad_dn,cosSZA,SFLX_water,SFLX_ENGI) &
1171  !$omp shared(OCN_ATM_TEMP,OCN_ATM_PRES,OCN_ATM_W,OCN_ATM_U,OCN_ATM_V,OCN_ATM_DENS,OCN_ATM_QV) &
1172  !$omp shared(OCN_ATM_PBL,OCN_ATM_SFC_DENS,OCN_ATM_SFC_PRES,OCN_ATM_SFLX_rad_dn,OCN_ATM_cosSZA,OCN_ATM_SFLX_water,OCN_ATM_SFLX_ENGI)
1173  do j = js, je
1174  do i = is, ie
1175  temp(i,j) = ocn_atm_temp(i,j)
1176  pres(i,j) = ocn_atm_pres(i,j)
1177  w(i,j) = ocn_atm_w(i,j)
1178  u(i,j) = ocn_atm_u(i,j)
1179  v(i,j) = ocn_atm_v(i,j)
1180  dens(i,j) = ocn_atm_dens(i,j)
1181  qv(i,j) = ocn_atm_qv(i,j)
1182  pbl(i,j) = ocn_atm_pbl(i,j)
1183  sfc_dens(i,j) = ocn_atm_sfc_dens(i,j)
1184  sfc_pres(i,j) = ocn_atm_sfc_pres(i,j)
1185  cossza(i,j) = ocn_atm_cossza(i,j)
1186  sflx_water(i,j) = ocn_atm_sflx_water(i,j)
1187  sflx_engi(i,j) = ocn_atm_sflx_engi(i,j)
1188  do irgn = i_r_ir, i_r_vis
1189  do idir = i_r_direct, i_r_diffuse
1190  sflx_rad_dn(i,j,idir,irgn) = ocn_atm_sflx_rad_dn(i,j,idir,irgn)
1191  enddo
1192  enddo
1193  enddo
1194  enddo
1195 
1196  cnt_putatm_ocn = 0.0_rp
1197 
1198  return

References cnt_putatm_ocn, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, ocn_atm_cossza, ocn_atm_dens, ocn_atm_pbl, ocn_atm_pres, ocn_atm_qv, ocn_atm_sfc_dens, ocn_atm_sfc_pres, ocn_atm_sflx_engi, ocn_atm_sflx_rad_dn, ocn_atm_sflx_water, ocn_atm_temp, ocn_atm_u, ocn_atm_v, and ocn_atm_w.

Referenced by mod_ocean_driver::ocean_surface_get().

Here is the caller graph for this function:

◆ cpl_getatm_lnd()

subroutine, public mod_cpl_vars::cpl_getatm_lnd ( real(rp), dimension (ia,ja), intent(out)  TEMP,
real(rp), dimension (ia,ja), intent(out)  PRES,
real(rp), dimension (ia,ja), intent(out)  W,
real(rp), dimension (ia,ja), intent(out)  U,
real(rp), dimension (ia,ja), intent(out)  V,
real(rp), dimension (ia,ja), intent(out)  DENS,
real(rp), dimension (ia,ja), intent(out)  QV,
real(rp), dimension (ia,ja), intent(out)  PBL,
real(rp), dimension (ia,ja), intent(out)  SFC_DENS,
real(rp), dimension (ia,ja), intent(out)  SFC_PRES,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(out)  SFLX_rad_dn,
real(rp), dimension (ia,ja), intent(out)  cosSZA,
real(rp), dimension (ia,ja), intent(out)  SFLX_water,
real(rp), dimension (ia,ja), intent(out)  SFLX_ENGI 
)

Definition at line 1217 of file mod_cpl_vars.F90.

1217  implicit none
1218 
1219  real(RP), intent(out) :: TEMP (IA,JA)
1220  real(RP), intent(out) :: PRES (IA,JA)
1221  real(RP), intent(out) :: W (IA,JA)
1222  real(RP), intent(out) :: U (IA,JA)
1223  real(RP), intent(out) :: V (IA,JA)
1224  real(RP), intent(out) :: DENS (IA,JA)
1225  real(RP), intent(out) :: QV (IA,JA)
1226  real(RP), intent(out) :: PBL (IA,JA)
1227  real(RP), intent(out) :: SFC_DENS (IA,JA)
1228  real(RP), intent(out) :: SFC_PRES (IA,JA)
1229  real(RP), intent(out) :: SFLX_rad_dn(IA,JA,N_RAD_DIR,N_RAD_RGN)
1230  real(RP), intent(out) :: cosSZA (IA,JA)
1231  real(RP), intent(out) :: SFLX_water (IA,JA)
1232  real(RP), intent(out) :: SFLX_ENGI (IA,JA)
1233 
1234  integer :: i, j, idir, irgn
1235  !---------------------------------------------------------------------------
1236 
1237 !OCL XFILL
1238  !$omp parallel do default(none) private(i,j,idir,irgn) OMP_SCHEDULE_ &
1239  !$omp shared(JS,JE,IS,IE,TEMP,PRES,W,U,V,DENS,QV,PBL,SFC_DENS,SFC_PRES,SFLX_rad_dn,cosSZA,SFLX_water,SFLX_ENGI) &
1240  !$omp shared(LND_ATM_TEMP,LND_ATM_PRES,LND_ATM_W,LND_ATM_U,LND_ATM_V,LND_ATM_DENS,LND_ATM_QV) &
1241  !$omp shared(LND_ATM_PBL,LND_ATM_SFC_DENS,LND_ATM_SFC_PRES,LND_ATM_SFLX_rad_dn,LND_ATM_cosSZA,LND_ATM_SFLX_water,LND_ATM_SFLX_ENGI)
1242  do j = js, je
1243  do i = is, ie
1244  temp(i,j) = lnd_atm_temp(i,j)
1245  pres(i,j) = lnd_atm_pres(i,j)
1246  w(i,j) = lnd_atm_w(i,j)
1247  u(i,j) = lnd_atm_u(i,j)
1248  v(i,j) = lnd_atm_v(i,j)
1249  dens(i,j) = lnd_atm_dens(i,j)
1250  qv(i,j) = lnd_atm_qv(i,j)
1251  pbl(i,j) = lnd_atm_pbl(i,j)
1252  sfc_dens(i,j) = lnd_atm_sfc_dens(i,j)
1253  sfc_pres(i,j) = lnd_atm_sfc_pres(i,j)
1254  cossza(i,j) = lnd_atm_cossza(i,j)
1255  sflx_water(i,j) = lnd_atm_sflx_water(i,j)
1256  sflx_engi(i,j) = lnd_atm_sflx_engi(i,j)
1257  do irgn = i_r_ir, i_r_vis
1258  do idir = i_r_direct, i_r_diffuse
1259  sflx_rad_dn(i,j,idir,irgn) = lnd_atm_sflx_rad_dn(i,j,idir,irgn)
1260  enddo
1261  enddo
1262  enddo
1263  enddo
1264 
1265  cnt_putatm_lnd = 0.0_rp
1266 
1267  return

References cnt_putatm_lnd, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, lnd_atm_cossza, lnd_atm_dens, lnd_atm_pbl, lnd_atm_pres, lnd_atm_qv, lnd_atm_sfc_dens, lnd_atm_sfc_pres, lnd_atm_sflx_engi, lnd_atm_sflx_rad_dn, lnd_atm_sflx_water, lnd_atm_temp, lnd_atm_u, lnd_atm_v, and lnd_atm_w.

Referenced by mod_land_driver::land_surface_get().

Here is the caller graph for this function:

◆ cpl_getatm_urb()

subroutine, public mod_cpl_vars::cpl_getatm_urb ( real(rp), dimension (ia,ja), intent(out)  TEMP,
real(rp), dimension (ia,ja), intent(out)  PRES,
real(rp), dimension (ia,ja), intent(out)  W,
real(rp), dimension (ia,ja), intent(out)  U,
real(rp), dimension (ia,ja), intent(out)  V,
real(rp), dimension (ia,ja), intent(out)  DENS,
real(rp), dimension (ia,ja), intent(out)  QV,
real(rp), dimension (ia,ja), intent(out)  PBL,
real(rp), dimension (ia,ja), intent(out)  SFC_DENS,
real(rp), dimension (ia,ja), intent(out)  SFC_PRES,
real(rp), dimension(ia,ja,n_rad_dir,n_rad_rgn), intent(out)  SFLX_rad_dn,
real(rp), dimension (ia,ja), intent(out)  cosSZA,
real(rp), dimension (ia,ja), intent(out)  SFLX_water,
real(rp), dimension (ia,ja), intent(out)  SFLX_ENGI 
)

Definition at line 1286 of file mod_cpl_vars.F90.

1286  implicit none
1287 
1288  real(RP), intent(out) :: TEMP (IA,JA)
1289  real(RP), intent(out) :: PRES (IA,JA)
1290  real(RP), intent(out) :: W (IA,JA)
1291  real(RP), intent(out) :: U (IA,JA)
1292  real(RP), intent(out) :: V (IA,JA)
1293  real(RP), intent(out) :: DENS (IA,JA)
1294  real(RP), intent(out) :: QV (IA,JA)
1295  real(RP), intent(out) :: PBL (IA,JA)
1296  real(RP), intent(out) :: SFC_DENS (IA,JA)
1297  real(RP), intent(out) :: SFC_PRES (IA,JA)
1298  real(RP), intent(out) :: SFLX_rad_dn(IA,JA,N_RAD_DIR,N_RAD_RGN)
1299  real(RP), intent(out) :: cosSZA (IA,JA)
1300  real(RP), intent(out) :: SFLX_water (IA,JA)
1301  real(RP), intent(out) :: SFLX_ENGI (IA,JA)
1302 
1303  integer :: i, j, idir, irgn
1304  !---------------------------------------------------------------------------
1305 
1306 !OCL XFILL
1307  !$omp parallel do default(none) private(i,j,idir,irgn) OMP_SCHEDULE_ &
1308  !$omp shared(JS,JE,IS,IE,TEMP,PRES,W,U,V,DENS,QV,PBL,SFC_DENS,SFC_PRES,SFLX_rad_dn,cosSZA,SFLX_water,SFLX_ENGI) &
1309  !$omp shared(URB_ATM_TEMP,URB_ATM_PRES,URB_ATM_W,URB_ATM_U,URB_ATM_V,URB_ATM_DENS,URB_ATM_QV) &
1310  !$omp shared(URB_ATM_PBL,URB_ATM_SFC_DENS,URB_ATM_SFC_PRES,URB_ATM_SFLX_rad_dn,URB_ATM_cosSZA,URB_ATM_SFLX_water,URB_ATM_SFLX_ENGI)
1311  do j = js, je
1312  do i = is, ie
1313  temp(i,j) = urb_atm_temp(i,j)
1314  pres(i,j) = urb_atm_pres(i,j)
1315  w(i,j) = urb_atm_w(i,j)
1316  u(i,j) = urb_atm_u(i,j)
1317  v(i,j) = urb_atm_v(i,j)
1318  dens(i,j) = urb_atm_dens(i,j)
1319  qv(i,j) = urb_atm_qv(i,j)
1320  pbl(i,j) = urb_atm_pbl(i,j)
1321  sfc_dens(i,j) = urb_atm_sfc_dens(i,j)
1322  sfc_pres(i,j) = urb_atm_sfc_pres(i,j)
1323  cossza(i,j) = urb_atm_cossza(i,j)
1324  sflx_water(i,j) = urb_atm_sflx_water(i,j)
1325  sflx_engi(i,j) = urb_atm_sflx_engi(i,j)
1326  do irgn = i_r_ir, i_r_vis
1327  do idir = i_r_direct, i_r_diffuse
1328  sflx_rad_dn(i,j,idir,irgn) = urb_atm_sflx_rad_dn(i,j,idir,irgn)
1329  enddo
1330  enddo
1331  enddo
1332  enddo
1333 
1334  cnt_putatm_urb = 0.0_rp
1335 
1336  return

References cnt_putatm_urb, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, urb_atm_cossza, urb_atm_dens, urb_atm_pbl, urb_atm_pres, urb_atm_qv, urb_atm_sfc_dens, urb_atm_sfc_pres, urb_atm_sflx_engi, urb_atm_sflx_rad_dn, urb_atm_sflx_water, urb_atm_temp, urb_atm_u, urb_atm_v, and urb_atm_w.

Referenced by mod_urban_driver::urban_surface_get().

Here is the caller graph for this function:

Variable Documentation

◆ ocn_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sfc_temp

Definition at line 48 of file mod_cpl_vars.F90.

48  real(RP), public, allocatable :: OCN_SFC_TEMP (:,:) ! ocean surface skin temperature [K]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::ocn_sfc_albedo

Definition at line 49 of file mod_cpl_vars.F90.

49  real(RP), public, allocatable :: OCN_SFC_albedo(:,:,:,:) ! ocean surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sfc_z0m

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sfc_z0m

Definition at line 50 of file mod_cpl_vars.F90.

50  real(RP), public, allocatable :: OCN_SFC_Z0M (:,:) ! ocean surface roughness length for momemtum [m]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sfc_z0h

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sfc_z0h

Definition at line 51 of file mod_cpl_vars.F90.

51  real(RP), public, allocatable :: OCN_SFC_Z0H (:,:) ! ocean surface roughness length for heat [m]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sfc_z0e

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sfc_z0e

Definition at line 52 of file mod_cpl_vars.F90.

52  real(RP), public, allocatable :: OCN_SFC_Z0E (:,:) ! ocean surface roughness length for vapor [m]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_mw

Definition at line 53 of file mod_cpl_vars.F90.

53  real(RP), public, allocatable :: OCN_SFLX_MW (:,:) ! ocean surface w-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_mu

Definition at line 54 of file mod_cpl_vars.F90.

54  real(RP), public, allocatable :: OCN_SFLX_MU (:,:) ! ocean surface u-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_mv

Definition at line 55 of file mod_cpl_vars.F90.

55  real(RP), public, allocatable :: OCN_SFLX_MV (:,:) ! ocean surface v-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_sh

Definition at line 56 of file mod_cpl_vars.F90.

56  real(RP), public, allocatable :: OCN_SFLX_SH (:,:) ! ocean surface sensible heat flux [J/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_lh

Definition at line 57 of file mod_cpl_vars.F90.

57  real(RP), public, allocatable :: OCN_SFLX_LH (:,:) ! ocean surface latent heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_gh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_gh

Definition at line 58 of file mod_cpl_vars.F90.

58  real(RP), public, allocatable :: OCN_SFLX_GH (:,:) ! ocean surface water heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_qtrc

real(rp), dimension (:,:,:), allocatable, public mod_cpl_vars::ocn_sflx_qtrc

Definition at line 59 of file mod_cpl_vars.F90.

59  real(RP), public, allocatable :: OCN_SFLX_QTRC (:,:,:) ! ocean surface tracer flux [kg/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_sflx_engi

Definition at line 60 of file mod_cpl_vars.F90.

60  real(RP), public, allocatable :: OCN_SFLX_ENGI (:,:) ! ocean surface internal energy flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_u10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_u10

Definition at line 61 of file mod_cpl_vars.F90.

61  real(RP), public, allocatable :: OCN_U10 (:,:) ! ocean velocity u at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_v10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_v10

Definition at line 62 of file mod_cpl_vars.F90.

62  real(RP), public, allocatable :: OCN_V10 (:,:) ! ocean velocity v at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_t2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_t2

Definition at line 63 of file mod_cpl_vars.F90.

63  real(RP), public, allocatable :: OCN_T2 (:,:) ! ocean temperature at 2m [K]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ ocn_q2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_q2

Definition at line 64 of file mod_cpl_vars.F90.

64  real(RP), public, allocatable :: OCN_Q2 (:,:) ! ocean water vapor at 2m [kg/kg]

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ lnd_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sfc_temp

Definition at line 67 of file mod_cpl_vars.F90.

67  real(RP), public, allocatable :: LND_SFC_TEMP (:,:) ! land surface skin temperature [K]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::lnd_sfc_albedo

Definition at line 68 of file mod_cpl_vars.F90.

68  real(RP), public, allocatable :: LND_SFC_albedo(:,:,:,:) ! land surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sfc_z0m

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sfc_z0m

Definition at line 69 of file mod_cpl_vars.F90.

69  real(RP), public, allocatable :: LND_SFC_Z0M (:,:) ! land surface roughness length for momemtum [m]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sfc_z0h

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sfc_z0h

Definition at line 70 of file mod_cpl_vars.F90.

70  real(RP), public, allocatable :: LND_SFC_Z0H (:,:) ! land surface roughness length for heat [m]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sfc_z0e

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sfc_z0e

Definition at line 71 of file mod_cpl_vars.F90.

71  real(RP), public, allocatable :: LND_SFC_Z0E (:,:) ! land surface roughness length for vapor [m]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_mw

Definition at line 72 of file mod_cpl_vars.F90.

72  real(RP), public, allocatable :: LND_SFLX_MW (:,:) ! land surface w-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_mu

Definition at line 73 of file mod_cpl_vars.F90.

73  real(RP), public, allocatable :: LND_SFLX_MU (:,:) ! land surface u-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_mv

Definition at line 74 of file mod_cpl_vars.F90.

74  real(RP), public, allocatable :: LND_SFLX_MV (:,:) ! land surface v-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_sh

Definition at line 75 of file mod_cpl_vars.F90.

75  real(RP), public, allocatable :: LND_SFLX_SH (:,:) ! land surface sensible heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_lh

Definition at line 76 of file mod_cpl_vars.F90.

76  real(RP), public, allocatable :: LND_SFLX_LH (:,:) ! land surface latent heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_gh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_gh

Definition at line 77 of file mod_cpl_vars.F90.

77  real(RP), public, allocatable :: LND_SFLX_GH (:,:) ! land surface ground heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_qtrc

real(rp), dimension (:,:,:), allocatable, public mod_cpl_vars::lnd_sflx_qtrc

Definition at line 78 of file mod_cpl_vars.F90.

78  real(RP), public, allocatable :: LND_SFLX_QTRC (:,:,:) ! land surface tracer flux [kg/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_sflx_engi

Definition at line 79 of file mod_cpl_vars.F90.

79  real(RP), public, allocatable :: LND_SFLX_ENGI (:,:) ! land surface internal energy flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_u10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_u10

Definition at line 80 of file mod_cpl_vars.F90.

80  real(RP), public, allocatable :: LND_U10 (:,:) ! land velocity u at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_v10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_v10

Definition at line 81 of file mod_cpl_vars.F90.

81  real(RP), public, allocatable :: LND_V10 (:,:) ! land velocity v at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_t2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_t2

Definition at line 82 of file mod_cpl_vars.F90.

82  real(RP), public, allocatable :: LND_T2 (:,:) ! land temperature at 2m [K]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ lnd_q2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_q2

Definition at line 83 of file mod_cpl_vars.F90.

83  real(RP), public, allocatable :: LND_Q2 (:,:) ! land water vapor at 2m [kg/kg]

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ urb_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sfc_temp

Definition at line 86 of file mod_cpl_vars.F90.

86  real(RP), public, allocatable :: URB_SFC_TEMP (:,:) ! urban surface skin temperature [K]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::urb_sfc_albedo

Definition at line 87 of file mod_cpl_vars.F90.

87  real(RP), public, allocatable :: URB_SFC_albedo(:,:,:,:) ! urban surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sfc_z0m

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sfc_z0m

Definition at line 88 of file mod_cpl_vars.F90.

88  real(RP), public, allocatable :: URB_SFC_Z0M (:,:) ! urban surface roughness length for momemtum [m]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sfc_z0h

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sfc_z0h

Definition at line 89 of file mod_cpl_vars.F90.

89  real(RP), public, allocatable :: URB_SFC_Z0H (:,:) ! urban surface roughness length for heat [m]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sfc_z0e

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sfc_z0e

Definition at line 90 of file mod_cpl_vars.F90.

90  real(RP), public, allocatable :: URB_SFC_Z0E (:,:) ! urban surface roughness length for vapor [m]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_mw

Definition at line 91 of file mod_cpl_vars.F90.

91  real(RP), public, allocatable :: URB_SFLX_MW (:,:) ! urban surface w-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_mu

Definition at line 92 of file mod_cpl_vars.F90.

92  real(RP), public, allocatable :: URB_SFLX_MU (:,:) ! urban surface u-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_mv

Definition at line 93 of file mod_cpl_vars.F90.

93  real(RP), public, allocatable :: URB_SFLX_MV (:,:) ! urban surface v-momentum flux [kg/m/s2]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_sh

Definition at line 94 of file mod_cpl_vars.F90.

94  real(RP), public, allocatable :: URB_SFLX_SH (:,:) ! urban surface sensible heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_lh

Definition at line 95 of file mod_cpl_vars.F90.

95  real(RP), public, allocatable :: URB_SFLX_LH (:,:) ! urban surface latent heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_shex

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_shex

Definition at line 96 of file mod_cpl_vars.F90.

96  real(RP), public, allocatable :: URB_SFLX_SHEX (:,:) ! urban surface extra sensible heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_qvex

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_qvex

Definition at line 97 of file mod_cpl_vars.F90.

97  real(RP), public, allocatable :: URB_SFLX_QVEX (:,:) ! urban surface extra latent heat flux [kg/kg/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_gh

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_gh

Definition at line 98 of file mod_cpl_vars.F90.

98  real(RP), public, allocatable :: URB_SFLX_GH (:,:) ! urban surface ground heat flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_qtrc

real(rp), dimension (:,:,:), allocatable, public mod_cpl_vars::urb_sflx_qtrc

Definition at line 99 of file mod_cpl_vars.F90.

99  real(RP), public, allocatable :: URB_SFLX_QTRC (:,:,:) ! urban surface tracer flux [kg/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_sflx_engi

Definition at line 100 of file mod_cpl_vars.F90.

100  real(RP), public, allocatable :: URB_SFLX_ENGI (:,:) ! urban surface internal energy flux [J/m2/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_u10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_u10

Definition at line 101 of file mod_cpl_vars.F90.

101  real(RP), public, allocatable :: URB_U10 (:,:) ! urban velocity u at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_v10

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_v10

Definition at line 102 of file mod_cpl_vars.F90.

102  real(RP), public, allocatable :: URB_V10 (:,:) ! urban velocity v at 10m [m/s]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_t2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_t2

Definition at line 103 of file mod_cpl_vars.F90.

103  real(RP), public, allocatable :: URB_T2 (:,:) ! urban temperature at 2m [K]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ urb_q2

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_q2

Definition at line 104 of file mod_cpl_vars.F90.

104  real(RP), public, allocatable :: URB_Q2 (:,:) ! urban water vapor at 2m [kg/kg]

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

◆ ocn_atm_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_temp

Definition at line 107 of file mod_cpl_vars.F90.

107  real(RP), public, allocatable :: OCN_ATM_TEMP (:,:) ! temperature at the lowermost atmosphere layer [K]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_pres

Definition at line 108 of file mod_cpl_vars.F90.

108  real(RP), public, allocatable :: OCN_ATM_PRES (:,:) ! pressure at the lowermost atmosphere layer [Pa]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_w

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_w

Definition at line 109 of file mod_cpl_vars.F90.

109  real(RP), public, allocatable :: OCN_ATM_W (:,:) ! velocity w at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_u

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_u

Definition at line 110 of file mod_cpl_vars.F90.

110  real(RP), public, allocatable :: OCN_ATM_U (:,:) ! velocity u at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_v

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_v

Definition at line 111 of file mod_cpl_vars.F90.

111  real(RP), public, allocatable :: OCN_ATM_V (:,:) ! velocity v at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_dens

Definition at line 112 of file mod_cpl_vars.F90.

112  real(RP), public, allocatable :: OCN_ATM_DENS (:,:) ! density at the lowermost atmosphere layer [kg/m3]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_qv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_qv

Definition at line 113 of file mod_cpl_vars.F90.

113  real(RP), public, allocatable :: OCN_ATM_QV (:,:) ! water vapor at the lowermost atmosphere layer [kg/kg]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_pbl

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_pbl

Definition at line 114 of file mod_cpl_vars.F90.

114  real(RP), public, allocatable :: OCN_ATM_PBL (:,:) ! the top of atmospheric mixing layer [m]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_sfc_dens

Definition at line 115 of file mod_cpl_vars.F90.

115  real(RP), public, allocatable :: OCN_ATM_SFC_DENS (:,:) ! surface density [kg/m3]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_sfc_pres

Definition at line 116 of file mod_cpl_vars.F90.

116  real(RP), public, allocatable :: OCN_ATM_SFC_PRES (:,:) ! surface pressure [Pa]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_sflx_rad_dn

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::ocn_atm_sflx_rad_dn

Definition at line 117 of file mod_cpl_vars.F90.

117  real(RP), public, allocatable :: OCN_ATM_SFLX_rad_dn(:,:,:,:) ! downward radiation flux (direct/diffuse,IR/near-IR/VIS) [J/m2/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_cossza

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_cossza

Definition at line 118 of file mod_cpl_vars.F90.

118  real(RP), public, allocatable :: OCN_ATM_cosSZA (:,:) ! cos(solar zenith angle) (0-1)

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_sflx_water

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_sflx_water

Definition at line 119 of file mod_cpl_vars.F90.

119  real(RP), public, allocatable :: OCN_ATM_SFLX_water (:,:) ! precipitation flux [kg/m2/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ ocn_atm_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::ocn_atm_sflx_engi

Definition at line 120 of file mod_cpl_vars.F90.

120  real(RP), public, allocatable :: OCN_ATM_SFLX_ENGI (:,:) ! internal energy flux [J/m2/s]

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_temp

Definition at line 123 of file mod_cpl_vars.F90.

123  real(RP), public, allocatable :: LND_ATM_TEMP (:,:) ! temperature at the lowermost atmosphere layer [K]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_pres

Definition at line 124 of file mod_cpl_vars.F90.

124  real(RP), public, allocatable :: LND_ATM_PRES (:,:) ! pressure at the lowermost atmosphere layer [Pa]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_w

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_w

Definition at line 125 of file mod_cpl_vars.F90.

125  real(RP), public, allocatable :: LND_ATM_W (:,:) ! velocity w at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_u

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_u

Definition at line 126 of file mod_cpl_vars.F90.

126  real(RP), public, allocatable :: LND_ATM_U (:,:) ! velocity u at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_v

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_v

Definition at line 127 of file mod_cpl_vars.F90.

127  real(RP), public, allocatable :: LND_ATM_V (:,:) ! velocity v at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_dens

Definition at line 128 of file mod_cpl_vars.F90.

128  real(RP), public, allocatable :: LND_ATM_DENS (:,:) ! density at the lowermost atmosphere layer [kg/m3]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_qv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_qv

Definition at line 129 of file mod_cpl_vars.F90.

129  real(RP), public, allocatable :: LND_ATM_QV (:,:) ! water vapor at the lowermost atmosphere layer [kg/kg]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_pbl

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_pbl

Definition at line 130 of file mod_cpl_vars.F90.

130  real(RP), public, allocatable :: LND_ATM_PBL (:,:) ! the top of atmospheric mixing layer [m]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_sfc_dens

Definition at line 131 of file mod_cpl_vars.F90.

131  real(RP), public, allocatable :: LND_ATM_SFC_DENS (:,:) ! surface density [kg/m3]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_sfc_pres

Definition at line 132 of file mod_cpl_vars.F90.

132  real(RP), public, allocatable :: LND_ATM_SFC_PRES (:,:) ! surface pressure [Pa]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_sflx_rad_dn

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::lnd_atm_sflx_rad_dn

Definition at line 133 of file mod_cpl_vars.F90.

133  real(RP), public, allocatable :: LND_ATM_SFLX_rad_dn(:,:,:,:) ! downward radiation flux (direct/diffuse,IR/near-IR/VIS) [J/m2/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_cossza

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_cossza

Definition at line 134 of file mod_cpl_vars.F90.

134  real(RP), public, allocatable :: LND_ATM_cosSZA (:,:) ! cos(solar zenith angle) (0-1)

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_sflx_water

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_sflx_water

Definition at line 135 of file mod_cpl_vars.F90.

135  real(RP), public, allocatable :: LND_ATM_SFLX_water (:,:) ! precipitation flux [kg/m2/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ lnd_atm_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::lnd_atm_sflx_engi

Definition at line 136 of file mod_cpl_vars.F90.

136  real(RP), public, allocatable :: LND_ATM_SFLX_ENGI (:,:) ! internal energy flux [J/m2/s]

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_temp

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_temp

Definition at line 139 of file mod_cpl_vars.F90.

139  real(RP), public, allocatable :: URB_ATM_TEMP (:,:) ! temperature at the lowermost atmosphere layer [K]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_pres

Definition at line 140 of file mod_cpl_vars.F90.

140  real(RP), public, allocatable :: URB_ATM_PRES (:,:) ! pressure at the lowermost atmosphere layer [Pa]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_w

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_w

Definition at line 141 of file mod_cpl_vars.F90.

141  real(RP), public, allocatable :: URB_ATM_W (:,:) ! velocity w at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_u

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_u

Definition at line 142 of file mod_cpl_vars.F90.

142  real(RP), public, allocatable :: URB_ATM_U (:,:) ! velocity u at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_v

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_v

Definition at line 143 of file mod_cpl_vars.F90.

143  real(RP), public, allocatable :: URB_ATM_V (:,:) ! velocity v at the lowermost atmosphere layer [m/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_dens

Definition at line 144 of file mod_cpl_vars.F90.

144  real(RP), public, allocatable :: URB_ATM_DENS (:,:) ! density at the lowermost atmosphere layer [kg/m3]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_qv

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_qv

Definition at line 145 of file mod_cpl_vars.F90.

145  real(RP), public, allocatable :: URB_ATM_QV (:,:) ! water vapor at the lowermost atmosphere layer [kg/kg]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_pbl

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_pbl

Definition at line 146 of file mod_cpl_vars.F90.

146  real(RP), public, allocatable :: URB_ATM_PBL (:,:) ! the top of atmospheric mixing layer [m]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_sfc_dens

Definition at line 147 of file mod_cpl_vars.F90.

147  real(RP), public, allocatable :: URB_ATM_SFC_DENS (:,:) ! surface density [kg/m3]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_sfc_pres

Definition at line 148 of file mod_cpl_vars.F90.

148  real(RP), public, allocatable :: URB_ATM_SFC_PRES (:,:) ! surface pressure [Pa]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_sflx_rad_dn

real(rp), dimension(:,:,:,:), allocatable, public mod_cpl_vars::urb_atm_sflx_rad_dn

Definition at line 149 of file mod_cpl_vars.F90.

149  real(RP), public, allocatable :: URB_ATM_SFLX_rad_dn(:,:,:,:) ! downward radiation flux (direct/diffuse,IR/near-IR/VIS) [J/m2/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_cossza

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_cossza

Definition at line 150 of file mod_cpl_vars.F90.

150  real(RP), public, allocatable :: URB_ATM_cosSZA (:,:) ! cos(solar zenith angle) (0-1)

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_sflx_water

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_sflx_water

Definition at line 151 of file mod_cpl_vars.F90.

151  real(RP), public, allocatable :: URB_ATM_SFLX_water (:,:) ! precipitation flux [kg/m2/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ urb_atm_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_cpl_vars::urb_atm_sflx_engi

Definition at line 152 of file mod_cpl_vars.F90.

152  real(RP), public, allocatable :: URB_ATM_SFLX_ENGI (:,:) ! internal energy flux [J/m2/s]

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ cnt_putatm_ocn

real(rp), public mod_cpl_vars::cnt_putatm_ocn

Definition at line 155 of file mod_cpl_vars.F90.

155  real(RP), public :: CNT_putATM_OCN ! put counter for atmos to ocean

Referenced by cpl_getatm_ocn(), cpl_putatm(), and cpl_vars_setup().

◆ cnt_putatm_lnd

real(rp), public mod_cpl_vars::cnt_putatm_lnd

Definition at line 156 of file mod_cpl_vars.F90.

156  real(RP), public :: CNT_putATM_LND ! put counter for atmos to land

Referenced by cpl_getatm_lnd(), cpl_putatm(), and cpl_vars_setup().

◆ cnt_putatm_urb

real(rp), public mod_cpl_vars::cnt_putatm_urb

Definition at line 157 of file mod_cpl_vars.F90.

157  real(RP), public :: CNT_putATM_URB ! put counter for atmos to urban

Referenced by cpl_getatm_urb(), cpl_putatm(), and cpl_vars_setup().

◆ cnt_putocn

real(rp), public mod_cpl_vars::cnt_putocn

Definition at line 158 of file mod_cpl_vars.F90.

158  real(RP), public :: CNT_putOCN ! put counter for ocean

Referenced by cpl_getsfc_atm(), cpl_putocn(), and cpl_vars_setup().

◆ cnt_putlnd

real(rp), public mod_cpl_vars::cnt_putlnd

Definition at line 159 of file mod_cpl_vars.F90.

159  real(RP), public :: CNT_putLND ! put counter for land

Referenced by cpl_getsfc_atm(), cpl_putlnd(), and cpl_vars_setup().

◆ cnt_puturb

real(rp), public mod_cpl_vars::cnt_puturb

Definition at line 160 of file mod_cpl_vars.F90.

160  real(RP), public :: CNT_putURB ! put counter for urban

Referenced by cpl_getsfc_atm(), cpl_puturb(), and cpl_vars_setup().

scale_landuse::landuse_fact_lake
real(rp), dimension(:,:), allocatable, public landuse_fact_lake
lake factor
Definition: scale_landuse.F90:47
scale_landuse::landuse_fact_ocean
real(rp), dimension(:,:), allocatable, public landuse_fact_ocean
ocean factor
Definition: scale_landuse.F90:44
mod_urban_admin::urban_do
logical, public urban_do
Definition: mod_urban_admin.F90:32
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_atmos_hydrometeor
module atmosphere / hydrometeor
Definition: scale_atmos_hydrometeor.F90:12
scale_atmos_hydrometeor::atmos_hydrometeor_dry
logical, public atmos_hydrometeor_dry
Definition: scale_atmos_hydrometeor.F90:97
scale_prc
module PROCESS
Definition: scale_prc.F90:11
mod_atmos_vars::dens
real(rp), dimension(:,:,:), allocatable, target, public dens
Definition: mod_atmos_vars.F90:75
mod_ocean_admin
module Ocean admin
Definition: mod_ocean_admin.F90:11
scale_const
module CONSTANT
Definition: scale_const.F90:11
mod_land_admin
module Land admin
Definition: mod_land_admin.F90:11
mod_lake_admin::lake_do
logical, public lake_do
Definition: mod_lake_admin.F90:32
scale_landuse::landuse_fact_land
real(rp), dimension(:,:), allocatable, public landuse_fact_land
land factor
Definition: scale_landuse.F90:45
mod_ocean_admin::ocean_do
logical, public ocean_do
Definition: mod_ocean_admin.F90:32
mod_land_admin::land_do
logical, public land_do
Definition: mod_land_admin.F90:41
scale_atmos_hydrometeor::lhf
real(rp), public lhf
latent heat of fusion for use [J/kg]
Definition: scale_atmos_hydrometeor.F90:128
scale_landuse::landuse_fact_urban
real(rp), dimension(:,:), allocatable, public landuse_fact_urban
urban factor
Definition: scale_landuse.F90:46
scale_landuse
module LANDUSE
Definition: scale_landuse.F90:19
mod_urban_admin
module Urban admin
Definition: mod_urban_admin.F90:11
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
mod_lake_admin
module Lake admin
Definition: mod_lake_admin.F90:11
scale_atmos_hydrometeor::cv_water
real(rp), public cv_water
CV for water [J/kg/K].
Definition: scale_atmos_hydrometeor.F90:132
scale_atmos_hydrometeor::cv_ice
real(rp), public cv_ice
CV for ice [J/kg/K].
Definition: scale_atmos_hydrometeor.F90:134
Generated by   doxygen 1.8.17