MODULE module_alloc_space_1
CONTAINS
SUBROUTINE alloc_space_field_core_1 ( grid, id, setinitval_in , tl_in , inter_domain_in , okay_to_alloc_in, num_bytes_allocated , &
sd31, ed31, sd32, ed32, sd33, ed33, &
sm31 , em31 , sm32 , em32 , sm33 , em33 , &
sp31 , ep31 , sp32 , ep32 , sp33 , ep33 , &
sp31x, ep31x, sp32x, ep32x, sp33x, ep33x, &
sp31y, ep31y, sp32y, ep32y, sp33y, ep33y, &
sm31x, em31x, sm32x, em32x, sm33x, em33x, &
sm31y, em31y, sm32y, em32y, sm33y, em33y )
USE module_domain_type
USE module_configure, ONLY : model_config_rec, grid_config_rec_type, in_use_for_config, model_to_grid_config_rec
USE module_scalar_tables
IMPLICIT NONE
TYPE(domain) , POINTER :: grid
INTEGER , INTENT(IN) :: id
INTEGER , INTENT(IN) :: setinitval_in
INTEGER , INTENT(IN) :: sd31, ed31, sd32, ed32, sd33, ed33
INTEGER , INTENT(IN) :: sm31, em31, sm32, em32, sm33, em33
INTEGER , INTENT(IN) :: sp31, ep31, sp32, ep32, sp33, ep33
INTEGER , INTENT(IN) :: sp31x, ep31x, sp32x, ep32x, sp33x, ep33x
INTEGER , INTENT(IN) :: sp31y, ep31y, sp32y, ep32y, sp33y, ep33y
INTEGER , INTENT(IN) :: sm31x, em31x, sm32x, em32x, sm33x, em33x
INTEGER , INTENT(IN) :: sm31y, em31y, sm32y, em32y, sm33y, em33y
INTEGER , INTENT(IN) :: tl_in
LOGICAL , INTENT(IN) :: inter_domain_in, okay_to_alloc_in
INTEGER(KIND=8) , INTENT(INOUT) :: num_bytes_allocated
INTEGER idum1, idum2, spec_bdy_width
REAL initial_data_value
CHARACTER (LEN=256) message
INTEGER tl
LOGICAL inter_domain, okay_to_alloc
INTEGER setinitval
INTEGER sr_x, sr_y
INTEGER ierr
INTEGER :: loop
TYPE ( grid_config_rec_type ) :: config_flags
INTEGER :: k_start , k_end, its, ite, jts, jte
INTEGER :: ids , ide , jds , jde , kds , kde , &
ims , ime , jms , jme , kms , kme , &
ips , ipe , jps , jpe , kps , kpe
INTEGER :: sids , side , sjds , sjde , skds , skde , &
sims , sime , sjms , sjme , skms , skme , &
sips , sipe , sjps , sjpe , skps , skpe
INTEGER :: imsx, imex, jmsx, jmex, kmsx, kmex, &
ipsx, ipex, jpsx, jpex, kpsx, kpex, &
imsy, imey, jmsy, jmey, kmsy, kmey, &
ipsy, ipey, jpsy, jpey, kpsy, kpey
data_ordering : SELECT CASE ( model_data_order )
CASE ( DATA_ORDER_XYZ )
ids = sd31 ; ide = ed31 ; jds = sd32 ; jde = ed32 ; kds = sd33 ; kde = ed33 ;
ims = sm31 ; ime = em31 ; jms = sm32 ; jme = em32 ; kms = sm33 ; kme = em33 ;
ips = sp31 ; ipe = ep31 ; jps = sp32 ; jpe = ep32 ; kps = sp33 ; kpe = ep33 ;
imsx = sm31x ; imex = em31x ; jmsx = sm32x ; jmex = em32x ; kmsx = sm33x ; kmex = em33x ;
ipsx = sp31x ; ipex = ep31x ; jpsx = sp32x ; jpex = ep32x ; kpsx = sp33x ; kpex = ep33x ;
imsy = sm31y ; imey = em31y ; jmsy = sm32y ; jmey = em32y ; kmsy = sm33y ; kmey = em33y ;
ipsy = sp31y ; ipey = ep31y ; jpsy = sp32y ; jpey = ep32y ; kpsy = sp33y ; kpey = ep33y ;
CASE ( DATA_ORDER_YXZ )
ids = sd32 ; ide = ed32 ; jds = sd31 ; jde = ed31 ; kds = sd33 ; kde = ed33 ;
ims = sm32 ; ime = em32 ; jms = sm31 ; jme = em31 ; kms = sm33 ; kme = em33 ;
ips = sp32 ; ipe = ep32 ; jps = sp31 ; jpe = ep31 ; kps = sp33 ; kpe = ep33 ;
imsx = sm32x ; imex = em32x ; jmsx = sm31x ; jmex = em31x ; kmsx = sm33x ; kmex = em33x ;
ipsx = sp32x ; ipex = ep32x ; jpsx = sp31x ; jpex = ep31x ; kpsx = sp33x ; kpex = ep33x ;
imsy = sm32y ; imey = em32y ; jmsy = sm31y ; jmey = em31y ; kmsy = sm33y ; kmey = em33y ;
ipsy = sp32y ; ipey = ep32y ; jpsy = sp31y ; jpey = ep31y ; kpsy = sp33y ; kpey = ep33y ;
CASE ( DATA_ORDER_ZXY )
ids = sd32 ; ide = ed32 ; jds = sd33 ; jde = ed33 ; kds = sd31 ; kde = ed31 ;
ims = sm32 ; ime = em32 ; jms = sm33 ; jme = em33 ; kms = sm31 ; kme = em31 ;
ips = sp32 ; ipe = ep32 ; jps = sp33 ; jpe = ep33 ; kps = sp31 ; kpe = ep31 ;
imsx = sm32x ; imex = em32x ; jmsx = sm33x ; jmex = em33x ; kmsx = sm31x ; kmex = em31x ;
ipsx = sp32x ; ipex = ep32x ; jpsx = sp33x ; jpex = ep33x ; kpsx = sp31x ; kpex = ep31x ;
imsy = sm32y ; imey = em32y ; jmsy = sm33y ; jmey = em33y ; kmsy = sm31y ; kmey = em31y ;
ipsy = sp32y ; ipey = ep32y ; jpsy = sp33y ; jpey = ep33y ; kpsy = sp31y ; kpey = ep31y ;
CASE ( DATA_ORDER_ZYX )
ids = sd33 ; ide = ed33 ; jds = sd32 ; jde = ed32 ; kds = sd31 ; kde = ed31 ;
ims = sm33 ; ime = em33 ; jms = sm32 ; jme = em32 ; kms = sm31 ; kme = em31 ;
ips = sp33 ; ipe = ep33 ; jps = sp32 ; jpe = ep32 ; kps = sp31 ; kpe = ep31 ;
imsx = sm33x ; imex = em33x ; jmsx = sm32x ; jmex = em32x ; kmsx = sm31x ; kmex = em31x ;
ipsx = sp33x ; ipex = ep33x ; jpsx = sp32x ; jpex = ep32x ; kpsx = sp31x ; kpex = ep31x ;
imsy = sm33y ; imey = em33y ; jmsy = sm32y ; jmey = em32y ; kmsy = sm31y ; kmey = em31y ;
ipsy = sp33y ; ipey = ep33y ; jpsy = sp32y ; jpey = ep32y ; kpsy = sp31y ; kpey = ep31y ;
CASE ( DATA_ORDER_XZY )
ids = sd31 ; ide = ed31 ; jds = sd33 ; jde = ed33 ; kds = sd32 ; kde = ed32 ;
ims = sm31 ; ime = em31 ; jms = sm33 ; jme = em33 ; kms = sm32 ; kme = em32 ;
ips = sp31 ; ipe = ep31 ; jps = sp33 ; jpe = ep33 ; kps = sp32 ; kpe = ep32 ;
imsx = sm31x ; imex = em31x ; jmsx = sm33x ; jmex = em33x ; kmsx = sm32x ; kmex = em32x ;
ipsx = sp31x ; ipex = ep31x ; jpsx = sp33x ; jpex = ep33x ; kpsx = sp32x ; kpex = ep32x ;
imsy = sm31y ; imey = em31y ; jmsy = sm33y ; jmey = em33y ; kmsy = sm32y ; kmey = em32y ;
ipsy = sp31y ; ipey = ep31y ; jpsy = sp33y ; jpey = ep33y ; kpsy = sp32y ; kpey = ep32y ;
CASE ( DATA_ORDER_YZX )
ids = sd33 ; ide = ed33 ; jds = sd31 ; jde = ed31 ; kds = sd32 ; kde = ed32 ;
ims = sm33 ; ime = em33 ; jms = sm31 ; jme = em31 ; kms = sm32 ; kme = em32 ;
ips = sp33 ; ipe = ep33 ; jps = sp31 ; jpe = ep31 ; kps = sp32 ; kpe = ep32 ;
imsx = sm33x ; imex = em33x ; jmsx = sm31x ; jmex = em31x ; kmsx = sm32x ; kmex = em32x ;
ipsx = sp33x ; ipex = ep33x ; jpsx = sp31x ; jpex = ep31x ; kpsx = sp32x ; kpex = ep32x ;
imsy = sm33y ; imey = em33y ; jmsy = sm31y ; jmey = em31y ; kmsy = sm32y ; kmey = em32y ;
ipsy = sp33y ; ipey = ep33y ; jpsy = sp31y ; jpey = ep31y ; kpsy = sp32y ; kpey = ep32y ;
END SELECT data_ordering
CALL model_to_grid_config_rec ( id , model_config_rec , config_flags )
CALL nl_get_sr_x( id , sr_x )
CALL nl_get_sr_y( id , sr_y )
tl = tl_in
inter_domain = inter_domain_in
okay_to_alloc = okay_to_alloc_in
CALL get_initial_data_value ( initial_data_value )
setinitval = setinitval_in
CALL nl_get_spec_bdy_width( 1, spec_bdy_width )
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'dy_nmm'
grid%tail_statevars%DataName = 'DY_NMM'
grid%tail_statevars%Description = 'North-south distance H-to-V points'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%dy_nmm
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dy_nmm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'cpgfv'
grid%tail_statevars%DataName = 'CPGFV'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%cpgfv
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cpgfv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'en'
grid%tail_statevars%DataName = 'EN'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%en
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%en=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'ent'
grid%tail_statevars%DataName = 'ENT'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%ent
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%ent=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'f4d'
grid%tail_statevars%DataName = 'F4D'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%f4d
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%f4d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'f4q'
grid%tail_statevars%DataName = 'F4Q'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%f4q
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%f4q=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'ef4t'
grid%tail_statevars%DataName = 'EF4T'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%ef4t
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%ef4t=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'upstrm'
grid%tail_statevars%DataName = 'UPSTRM'
grid%tail_statevars%Description = '.TRUE. => In upstream advec region of grid'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%upstrm
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%upstrm=.FALSE.
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'dlmd'
grid%tail_statevars%DataName = 'DLMD'
grid%tail_statevars%Description = 'East-west angular distance H-to-V points'
grid%tail_statevars%Units = 'degrees'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%dlmd
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dlmd=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'dphd'
grid%tail_statevars%DataName = 'DPHD'
grid%tail_statevars%Description = 'North-south angular distance H-to-V points'
grid%tail_statevars%Units = 'degrees'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%dphd
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dphd=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'pdtop'
grid%tail_statevars%DataName = 'PDTOP'
grid%tail_statevars%Description = 'Mass at I,J in pressure domain'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%pdtop
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%pdtop=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'pt'
grid%tail_statevars%DataName = 'PT'
grid%tail_statevars%Description = 'Pressure at top of domain'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%pt
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%pt=initial_data_value
IF(okay_to_alloc.AND.in_use_for_config(id,'pdsl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%pdsl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",393,&
'frame/module_domain.f: Failed to allocate grid%pdsl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pdsl=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pdsl'
grid%tail_statevars%DataName = 'PDSL'
grid%tail_statevars%Description = 'Sigma-domain pressure at sigma=1'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pdsl
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%pdsl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",443,&
'frame/module_domain.f: Failed to allocate grid%pdsl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pdslo').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%pdslo(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",452,&
'frame/module_domain.f: Failed to allocate grid%pdslo(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pdslo=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pdslo'
grid%tail_statevars%DataName = 'PDSLO'
grid%tail_statevars%Description = 'PDSL from previous timestep'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pdslo
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%pdslo(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",502,&
'frame/module_domain.f: Failed to allocate grid%pdslo(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'psdt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%psdt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",511,&
'frame/module_domain.f: Failed to allocate grid%psdt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psdt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'psdt'
grid%tail_statevars%DataName = 'PSDT'
grid%tail_statevars%Description = 'Surface pressure tendency'
grid%tail_statevars%Units = 'Pa s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%psdt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%psdt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",561,&
'frame/module_domain.f: Failed to allocate grid%psdt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'div').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%div(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",570,&
'frame/module_domain.f: Failed to allocate grid%div(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%div=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'div'
grid%tail_statevars%DataName = 'DIV'
grid%tail_statevars%Description = 'Divergence'
grid%tail_statevars%Units = 'Pa s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%div
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%div(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",620,&
'frame/module_domain.f: Failed to allocate grid%div(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'def3d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%def3d(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",629,&
'frame/module_domain.f: Failed to allocate grid%def3d(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%def3d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'def3d'
grid%tail_statevars%DataName = 'DEF3D'
grid%tail_statevars%Description = 'Deformation term from horizontal diffusion'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%def3d
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%def3d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",679,&
'frame/module_domain.f: Failed to allocate grid%def3d(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'few').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%few(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",688,&
'frame/module_domain.f: Failed to allocate grid%few(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%few=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'few'
grid%tail_statevars%DataName = 'FEW'
grid%tail_statevars%Description = 'Integrated east-west mass flux'
grid%tail_statevars%Units = 'Pa m2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%few
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%few(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",738,&
'frame/module_domain.f: Failed to allocate grid%few(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'fne').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fne(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",747,&
'frame/module_domain.f: Failed to allocate grid%fne(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fne=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fne'
grid%tail_statevars%DataName = 'FNE'
grid%tail_statevars%Description = 'Integrated northeast-southwest mass flux'
grid%tail_statevars%Units = 'Pa m2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fne
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%fne(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",797,&
'frame/module_domain.f: Failed to allocate grid%fne(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'fns').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fns(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",806,&
'frame/module_domain.f: Failed to allocate grid%fns(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fns=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fns'
grid%tail_statevars%DataName = 'FNS'
grid%tail_statevars%Description = 'Integrated north-south mass flux'
grid%tail_statevars%Units = 'Pa m2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fns
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%fns(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",856,&
'frame/module_domain.f: Failed to allocate grid%fns(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'fse').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fse(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",865,&
'frame/module_domain.f: Failed to allocate grid%fse(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fse=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fse'
grid%tail_statevars%DataName = 'FSE'
grid%tail_statevars%Description = 'Integrated southeast-northwest mass flux'
grid%tail_statevars%Units = 'Pa m2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fse
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%fse(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",915,&
'frame/module_domain.f: Failed to allocate grid%fse(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'omgalf').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%omgalf(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",924,&
'frame/module_domain.f: Failed to allocate grid%omgalf(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%omgalf=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'omgalf'
grid%tail_statevars%DataName = 'OMGALF'
grid%tail_statevars%Description = 'Omega-alpha'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%omgalf
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%omgalf(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",974,&
'frame/module_domain.f: Failed to allocate grid%omgalf(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'petdt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%petdt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",983,&
'frame/module_domain.f: Failed to allocate grid%petdt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%petdt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'petdt'
grid%tail_statevars%DataName = 'PETDT'
grid%tail_statevars%Description = 'Vertical mass flux'
grid%tail_statevars%Units = 'Pa s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%petdt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%petdt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1033,&
'frame/module_domain.f: Failed to allocate grid%petdt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rtop').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rtop(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1042,&
'frame/module_domain.f: Failed to allocate grid%rtop(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rtop=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rtop'
grid%tail_statevars%DataName = 'RTOP'
grid%tail_statevars%Description = 'Rd * Tv / P'
grid%tail_statevars%Units = 'm3 kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rtop
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%rtop(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1092,&
'frame/module_domain.f: Failed to allocate grid%rtop(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pblh').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%pblh(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1101,&
'frame/module_domain.f: Failed to allocate grid%pblh(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pblh=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pblh'
grid%tail_statevars%DataName = 'PBLH'
grid%tail_statevars%Description = 'PBL Height'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pblh
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%pblh(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1151,&
'frame/module_domain.f: Failed to allocate grid%pblh(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lpbl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lpbl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1160,&
'frame/module_domain.f: Failed to allocate grid%lpbl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lpbl=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lpbl'
grid%tail_statevars%DataName = 'LPBL'
grid%tail_statevars%Description = 'Model layer of PBL top'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%lpbl
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lpbl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1210,&
'frame/module_domain.f: Failed to allocate grid%lpbl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'mixht').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%mixht(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1219,&
'frame/module_domain.f: Failed to allocate grid%mixht(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mixht=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mixht'
grid%tail_statevars%DataName = 'MIXHT'
grid%tail_statevars%Description = 'MXL HEIGHT'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mixht
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%mixht(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1269,&
'frame/module_domain.f: Failed to allocate grid%mixht(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ustar'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ustar(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1278,&
'frame/module_domain.f: Failed to allocate grid%ustar(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ustar=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ustar'
grid%tail_statevars%DataName = 'USTAR'
grid%tail_statevars%Description = 'Friction velocity'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ustar
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ustar(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1328,&
'frame/module_domain.f: Failed to allocate grid%ustar(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'z0'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%z0(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1337,&
'frame/module_domain.f: Failed to allocate grid%z0(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z0=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z0'
grid%tail_statevars%DataName = 'Z0'
grid%tail_statevars%Description = 'Thermal Roughness length'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%z0
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%z0(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1387,&
'frame/module_domain.f: Failed to allocate grid%z0(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'mz0').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%mz0(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1396,&
'frame/module_domain.f: Failed to allocate grid%mz0(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mz0=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mz0'
grid%tail_statevars%DataName = 'MZ0'
grid%tail_statevars%Description = 'momentum Roughness length'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mz0
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%mz0(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1446,&
'frame/module_domain.f: Failed to allocate grid%mz0(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'scurx'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%scurx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1455,&
'frame/module_domain.f: Failed to allocate grid%scurx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scurx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scurx'
grid%tail_statevars%DataName = 'SCURX'
grid%tail_statevars%Description = 'Surface Currents(X)'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%scurx
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%scurx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1505,&
'frame/module_domain.f: Failed to allocate grid%scurx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'scury'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%scury(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1514,&
'frame/module_domain.f: Failed to allocate grid%scury(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scury=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scury'
grid%tail_statevars%DataName = 'SCURY'
grid%tail_statevars%Description = 'Surface Currents(Y)'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%scury
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%scury(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1564,&
'frame/module_domain.f: Failed to allocate grid%scury(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'charn'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%charn(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1573,&
'frame/module_domain.f: Failed to allocate grid%charn(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%charn=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'charn'
grid%tail_statevars%DataName = 'CHARN'
grid%tail_statevars%Description = 'Charnock Coeff'
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%charn
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%charn(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1623,&
'frame/module_domain.f: Failed to allocate grid%charn(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'msang'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%msang(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1632,&
'frame/module_domain.f: Failed to allocate grid%msang(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%msang=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'msang'
grid%tail_statevars%DataName = 'MSANG'
grid%tail_statevars%Description = 'Wind/Stress Angle'
grid%tail_statevars%Units = 'Radian'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%msang
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%msang(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1682,&
'frame/module_domain.f: Failed to allocate grid%msang(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rchno').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rchno(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1691,&
'frame/module_domain.f: Failed to allocate grid%rchno(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rchno=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rchno'
grid%tail_statevars%DataName = 'RCHNO'
grid%tail_statevars%Description = 'Richardson number'
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rchno
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rchno(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1741,&
'frame/module_domain.f: Failed to allocate grid%rchno(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'zsig1').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%zsig1(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1750,&
'frame/module_domain.f: Failed to allocate grid%zsig1(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zsig1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zsig1'
grid%tail_statevars%DataName = 'ZSIG1'
grid%tail_statevars%Description = 'Height of lowest model level'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%zsig1
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%zsig1(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1800,&
'frame/module_domain.f: Failed to allocate grid%zsig1(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ulowl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ulowl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1809,&
'frame/module_domain.f: Failed to allocate grid%ulowl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ulowl=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ulowl'
grid%tail_statevars%DataName = 'ULOWL'
grid%tail_statevars%Description = 'U at Lowest Level'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ulowl
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ulowl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1859,&
'frame/module_domain.f: Failed to allocate grid%ulowl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'vlowl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%vlowl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1868,&
'frame/module_domain.f: Failed to allocate grid%vlowl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vlowl=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vlowl'
grid%tail_statevars%DataName = 'VLOWL'
grid%tail_statevars%Description = 'V at Lowest Level'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%vlowl
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%vlowl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1918,&
'frame/module_domain.f: Failed to allocate grid%vlowl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rc2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rc2d(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1927,&
'frame/module_domain.f: Failed to allocate grid%rc2d(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rc2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rc2d'
grid%tail_statevars%DataName = 'RC2D'
grid%tail_statevars%Description = 'critical Richardson number'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rc2d
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rc2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1977,&
'frame/module_domain.f: Failed to allocate grid%rc2d(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dku3d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dku3d(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1986,&
'frame/module_domain.f: Failed to allocate grid%dku3d(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dku3d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dku3d'
grid%tail_statevars%DataName = 'DKU3D'
grid%tail_statevars%Description = 'Momentum Diffusivity'
grid%tail_statevars%Units = 'm*m/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dku3d
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dku3d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2036,&
'frame/module_domain.f: Failed to allocate grid%dku3d(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dkt3d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dkt3d(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2045,&
'frame/module_domain.f: Failed to allocate grid%dkt3d(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dkt3d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dkt3d'
grid%tail_statevars%DataName = 'DKT3D'
grid%tail_statevars%Description = 'Thermal Diffusivity'
grid%tail_statevars%Units = 'm*m/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dkt3d
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dkt3d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2095,&
'frame/module_domain.f: Failed to allocate grid%dkt3d(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'scalefun').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%scalefun(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2104,&
'frame/module_domain.f: Failed to allocate grid%scalefun(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalefun=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scalefun'
grid%tail_statevars%DataName = 'SCALEFUN'
grid%tail_statevars%Description = 'CNV Mass Scale function(0-1)'
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%scalefun
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%scalefun(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2154,&
'frame/module_domain.f: Failed to allocate grid%scalefun(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'scalefun1').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%scalefun1(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2163,&
'frame/module_domain.f: Failed to allocate grid%scalefun1(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalefun1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scalefun1'
grid%tail_statevars%DataName = 'SCALEFUN1'
grid%tail_statevars%Description = 'CNV Mass Scale function 1(0-1)'
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%scalefun1
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%scalefun1(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2213,&
'frame/module_domain.f: Failed to allocate grid%scalefun1(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sigmu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sigmu(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2222,&
'frame/module_domain.f: Failed to allocate grid%sigmu(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sigmu=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sigmu'
grid%tail_statevars%DataName = 'SIGMU'
grid%tail_statevars%Description = 'CNV deep updraft fractio n(0-1)'
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sigmu
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sigmu(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2272,&
'frame/module_domain.f: Failed to allocate grid%sigmu(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sigmu1').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sigmu1(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2281,&
'frame/module_domain.f: Failed to allocate grid%sigmu1(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sigmu1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sigmu1'
grid%tail_statevars%DataName = 'SIGMU1'
grid%tail_statevars%Description = 'CNV shallow updraft fra ction(0-1)'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sigmu1
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sigmu1(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2331,&
'frame/module_domain.f: Failed to allocate grid%sigmu1(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dthcudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dthcudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2340,&
'frame/module_domain.f: Failed to allocate grid%dthcudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dthcudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dthcudt'
grid%tail_statevars%DataName = 'DTHCUDT'
grid%tail_statevars%Description = 'TH tendency due to CU'
grid%tail_statevars%Units = 'K/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dthcudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dthcudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2390,&
'frame/module_domain.f: Failed to allocate grid%dthcudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqvcudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqvcudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2399,&
'frame/module_domain.f: Failed to allocate grid%dqvcudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqvcudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqvcudt'
grid%tail_statevars%DataName = 'DQVCUDT'
grid%tail_statevars%Description = 'QV tendency due to CU'
grid%tail_statevars%Units = 'kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqvcudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqvcudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2449,&
'frame/module_domain.f: Failed to allocate grid%dqvcudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqrcudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqrcudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2458,&
'frame/module_domain.f: Failed to allocate grid%dqrcudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqrcudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqrcudt'
grid%tail_statevars%DataName = 'DQRCUDT'
grid%tail_statevars%Description = 'QR tendency due to CU'
grid%tail_statevars%Units = 'kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqrcudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqrcudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2508,&
'frame/module_domain.f: Failed to allocate grid%dqrcudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqccudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqccudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2517,&
'frame/module_domain.f: Failed to allocate grid%dqccudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqccudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqccudt'
grid%tail_statevars%DataName = 'DQCCUDT'
grid%tail_statevars%Description = 'QC tendency due to CU'
grid%tail_statevars%Units = 'Kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqccudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqccudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2567,&
'frame/module_domain.f: Failed to allocate grid%dqccudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqicudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqicudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2576,&
'frame/module_domain.f: Failed to allocate grid%dqicudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqicudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqicudt'
grid%tail_statevars%DataName = 'DQICUDT'
grid%tail_statevars%Description = 'QI tendency due to CU'
grid%tail_statevars%Units = 'Kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqicudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqicudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2626,&
'frame/module_domain.f: Failed to allocate grid%dqicudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqscudt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqscudt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2635,&
'frame/module_domain.f: Failed to allocate grid%dqscudt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqscudt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqscudt'
grid%tail_statevars%DataName = 'DQSCUDT'
grid%tail_statevars%Description = 'QS tendency due to CU'
grid%tail_statevars%Units = 'Kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqscudt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqscudt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2685,&
'frame/module_domain.f: Failed to allocate grid%dqscudt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dthbldt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dthbldt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2694,&
'frame/module_domain.f: Failed to allocate grid%dthbldt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dthbldt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dthbldt'
grid%tail_statevars%DataName = 'DTHBLDT'
grid%tail_statevars%Description = 'TH tendency due to PBL'
grid%tail_statevars%Units = 'K/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dthbldt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dthbldt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2744,&
'frame/module_domain.f: Failed to allocate grid%dthbldt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dqvbldt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dqvbldt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2753,&
'frame/module_domain.f: Failed to allocate grid%dqvbldt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dqvbldt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dqvbldt'
grid%tail_statevars%DataName = 'DQVBLDT'
grid%tail_statevars%Description = 'QV tendency due to PBL'
grid%tail_statevars%Units = 'Kg/kg/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dqvbldt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dqvbldt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2803,&
'frame/module_domain.f: Failed to allocate grid%dqvbldt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dubldt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dubldt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2812,&
'frame/module_domain.f: Failed to allocate grid%dubldt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dubldt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dubldt'
grid%tail_statevars%DataName = 'DUBLDT'
grid%tail_statevars%Description = 'U tendency due to PBL'
grid%tail_statevars%Units = 'm/s/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dubldt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dubldt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2862,&
'frame/module_domain.f: Failed to allocate grid%dubldt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dvbldt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dvbldt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2871,&
'frame/module_domain.f: Failed to allocate grid%dvbldt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dvbldt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dvbldt'
grid%tail_statevars%DataName = 'DVBLDT'
grid%tail_statevars%Description = 'V tendency due to PBL'
grid%tail_statevars%Units = 'm/s/s'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dvbldt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dvbldt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2921,&
'frame/module_domain.f: Failed to allocate grid%dvbldt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hpbl2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hpbl2d(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2930,&
'frame/module_domain.f: Failed to allocate grid%hpbl2d(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hpbl2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hpbl2d'
grid%tail_statevars%DataName = 'HPBL2D'
grid%tail_statevars%Description = 'HEIGHT OF PBL from new GFS pbl'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hpbl2d
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hpbl2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2980,&
'frame/module_domain.f: Failed to allocate grid%hpbl2d(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'heat2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%heat2d(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2989,&
'frame/module_domain.f: Failed to allocate grid%heat2d(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%heat2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'heat2d'
grid%tail_statevars%DataName = 'HEAT2D'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%heat2d
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%heat2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3039,&
'frame/module_domain.f: Failed to allocate grid%heat2d(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'evap2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%evap2d(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3048,&
'frame/module_domain.f: Failed to allocate grid%evap2d(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%evap2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'evap2d'
grid%tail_statevars%DataName = 'EVAP2D'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%evap2d
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%evap2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3098,&
'frame/module_domain.f: Failed to allocate grid%evap2d(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'z0base').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%z0base(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3107,&
'frame/module_domain.f: Failed to allocate grid%z0base(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z0base=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z0base'
grid%tail_statevars%DataName = 'Z0BASE'
grid%tail_statevars%Description = 'Base roughness height'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%z0base
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%z0base(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3157,&
'frame/module_domain.f: Failed to allocate grid%z0base(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ths'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ths(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3166,&
'frame/module_domain.f: Failed to allocate grid%ths(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ths=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ths'
grid%tail_statevars%DataName = 'THS'
grid%tail_statevars%Description = 'Surface potential temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ths
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ths(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3216,&
'frame/module_domain.f: Failed to allocate grid%ths(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'mavail').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%mavail(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3225,&
'frame/module_domain.f: Failed to allocate grid%mavail(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mavail=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mavail'
grid%tail_statevars%DataName = 'MAVAIL'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mavail
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%mavail(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3275,&
'frame/module_domain.f: Failed to allocate grid%mavail(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qsh'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qsh(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3284,&
'frame/module_domain.f: Failed to allocate grid%qsh(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qsh=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qsh'
grid%tail_statevars%DataName = 'QS'
grid%tail_statevars%Description = 'Surface specific humidity'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%qsh
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qsh(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3334,&
'frame/module_domain.f: Failed to allocate grid%qsh(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'twbs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%twbs(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3343,&
'frame/module_domain.f: Failed to allocate grid%twbs(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%twbs=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'twbs'
grid%tail_statevars%DataName = 'TWBS'
grid%tail_statevars%Description = 'Instantaneous sensible heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%twbs
grid%tail_statevars%streams(1) = 33554447
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%twbs(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3393,&
'frame/module_domain.f: Failed to allocate grid%twbs(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qwbs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qwbs(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3402,&
'frame/module_domain.f: Failed to allocate grid%qwbs(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qwbs=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qwbs'
grid%tail_statevars%DataName = 'QWBS'
grid%tail_statevars%Description = 'Instantaneous latent heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%qwbs
grid%tail_statevars%streams(1) = 33554447
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qwbs(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3452,&
'frame/module_domain.f: Failed to allocate grid%qwbs(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'taux'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%taux(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3461,&
'frame/module_domain.f: Failed to allocate grid%taux(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%taux=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'taux'
grid%tail_statevars%DataName = 'TAUX'
grid%tail_statevars%Description = 'Instantaneous stress along X direction in KG/M/S^2'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%taux
grid%tail_statevars%streams(1) = 33554447
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%taux(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3511,&
'frame/module_domain.f: Failed to allocate grid%taux(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tauy'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%tauy(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3520,&
'frame/module_domain.f: Failed to allocate grid%tauy(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tauy=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tauy'
grid%tail_statevars%DataName = 'TAUY'
grid%tail_statevars%Description = 'Instantaneous stress along Y direction in KG/M/S^2'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tauy
grid%tail_statevars%streams(1) = 33554447
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tauy(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3570,&
'frame/module_domain.f: Failed to allocate grid%tauy(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'prec').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%prec(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3579,&
'frame/module_domain.f: Failed to allocate grid%prec(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%prec=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'prec'
grid%tail_statevars%DataName = 'PREC'
grid%tail_statevars%Description = 'Precipitation in physics timestep'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%prec
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%prec(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3629,&
'frame/module_domain.f: Failed to allocate grid%prec(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aprec').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aprec(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3638,&
'frame/module_domain.f: Failed to allocate grid%aprec(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aprec=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aprec'
grid%tail_statevars%DataName = 'APREC'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aprec
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aprec(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3688,&
'frame/module_domain.f: Failed to allocate grid%aprec(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acprec'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acprec(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3697,&
'frame/module_domain.f: Failed to allocate grid%acprec(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acprec=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acprec'
grid%tail_statevars%DataName = 'ACPREC'
grid%tail_statevars%Description = 'Accumulatedtotal precipitation'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acprec
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acprec(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3747,&
'frame/module_domain.f: Failed to allocate grid%acprec(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cuprec'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cuprec(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3756,&
'frame/module_domain.f: Failed to allocate grid%cuprec(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cuprec=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cuprec'
grid%tail_statevars%DataName = 'CUPREC'
grid%tail_statevars%Description = 'Accumulated convective precipitation'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cuprec
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cuprec(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3806,&
'frame/module_domain.f: Failed to allocate grid%cuprec(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lspa').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lspa(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3815,&
'frame/module_domain.f: Failed to allocate grid%lspa(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lspa=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lspa'
grid%tail_statevars%DataName = 'LSPA'
grid%tail_statevars%Description = 'Land Surface Precipitation Accumulation'
grid%tail_statevars%Units = 'kg m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lspa
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lspa(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3865,&
'frame/module_domain.f: Failed to allocate grid%lspa(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ddata').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ddata(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3874,&
'frame/module_domain.f: Failed to allocate grid%ddata(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ddata=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ddata'
grid%tail_statevars%DataName = 'DDATA'
grid%tail_statevars%Description = 'Observed precip to each physics timestep'
grid%tail_statevars%Units = 'kg m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ddata
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ddata(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3924,&
'frame/module_domain.f: Failed to allocate grid%ddata(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'accliq').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%accliq(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3933,&
'frame/module_domain.f: Failed to allocate grid%accliq(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%accliq=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'accliq'
grid%tail_statevars%DataName = 'ACCLIQ'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%accliq
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%accliq(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3983,&
'frame/module_domain.f: Failed to allocate grid%accliq(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sno').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sno(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3992,&
'frame/module_domain.f: Failed to allocate grid%sno(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sno=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sno'
grid%tail_statevars%DataName = 'SNO'
grid%tail_statevars%Description = 'Liquid water eqiv of snow on ground'
grid%tail_statevars%Units = 'kg m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sno
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sno(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4042,&
'frame/module_domain.f: Failed to allocate grid%sno(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'si').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%si(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4051,&
'frame/module_domain.f: Failed to allocate grid%si(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%si=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'si'
grid%tail_statevars%DataName = 'SI'
grid%tail_statevars%Description = 'Depth of snow on ground'
grid%tail_statevars%Units = 'mm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%si
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%si(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4101,&
'frame/module_domain.f: Failed to allocate grid%si(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cldefi'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cldefi(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4110,&
'frame/module_domain.f: Failed to allocate grid%cldefi(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldefi=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cldefi'
grid%tail_statevars%DataName = 'CLDEFI'
grid%tail_statevars%Description = 'Convective cloud efficiency'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cldefi
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cldefi(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4160,&
'frame/module_domain.f: Failed to allocate grid%cldefi(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'deep').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%deep(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4169,&
'frame/module_domain.f: Failed to allocate grid%deep(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%deep=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'deep'
grid%tail_statevars%DataName = 'DEEP'
grid%tail_statevars%Description = 'Deep convection =>.TRUE.'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%deep
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%deep(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4219,&
'frame/module_domain.f: Failed to allocate grid%deep(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rf').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rf(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4228,&
'frame/module_domain.f: Failed to allocate grid%rf(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rf=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rf'
grid%tail_statevars%DataName = 'RF'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rf
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rf(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4278,&
'frame/module_domain.f: Failed to allocate grid%rf(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'th10'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%th10(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4287,&
'frame/module_domain.f: Failed to allocate grid%th10(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th10=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th10'
grid%tail_statevars%DataName = 'TH10'
grid%tail_statevars%Description = '10-m potential temperature from MYJ'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%th10
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th10(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4337,&
'frame/module_domain.f: Failed to allocate grid%th10(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'q10'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%q10(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4346,&
'frame/module_domain.f: Failed to allocate grid%q10(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q10=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'q10'
grid%tail_statevars%DataName = 'Q10'
grid%tail_statevars%Description = '10-m specific humidity from MYJ'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%q10
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%q10(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4396,&
'frame/module_domain.f: Failed to allocate grid%q10(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pshltr'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%pshltr(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4405,&
'frame/module_domain.f: Failed to allocate grid%pshltr(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pshltr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pshltr'
grid%tail_statevars%DataName = 'PSHLTR'
grid%tail_statevars%Description = '2-m pressure from MYJ'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pshltr
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%pshltr(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4455,&
'frame/module_domain.f: Failed to allocate grid%pshltr(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tshltr'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%tshltr(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4464,&
'frame/module_domain.f: Failed to allocate grid%tshltr(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tshltr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tshltr'
grid%tail_statevars%DataName = 'TSHLTR'
grid%tail_statevars%Description = '2-m potential temperature from MYJ'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tshltr
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tshltr(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4514,&
'frame/module_domain.f: Failed to allocate grid%tshltr(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qshltr'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qshltr(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4523,&
'frame/module_domain.f: Failed to allocate grid%qshltr(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qshltr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qshltr'
grid%tail_statevars%DataName = 'QSHLTR'
grid%tail_statevars%Description = '2-m specific humidity from MYJ'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%qshltr
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qshltr(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4573,&
'frame/module_domain.f: Failed to allocate grid%qshltr(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'q2'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%q2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4582,&
'frame/module_domain.f: Failed to allocate grid%q2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'q2'
grid%tail_statevars%DataName = 'Q2'
grid%tail_statevars%Description = '2 * Turbulence kinetic energy'
grid%tail_statevars%Units = 'm2 s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%q2
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%q2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4632,&
'frame/module_domain.f: Failed to allocate grid%q2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_bxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4641,&
'frame/module_domain.f: Failed to allocate grid%q2_bxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_bxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4649,&
'frame/module_domain.f: Failed to allocate grid%q2_bxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_bys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4657,&
'frame/module_domain.f: Failed to allocate grid%q2_bys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_bye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4665,&
'frame/module_domain.f: Failed to allocate grid%q2_bye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_bye=initial_data_value
ELSE
ALLOCATE(grid%q2_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4672,&
'frame/module_domain.f: Failed to allocate grid%q2_bxs(1,1,1). ')
endif
ALLOCATE(grid%q2_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4677,&
'frame/module_domain.f: Failed to allocate grid%q2_bxe(1,1,1). ')
endif
ALLOCATE(grid%q2_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4682,&
'frame/module_domain.f: Failed to allocate grid%q2_bys(1,1,1). ')
endif
ALLOCATE(grid%q2_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4687,&
'frame/module_domain.f: Failed to allocate grid%q2_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_btxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4696,&
'frame/module_domain.f: Failed to allocate grid%q2_btxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_btxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4704,&
'frame/module_domain.f: Failed to allocate grid%q2_btxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_btys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4712,&
'frame/module_domain.f: Failed to allocate grid%q2_btys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%q2_btye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4720,&
'frame/module_domain.f: Failed to allocate grid%q2_btye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q2_btye=initial_data_value
ELSE
ALLOCATE(grid%q2_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4727,&
'frame/module_domain.f: Failed to allocate grid%q2_btxs(1,1,1). ')
endif
ALLOCATE(grid%q2_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4732,&
'frame/module_domain.f: Failed to allocate grid%q2_btxe(1,1,1). ')
endif
ALLOCATE(grid%q2_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4737,&
'frame/module_domain.f: Failed to allocate grid%q2_btys(1,1,1). ')
endif
ALLOCATE(grid%q2_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4742,&
'frame/module_domain.f: Failed to allocate grid%q2_btye(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'t_adj'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_adj(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4751,&
'frame/module_domain.f: Failed to allocate grid%t_adj(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_adj=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 't_adj'
grid%tail_statevars%DataName = 'T_ADJ'
grid%tail_statevars%Description = 'T change due to precip in phys step'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_adj
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%t_adj(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4801,&
'frame/module_domain.f: Failed to allocate grid%t_adj(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'t_old').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_old(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4810,&
'frame/module_domain.f: Failed to allocate grid%t_old(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_old=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 't_old'
grid%tail_statevars%DataName = 'T_OLD'
grid%tail_statevars%Description = 'T before last call to precip'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_old
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%t_old(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4860,&
'frame/module_domain.f: Failed to allocate grid%t_old(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'zero_3d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zero_3d(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4869,&
'frame/module_domain.f: Failed to allocate grid%zero_3d(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zero_3d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zero_3d'
grid%tail_statevars%DataName = 'ZERO_3D'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%zero_3d
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%zero_3d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4919,&
'frame/module_domain.f: Failed to allocate grid%zero_3d(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'w0avg').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%w0avg(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4928,&
'frame/module_domain.f: Failed to allocate grid%w0avg(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w0avg=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'w0avg'
grid%tail_statevars%DataName = 'W0AVG'
grid%tail_statevars%Description = 'AVERAGE VERTICAL VELOCITY FOR KF CUMULUS SCHEME'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%w0avg
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%w0avg(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4978,&
'frame/module_domain.f: Failed to allocate grid%w0avg(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'akhs_out').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%akhs_out(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4987,&
'frame/module_domain.f: Failed to allocate grid%akhs_out(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%akhs_out=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'akhs_out'
grid%tail_statevars%DataName = 'AKHS_OUT'
grid%tail_statevars%Description = 'Output sfc exch coeff for heat'
grid%tail_statevars%Units = 'm2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%akhs_out
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%akhs_out(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5037,&
'frame/module_domain.f: Failed to allocate grid%akhs_out(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'akms_out').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%akms_out(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5046,&
'frame/module_domain.f: Failed to allocate grid%akms_out(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%akms_out=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'akms_out'
grid%tail_statevars%DataName = 'AKMS_OUT'
grid%tail_statevars%Description = 'Output sfc exch coeff for momentum'
grid%tail_statevars%Units = 'm2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%akms_out
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%akms_out(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5096,&
'frame/module_domain.f: Failed to allocate grid%akms_out(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cd_out'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cd_out(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5105,&
'frame/module_domain.f: Failed to allocate grid%cd_out(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cd_out=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cd_out'
grid%tail_statevars%DataName = 'CD10'
grid%tail_statevars%Description = 'sfc exch coeff for momentum at 10m'
grid%tail_statevars%Units = 'm2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cd_out
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cd_out(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5155,&
'frame/module_domain.f: Failed to allocate grid%cd_out(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ch_out'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ch_out(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5164,&
'frame/module_domain.f: Failed to allocate grid%ch_out(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ch_out=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ch_out'
grid%tail_statevars%DataName = 'CH10'
grid%tail_statevars%Description = 'sfc exch coeff for heat at 10m'
grid%tail_statevars%Units = 'm2 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ch_out
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ch_out(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5214,&
'frame/module_domain.f: Failed to allocate grid%ch_out(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'albase'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%albase(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5223,&
'frame/module_domain.f: Failed to allocate grid%albase(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albase=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'albase'
grid%tail_statevars%DataName = 'ALBASE'
grid%tail_statevars%Description = 'Base albedo'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%albase
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%albase(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5273,&
'frame/module_domain.f: Failed to allocate grid%albase(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'albedo').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%albedo(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5282,&
'frame/module_domain.f: Failed to allocate grid%albedo(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albedo=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'albedo'
grid%tail_statevars%DataName = 'ALBEDO'
grid%tail_statevars%Description = 'Dynamic albedo'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%albedo
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%albedo(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5332,&
'frame/module_domain.f: Failed to allocate grid%albedo(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cnvbot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cnvbot(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5341,&
'frame/module_domain.f: Failed to allocate grid%cnvbot(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cnvbot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cnvbot'
grid%tail_statevars%DataName = 'CNVBOT'
grid%tail_statevars%Description = 'Lowest convec cloud bottom lyr between outputs'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cnvbot
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cnvbot(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5391,&
'frame/module_domain.f: Failed to allocate grid%cnvbot(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cnvtop').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cnvtop(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5400,&
'frame/module_domain.f: Failed to allocate grid%cnvtop(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cnvtop=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cnvtop'
grid%tail_statevars%DataName = 'CNVTOP'
grid%tail_statevars%Description = 'Highest convec cloud top lyr between outputs'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cnvtop
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cnvtop(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5450,&
'frame/module_domain.f: Failed to allocate grid%cnvtop(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'czen').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%czen(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5459,&
'frame/module_domain.f: Failed to allocate grid%czen(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%czen=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'czen'
grid%tail_statevars%DataName = 'CZEN'
grid%tail_statevars%Description = 'Cosine of solar zenith angle'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%czen
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%czen(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5509,&
'frame/module_domain.f: Failed to allocate grid%czen(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'czmean').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%czmean(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5518,&
'frame/module_domain.f: Failed to allocate grid%czmean(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%czmean=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'czmean'
grid%tail_statevars%DataName = 'CZMEAN'
grid%tail_statevars%Description = 'Mean CZEN between SW radiation calls'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%czmean
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%czmean(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5568,&
'frame/module_domain.f: Failed to allocate grid%czmean(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'embck').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%embck(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5577,&
'frame/module_domain.f: Failed to allocate grid%embck(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%embck=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'embck'
grid%tail_statevars%DataName = 'EMBCK'
grid%tail_statevars%Description = 'Background radiative emissivity'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%embck
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%embck(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5627,&
'frame/module_domain.f: Failed to allocate grid%embck(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'epsr').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%epsr(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5636,&
'frame/module_domain.f: Failed to allocate grid%epsr(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%epsr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'epsr'
grid%tail_statevars%DataName = 'EPSR'
grid%tail_statevars%Description = 'Radiative emissivity'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%epsr
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%epsr(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5686,&
'frame/module_domain.f: Failed to allocate grid%epsr(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gffc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gffc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5695,&
'frame/module_domain.f: Failed to allocate grid%gffc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gffc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gffc'
grid%tail_statevars%DataName = 'GFFC'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%gffc
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%gffc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5745,&
'frame/module_domain.f: Failed to allocate grid%gffc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'glat').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%glat(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5754,&
'frame/module_domain.f: Failed to allocate grid%glat(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%glat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'glat'
grid%tail_statevars%DataName = 'GLAT'
grid%tail_statevars%Description = 'Geographic latitude, radians'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%glat
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%glat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5804,&
'frame/module_domain.f: Failed to allocate grid%glat(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'glon').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%glon(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5813,&
'frame/module_domain.f: Failed to allocate grid%glon(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%glon=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'glon'
grid%tail_statevars%DataName = 'GLON'
grid%tail_statevars%Description = 'Geographic longitude, radians'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%glon
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%glon(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5863,&
'frame/module_domain.f: Failed to allocate grid%glon(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'nmm_tsk'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%nmm_tsk(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5872,&
'frame/module_domain.f: Failed to allocate grid%nmm_tsk(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nmm_tsk=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'nmm_tsk'
grid%tail_statevars%DataName = 'TSK'
grid%tail_statevars%Description = 'Skin temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%nmm_tsk
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%nmm_tsk(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5922,&
'frame/module_domain.f: Failed to allocate grid%nmm_tsk(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hdac').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hdac(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5931,&
'frame/module_domain.f: Failed to allocate grid%hdac(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hdac=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hdac'
grid%tail_statevars%DataName = 'HDAC'
grid%tail_statevars%Description = 'Composite diffusion coeff for mass points'
grid%tail_statevars%Units = 's m-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hdac
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hdac(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5981,&
'frame/module_domain.f: Failed to allocate grid%hdac(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hdacv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hdacv(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5990,&
'frame/module_domain.f: Failed to allocate grid%hdacv(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hdacv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hdacv'
grid%tail_statevars%DataName = 'HDACV'
grid%tail_statevars%Description = 'Composite diffusion coeff for velocity points'
grid%tail_statevars%Units = 's m-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hdacv
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hdacv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6040,&
'frame/module_domain.f: Failed to allocate grid%hdacv(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'mxsnal'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%mxsnal(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6049,&
'frame/module_domain.f: Failed to allocate grid%mxsnal(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mxsnal=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mxsnal'
grid%tail_statevars%DataName = 'MXSNAL'
grid%tail_statevars%Description = 'Maximum deep snow albedo'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mxsnal
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%mxsnal(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6099,&
'frame/module_domain.f: Failed to allocate grid%mxsnal(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'radin').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%radin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6108,&
'frame/module_domain.f: Failed to allocate grid%radin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%radin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'radin'
grid%tail_statevars%DataName = 'RADIN'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%radin
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%radin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6158,&
'frame/module_domain.f: Failed to allocate grid%radin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'radot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%radot(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6167,&
'frame/module_domain.f: Failed to allocate grid%radot(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%radot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'radot'
grid%tail_statevars%DataName = 'RADOT'
grid%tail_statevars%Description = 'Radiative emission from surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%radot
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%radot(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6217,&
'frame/module_domain.f: Failed to allocate grid%radot(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sigt4'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sigt4(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6226,&
'frame/module_domain.f: Failed to allocate grid%sigt4(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sigt4=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sigt4'
grid%tail_statevars%DataName = 'SIGT4'
grid%tail_statevars%Description = 'Stefan-Boltzmann * T**4'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sigt4
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sigt4(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6276,&
'frame/module_domain.f: Failed to allocate grid%sigt4(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tg'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%tg(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6285,&
'frame/module_domain.f: Failed to allocate grid%tg(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tg=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tg'
grid%tail_statevars%DataName = 'TGROUND'
grid%tail_statevars%Description = 'Deep ground soil temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tg
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tg(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6335,&
'frame/module_domain.f: Failed to allocate grid%tg(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dfrlg').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfrlg(sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6344,&
'frame/module_domain.f: Failed to allocate grid%dfrlg(sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfrlg=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dfrlg'
grid%tail_statevars%DataName = 'DFRLG'
grid%tail_statevars%Description = 'Std atmosphere height of model layer interfaces'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'Z'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 1
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_1d => grid%dfrlg
grid%tail_statevars%streams(1) = 100663296
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = kds
grid%tail_statevars%ed1 = kde
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = kms
grid%tail_statevars%em1 = kme
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = kps
grid%tail_statevars%ep1 = MIN( kde, kpe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'bottom_top_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dfrlg(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6392,&
'frame/module_domain.f: Failed to allocate grid%dfrlg(1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lvl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lvl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6401,&
'frame/module_domain.f: Failed to allocate grid%lvl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lvl=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lvl'
grid%tail_statevars%DataName = 'LVL'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%lvl
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lvl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6451,&
'frame/module_domain.f: Failed to allocate grid%lvl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'k22_deep').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%k22_deep(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6460,&
'frame/module_domain.f: Failed to allocate grid%k22_deep(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%k22_deep=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'k22_deep'
grid%tail_statevars%DataName = 'K22_DEEP'
grid%tail_statevars%Description = 'K22 LEVEL FROM DEEPCONVECTION (G3 only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%k22_deep
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%k22_deep(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6510,&
'frame/module_domain.f: Failed to allocate grid%k22_deep(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'kbcon_deep').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%kbcon_deep(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6519,&
'frame/module_domain.f: Failed to allocate grid%kbcon_deep(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kbcon_deep=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'kbcon_deep'
grid%tail_statevars%DataName = 'KBCON_DEEP'
grid%tail_statevars%Description = 'KBCON LEVEL FROM DEEP CONVECTION (G3 only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%kbcon_deep
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%kbcon_deep(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6569,&
'frame/module_domain.f: Failed to allocate grid%kbcon_deep(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ktop_deep').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ktop_deep(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6578,&
'frame/module_domain.f: Failed to allocate grid%ktop_deep(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ktop_deep=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ktop_deep'
grid%tail_statevars%DataName = 'KTOP_DEEP'
grid%tail_statevars%Description = 'KTOP LEVEL FROM DEEP CONVECTION (G3 only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%ktop_deep
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ktop_deep(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6628,&
'frame/module_domain.f: Failed to allocate grid%ktop_deep(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'raincv_a').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%raincv_a(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6637,&
'frame/module_domain.f: Failed to allocate grid%raincv_a(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%raincv_a=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'raincv_a'
grid%tail_statevars%DataName = 'RAINCV_A'
grid%tail_statevars%Description = 'taveragd TIME-STEP CUMULUS PRECIPITATION'
grid%tail_statevars%Units = 'mm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%raincv_a
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%raincv_a(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6687,&
'frame/module_domain.f: Failed to allocate grid%raincv_a(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'raincv_b').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%raincv_b(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6696,&
'frame/module_domain.f: Failed to allocate grid%raincv_b(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%raincv_b=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'raincv_b'
grid%tail_statevars%DataName = 'RAINCV_B'
grid%tail_statevars%Description = 'taveragd TIME-STEP CUMULUS PRECIPITATION'
grid%tail_statevars%Units = 'mm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%raincv_b
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%raincv_b(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6746,&
'frame/module_domain.f: Failed to allocate grid%raincv_b(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gd_cloud').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gd_cloud(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6755,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gd_cloud=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gd_cloud'
grid%tail_statevars%DataName = 'GD_CLOUD'
grid%tail_statevars%Description = 'CLOUD WATER/ICE MIXING RAIO IN GD CLOUD'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%gd_cloud
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%gd_cloud(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6805,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gd_cloud2').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gd_cloud2(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6814,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud2(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gd_cloud2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gd_cloud2'
grid%tail_statevars%DataName = 'GD_CLOUD2'
grid%tail_statevars%Description = 'TEST for GD CLOUD'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%gd_cloud2
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%gd_cloud2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6864,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud2(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gd_cloud_a').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gd_cloud_a(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6873,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud_a(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gd_cloud_a=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gd_cloud_a'
grid%tail_statevars%DataName = 'GD_CLOUD_A'
grid%tail_statevars%Description = 'taveragd CLOUD WATER MIXING RAIO IN GD CLOUD'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%gd_cloud_a
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%gd_cloud_a(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6923,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud_a(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gd_cloud2_a').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gd_cloud2_a(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6932,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud2_a(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gd_cloud2_a=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gd_cloud2_a'
grid%tail_statevars%DataName = 'GD_CLOUD2_A'
grid%tail_statevars%Description = 'taveragd cloud ice mix ratio in GD'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%gd_cloud2_a
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%gd_cloud2_a(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6982,&
'frame/module_domain.f: Failed to allocate grid%gd_cloud2_a(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qc_cu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qc_cu(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6991,&
'frame/module_domain.f: Failed to allocate grid%qc_cu(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qc_cu=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qc_cu'
grid%tail_statevars%DataName = 'QC_CU'
grid%tail_statevars%Description = 'CLOUD WATER MIXING RATIO FROM A CU SCHEME'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%qc_cu
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qc_cu(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7041,&
'frame/module_domain.f: Failed to allocate grid%qc_cu(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qi_cu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qi_cu(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7050,&
'frame/module_domain.f: Failed to allocate grid%qi_cu(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qi_cu=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qi_cu'
grid%tail_statevars%DataName = 'QI_CU'
grid%tail_statevars%Description = 'CLOUD ICE MIXUNG RATIO FROM A CU SCHEME'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%qi_cu
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qi_cu(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7100,&
'frame/module_domain.f: Failed to allocate grid%qi_cu(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gd_cldfr').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gd_cldfr(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7109,&
'frame/module_domain.f: Failed to allocate grid%gd_cldfr(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gd_cldfr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gd_cldfr'
grid%tail_statevars%DataName = 'GD_CLDFR'
grid%tail_statevars%Description = 'GD CLOUD Fraction'
grid%tail_statevars%Units = ' ? '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%gd_cldfr
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%gd_cldfr(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7159,&
'frame/module_domain.f: Failed to allocate grid%gd_cldfr(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'xmb_shallow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%xmb_shallow(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7168,&
'frame/module_domain.f: Failed to allocate grid%xmb_shallow(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xmb_shallow=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xmb_shallow'
grid%tail_statevars%DataName = 'XMB_SHALLOW'
grid%tail_statevars%Description = 'MASSFLUX FROM SHALLOW CONVECTION (G3, GF only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%xmb_shallow
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%xmb_shallow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7218,&
'frame/module_domain.f: Failed to allocate grid%xmb_shallow(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'k22_shallow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%k22_shallow(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7227,&
'frame/module_domain.f: Failed to allocate grid%k22_shallow(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%k22_shallow=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'k22_shallow'
grid%tail_statevars%DataName = 'K22_SHALLOW'
grid%tail_statevars%Description = 'K22 LEVEL FROM SHALLOW CONVECTION (G3, GF only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%k22_shallow
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%k22_shallow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7277,&
'frame/module_domain.f: Failed to allocate grid%k22_shallow(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'kbcon_shallow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%kbcon_shallow(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7286,&
'frame/module_domain.f: Failed to allocate grid%kbcon_shallow(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%kbcon_shallow=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'kbcon_shallow'
grid%tail_statevars%DataName = 'KBCON_SHALLOW'
grid%tail_statevars%Description = 'KBCON LEVEL FROM SHALLOW CONVECTION (G3, GF only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%kbcon_shallow
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%kbcon_shallow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7336,&
'frame/module_domain.f: Failed to allocate grid%kbcon_shallow(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ktop_shallow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ktop_shallow(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7345,&
'frame/module_domain.f: Failed to allocate grid%ktop_shallow(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ktop_shallow=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ktop_shallow'
grid%tail_statevars%DataName = 'KTOP_SHALLOW'
grid%tail_statevars%Description = 'KTOP LEVEL FROM SHALLOW CONVECTION (G3, GF only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%ktop_shallow
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ktop_shallow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7395,&
'frame/module_domain.f: Failed to allocate grid%ktop_shallow(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ierr_shallow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ierr_shallow(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7404,&
'frame/module_domain.f: Failed to allocate grid%ierr_shallow(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ierr_shallow=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ierr_shallow'
grid%tail_statevars%DataName = 'IERR_SHALLOW'
grid%tail_statevars%Description = 'CODE FOR TURNING OFF SHALLOW CU AT A PT(GF only)'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%ierr_shallow
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ierr_shallow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7454,&
'frame/module_domain.f: Failed to allocate grid%ierr_shallow(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswupt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswupt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7463,&
'frame/module_domain.f: Failed to allocate grid%acswupt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswupt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswupt'
grid%tail_statevars%DataName = 'ACSWUPT'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswupt
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswupt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7513,&
'frame/module_domain.f: Failed to allocate grid%acswupt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswuptc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswuptc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7522,&
'frame/module_domain.f: Failed to allocate grid%acswuptc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswuptc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswuptc'
grid%tail_statevars%DataName = 'ACSWUPTC'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING CLEAR SKY SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswuptc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswuptc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7572,&
'frame/module_domain.f: Failed to allocate grid%acswuptc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswdnt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswdnt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7581,&
'frame/module_domain.f: Failed to allocate grid%acswdnt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswdnt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswdnt'
grid%tail_statevars%DataName = 'ACSWDNT'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswdnt
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswdnt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7631,&
'frame/module_domain.f: Failed to allocate grid%acswdnt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswdntc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswdntc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7640,&
'frame/module_domain.f: Failed to allocate grid%acswdntc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswdntc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswdntc'
grid%tail_statevars%DataName = 'ACSWDNTC'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswdntc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswdntc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7690,&
'frame/module_domain.f: Failed to allocate grid%acswdntc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswupb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswupb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7699,&
'frame/module_domain.f: Failed to allocate grid%acswupb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswupb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswupb'
grid%tail_statevars%DataName = 'ACSWUPB'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswupb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswupb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7749,&
'frame/module_domain.f: Failed to allocate grid%acswupb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswupbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswupbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7758,&
'frame/module_domain.f: Failed to allocate grid%acswupbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswupbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswupbc'
grid%tail_statevars%DataName = 'ACSWUPBC'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswupbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswupbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7808,&
'frame/module_domain.f: Failed to allocate grid%acswupbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswdnb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswdnb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7817,&
'frame/module_domain.f: Failed to allocate grid%acswdnb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswdnb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswdnb'
grid%tail_statevars%DataName = 'ACSWDNB'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswdnb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswdnb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7867,&
'frame/module_domain.f: Failed to allocate grid%acswdnb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acswdnbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acswdnbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7876,&
'frame/module_domain.f: Failed to allocate grid%acswdnbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acswdnbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acswdnbc'
grid%tail_statevars%DataName = 'ACSWDNBC'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acswdnbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acswdnbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7926,&
'frame/module_domain.f: Failed to allocate grid%acswdnbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwupt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwupt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7935,&
'frame/module_domain.f: Failed to allocate grid%aclwupt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwupt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwupt'
grid%tail_statevars%DataName = 'ACLWUPT'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwupt
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwupt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7985,&
'frame/module_domain.f: Failed to allocate grid%aclwupt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwuptc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwuptc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7994,&
'frame/module_domain.f: Failed to allocate grid%aclwuptc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwuptc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwuptc'
grid%tail_statevars%DataName = 'ACLWUPTC'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING CLEAR SKY LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwuptc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwuptc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8044,&
'frame/module_domain.f: Failed to allocate grid%aclwuptc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwdnt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwdnt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8053,&
'frame/module_domain.f: Failed to allocate grid%aclwdnt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwdnt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwdnt'
grid%tail_statevars%DataName = 'ACLWDNT'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwdnt
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwdnt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8103,&
'frame/module_domain.f: Failed to allocate grid%aclwdnt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwdntc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwdntc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8112,&
'frame/module_domain.f: Failed to allocate grid%aclwdntc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwdntc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwdntc'
grid%tail_statevars%DataName = 'ACLWDNTC'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING CLEAR SKY LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwdntc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwdntc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8162,&
'frame/module_domain.f: Failed to allocate grid%aclwdntc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwupb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwupb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8171,&
'frame/module_domain.f: Failed to allocate grid%aclwupb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwupb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwupb'
grid%tail_statevars%DataName = 'ACLWUPB'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwupb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwupb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8221,&
'frame/module_domain.f: Failed to allocate grid%aclwupb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwupbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwupbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8230,&
'frame/module_domain.f: Failed to allocate grid%aclwupbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwupbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwupbc'
grid%tail_statevars%DataName = 'ACLWUPBC'
grid%tail_statevars%Description = 'ACCUMULATED UPWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwupbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwupbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8280,&
'frame/module_domain.f: Failed to allocate grid%aclwupbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwdnb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwdnb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8289,&
'frame/module_domain.f: Failed to allocate grid%aclwdnb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwdnb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwdnb'
grid%tail_statevars%DataName = 'ACLWDNB'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwdnb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwdnb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8339,&
'frame/module_domain.f: Failed to allocate grid%aclwdnb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aclwdnbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aclwdnbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8348,&
'frame/module_domain.f: Failed to allocate grid%aclwdnbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aclwdnbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aclwdnbc'
grid%tail_statevars%DataName = 'ACLWDNBC'
grid%tail_statevars%Description = 'ACCUMULATED DOWNWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'J m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aclwdnbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aclwdnbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8398,&
'frame/module_domain.f: Failed to allocate grid%aclwdnbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swupt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swupt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8407,&
'frame/module_domain.f: Failed to allocate grid%swupt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swupt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swupt'
grid%tail_statevars%DataName = 'SWUPT'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swupt
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swupt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8457,&
'frame/module_domain.f: Failed to allocate grid%swupt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swuptc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swuptc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8466,&
'frame/module_domain.f: Failed to allocate grid%swuptc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swuptc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swuptc'
grid%tail_statevars%DataName = 'SWUPTC'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING CLEAR SKY SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swuptc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swuptc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8516,&
'frame/module_domain.f: Failed to allocate grid%swuptc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swdnt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swdnt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8525,&
'frame/module_domain.f: Failed to allocate grid%swdnt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdnt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swdnt'
grid%tail_statevars%DataName = 'SWDNT'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swdnt
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swdnt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8575,&
'frame/module_domain.f: Failed to allocate grid%swdnt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swdntc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swdntc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8584,&
'frame/module_domain.f: Failed to allocate grid%swdntc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdntc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swdntc'
grid%tail_statevars%DataName = 'SWDNTC'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swdntc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swdntc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8634,&
'frame/module_domain.f: Failed to allocate grid%swdntc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swupb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swupb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8643,&
'frame/module_domain.f: Failed to allocate grid%swupb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swupb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swupb'
grid%tail_statevars%DataName = 'SWUPB'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swupb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swupb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8693,&
'frame/module_domain.f: Failed to allocate grid%swupb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swupbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swupbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8702,&
'frame/module_domain.f: Failed to allocate grid%swupbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swupbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swupbc'
grid%tail_statevars%DataName = 'SWUPBC'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swupbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swupbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8752,&
'frame/module_domain.f: Failed to allocate grid%swupbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swdnb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swdnb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8761,&
'frame/module_domain.f: Failed to allocate grid%swdnb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdnb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swdnb'
grid%tail_statevars%DataName = 'SWDNB'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swdnb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swdnb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8811,&
'frame/module_domain.f: Failed to allocate grid%swdnb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swdnbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swdnbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8820,&
'frame/module_domain.f: Failed to allocate grid%swdnbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdnbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swdnbc'
grid%tail_statevars%DataName = 'SWDNBC'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING CLEAR SKY SHORTWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swdnbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swdnbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8870,&
'frame/module_domain.f: Failed to allocate grid%swdnbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwupt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwupt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8879,&
'frame/module_domain.f: Failed to allocate grid%lwupt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwupt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwupt'
grid%tail_statevars%DataName = 'LWUPT'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwupt
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwupt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8929,&
'frame/module_domain.f: Failed to allocate grid%lwupt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwuptc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwuptc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8938,&
'frame/module_domain.f: Failed to allocate grid%lwuptc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwuptc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwuptc'
grid%tail_statevars%DataName = 'LWUPTC'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING CLEAR SKY LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwuptc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwuptc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8988,&
'frame/module_domain.f: Failed to allocate grid%lwuptc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwdnt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwdnt(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8997,&
'frame/module_domain.f: Failed to allocate grid%lwdnt(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwdnt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwdnt'
grid%tail_statevars%DataName = 'LWDNT'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwdnt
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwdnt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9047,&
'frame/module_domain.f: Failed to allocate grid%lwdnt(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwdntc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwdntc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9056,&
'frame/module_domain.f: Failed to allocate grid%lwdntc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwdntc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwdntc'
grid%tail_statevars%DataName = 'LWDNTC'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING CLEAR SKY LONGWAVE FLUX AT TOP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwdntc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwdntc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9106,&
'frame/module_domain.f: Failed to allocate grid%lwdntc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwupb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwupb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9115,&
'frame/module_domain.f: Failed to allocate grid%lwupb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwupb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwupb'
grid%tail_statevars%DataName = 'LWUPB'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwupb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwupb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9165,&
'frame/module_domain.f: Failed to allocate grid%lwupb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwupbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwupbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9174,&
'frame/module_domain.f: Failed to allocate grid%lwupbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwupbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwupbc'
grid%tail_statevars%DataName = 'LWUPBC'
grid%tail_statevars%Description = 'INSTANTANEOUS UPWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwupbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwupbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9224,&
'frame/module_domain.f: Failed to allocate grid%lwupbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwdnb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwdnb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9233,&
'frame/module_domain.f: Failed to allocate grid%lwdnb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwdnb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwdnb'
grid%tail_statevars%DataName = 'LWDNB'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwdnb
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwdnb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9283,&
'frame/module_domain.f: Failed to allocate grid%lwdnb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'lwdnbc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%lwdnbc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9292,&
'frame/module_domain.f: Failed to allocate grid%lwdnbc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lwdnbc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lwdnbc'
grid%tail_statevars%DataName = 'LWDNBC'
grid%tail_statevars%Description = 'INSTANTANEOUS DOWNWELLING CLEAR SKY LONGWAVE FLUX AT BOTTOM'
grid%tail_statevars%Units = 'Wm-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%lwdnbc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%lwdnbc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9342,&
'frame/module_domain.f: Failed to allocate grid%lwdnbc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swvisdir').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swvisdir(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9351,&
'frame/module_domain.f: Failed to allocate grid%swvisdir(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swvisdir=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swvisdir'
grid%tail_statevars%DataName = 'SWVISDIR'
grid%tail_statevars%Description = 'SWR VIS DIR component'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swvisdir
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swvisdir(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9401,&
'frame/module_domain.f: Failed to allocate grid%swvisdir(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swvisdif').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swvisdif(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9410,&
'frame/module_domain.f: Failed to allocate grid%swvisdif(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swvisdif=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swvisdif'
grid%tail_statevars%DataName = 'SWVISDIF'
grid%tail_statevars%Description = 'SWR VIS DIF component'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swvisdif
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swvisdif(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9460,&
'frame/module_domain.f: Failed to allocate grid%swvisdif(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swnirdir').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swnirdir(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9469,&
'frame/module_domain.f: Failed to allocate grid%swnirdir(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swnirdir=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swnirdir'
grid%tail_statevars%DataName = 'SWNIRDIR'
grid%tail_statevars%Description = 'SWR NIR DIR component'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swnirdir
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swnirdir(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9519,&
'frame/module_domain.f: Failed to allocate grid%swnirdir(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swnirdif').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swnirdif(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9528,&
'frame/module_domain.f: Failed to allocate grid%swnirdif(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swnirdif=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swnirdif'
grid%tail_statevars%DataName = 'SWNIRDIF'
grid%tail_statevars%Description = 'SWR NIR DIF component'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swnirdif
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swnirdif(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9578,&
'frame/module_domain.f: Failed to allocate grid%swnirdif(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'refl_10cm'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%refl_10cm(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9587,&
'frame/module_domain.f: Failed to allocate grid%refl_10cm(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%refl_10cm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'refl_10cm'
grid%tail_statevars%DataName = 'REFL_10CM'
grid%tail_statevars%Description = 'Radar reflectivity (lamda = 10 cm)'
grid%tail_statevars%Units = 'dBZ'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%refl_10cm
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%refl_10cm(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9637,&
'frame/module_domain.f: Failed to allocate grid%refl_10cm(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'refd_max'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%refd_max(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9646,&
'frame/module_domain.f: Failed to allocate grid%refd_max(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%refd_max=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'refd_max'
grid%tail_statevars%DataName = 'REFD_MAX'
grid%tail_statevars%Description = 'Composite (column maximum) radar reflectivity (lambda = 10 cm)'
grid%tail_statevars%Units = 'dBZ'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%refd_max
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%refd_max(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9696,&
'frame/module_domain.f: Failed to allocate grid%refd_max(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'qnwfa2d'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%qnwfa2d(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9705,&
'frame/module_domain.f: Failed to allocate grid%qnwfa2d(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qnwfa2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qnwfa2d'
grid%tail_statevars%DataName = 'QNWFA2D'
grid%tail_statevars%Description = 'Surface aerosol number conc emission'
grid%tail_statevars%Units = 'kg-1 s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%qnwfa2d
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qnwfa2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9755,&
'frame/module_domain.f: Failed to allocate grid%qnwfa2d(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'re_cloud').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%re_cloud(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9764,&
'frame/module_domain.f: Failed to allocate grid%re_cloud(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%re_cloud=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 're_cloud'
grid%tail_statevars%DataName = 'RE_CLOUD'
grid%tail_statevars%Description = 'Effective radius, cloud drops'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%re_cloud
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%re_cloud(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9814,&
'frame/module_domain.f: Failed to allocate grid%re_cloud(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'re_ice').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%re_ice(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9823,&
'frame/module_domain.f: Failed to allocate grid%re_ice(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%re_ice=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 're_ice'
grid%tail_statevars%DataName = 'RE_ICE'
grid%tail_statevars%Description = 'Effective radius, cloud ice'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%re_ice
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%re_ice(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9873,&
'frame/module_domain.f: Failed to allocate grid%re_ice(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'re_snow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%re_snow(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9882,&
'frame/module_domain.f: Failed to allocate grid%re_snow(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%re_snow=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 're_snow'
grid%tail_statevars%DataName = 'RE_SNOW'
grid%tail_statevars%Description = 'Effective radius, snow'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%re_snow
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%re_snow(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9932,&
'frame/module_domain.f: Failed to allocate grid%re_snow(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dfi_re_cloud').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dfi_re_cloud(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9941,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_cloud(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_re_cloud=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dfi_re_cloud'
grid%tail_statevars%DataName = 'DFI_RE_CLOUD'
grid%tail_statevars%Description = 'DFI Effective radius cloud water'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dfi_re_cloud
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_re_cloud(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9991,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_cloud(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dfi_re_ice').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dfi_re_ice(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10000,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_ice(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_re_ice=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dfi_re_ice'
grid%tail_statevars%DataName = 'DFI_RE_ICE'
grid%tail_statevars%Description = 'DFI Effective radius cloud ice'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dfi_re_ice
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_re_ice(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10050,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_ice(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dfi_re_snow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dfi_re_snow(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10059,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_snow(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_re_snow=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dfi_re_snow'
grid%tail_statevars%DataName = 'DFI_RE_SNOW'
grid%tail_statevars%Description = 'DFI Effective radius snow'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dfi_re_snow
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_re_snow(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10109,&
'frame/module_domain.f: Failed to allocate grid%dfi_re_snow(1,1,1). ')
endif
ENDIF
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'has_reqc'
grid%tail_statevars%DataName = 'HAS_REQC'
grid%tail_statevars%Description = 'Flag for has effective radius of cloud water'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%has_reqc
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%has_reqc=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'has_reqi'
grid%tail_statevars%DataName = 'HAS_REQI'
grid%tail_statevars%Description = 'Flag for has effective radius of cloud ice'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%has_reqi
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%has_reqi=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'has_reqs'
grid%tail_statevars%DataName = 'HAS_REQS'
grid%tail_statevars%Description = 'Flag for has effective radius of snow'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%has_reqs
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%has_reqs=0
IF(okay_to_alloc.AND.in_use_for_config(id,'hrswpd').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hrswpd(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10175,&
'frame/module_domain.f: Failed to allocate grid%hrswpd(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hrswpd=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hrswpd'
grid%tail_statevars%DataName = 'HRSWPD'
grid%tail_statevars%Description = 'Short wave heating rate per day'
grid%tail_statevars%Units = 'K d-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%hrswpd
grid%tail_statevars%streams(1) = 16
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%hrswpd(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10225,&
'frame/module_domain.f: Failed to allocate grid%hrswpd(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hrlwpd').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hrlwpd(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10234,&
'frame/module_domain.f: Failed to allocate grid%hrlwpd(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hrlwpd=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hrlwpd'
grid%tail_statevars%DataName = 'HRLWPD'
grid%tail_statevars%Description = 'Long wave heating rate per day'
grid%tail_statevars%Units = 'K d-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%hrlwpd
grid%tail_statevars%streams(1) = 16
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%hrlwpd(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10284,&
'frame/module_domain.f: Failed to allocate grid%hrlwpd(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swddir'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swddir(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10293,&
'frame/module_domain.f: Failed to allocate grid%swddir(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swddir=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swddir'
grid%tail_statevars%DataName = 'SWDDIR'
grid%tail_statevars%Description = 'Shortwave surface downward direct irradiance'
grid%tail_statevars%Units = 'W/m^2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swddir
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swddir(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10343,&
'frame/module_domain.f: Failed to allocate grid%swddir(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swddni'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swddni(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10352,&
'frame/module_domain.f: Failed to allocate grid%swddni(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swddni=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swddni'
grid%tail_statevars%DataName = 'SWDDNI'
grid%tail_statevars%Description = 'Shortwave surface downward direct normal irradiance'
grid%tail_statevars%Units = 'W/m^2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swddni
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swddni(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10402,&
'frame/module_domain.f: Failed to allocate grid%swddni(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swddif'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swddif(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10411,&
'frame/module_domain.f: Failed to allocate grid%swddif(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swddif=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swddif'
grid%tail_statevars%DataName = 'SWDDIF'
grid%tail_statevars%Description = 'Shortwave surface downward diffuse irradiance'
grid%tail_statevars%Units = 'W/m^2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swddif
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swddif(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10461,&
'frame/module_domain.f: Failed to allocate grid%swddif(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gx'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10470,&
'frame/module_domain.f: Failed to allocate grid%gx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gx'
grid%tail_statevars%DataName = 'GX'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%gx
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%gx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10520,&
'frame/module_domain.f: Failed to allocate grid%gx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'bx'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%bx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10529,&
'frame/module_domain.f: Failed to allocate grid%bx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%bx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'bx'
grid%tail_statevars%DataName = 'BX'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%bx
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%bx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10579,&
'frame/module_domain.f: Failed to allocate grid%bx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'gg'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%gg(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10588,&
'frame/module_domain.f: Failed to allocate grid%gg(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gg=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gg'
grid%tail_statevars%DataName = 'GG'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%gg
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%gg(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10638,&
'frame/module_domain.f: Failed to allocate grid%gg(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'bb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%bb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10647,&
'frame/module_domain.f: Failed to allocate grid%bb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%bb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'bb'
grid%tail_statevars%DataName = 'BB'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%bb
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%bb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10697,&
'frame/module_domain.f: Failed to allocate grid%bb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'coszen_ref'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%coszen_ref(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10706,&
'frame/module_domain.f: Failed to allocate grid%coszen_ref(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%coszen_ref=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'coszen_ref'
grid%tail_statevars%DataName = 'COSZEN_REF'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%coszen_ref
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%coszen_ref(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10756,&
'frame/module_domain.f: Failed to allocate grid%coszen_ref(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'coszen').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%coszen(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10765,&
'frame/module_domain.f: Failed to allocate grid%coszen(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%coszen=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'coszen'
grid%tail_statevars%DataName = 'COSZEN '
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%coszen
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%coszen(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10815,&
'frame/module_domain.f: Failed to allocate grid%coszen(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hrang').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hrang(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10824,&
'frame/module_domain.f: Failed to allocate grid%hrang(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hrang=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hrang'
grid%tail_statevars%DataName = 'HRANG'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hrang
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hrang(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10874,&
'frame/module_domain.f: Failed to allocate grid%hrang(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swdown_ref'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swdown_ref(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10883,&
'frame/module_domain.f: Failed to allocate grid%swdown_ref(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swdown_ref=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swdown_ref'
grid%tail_statevars%DataName = 'SWDOWN_REF'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swdown_ref
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swdown_ref(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10933,&
'frame/module_domain.f: Failed to allocate grid%swdown_ref(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'swddir_ref'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%swddir_ref(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10942,&
'frame/module_domain.f: Failed to allocate grid%swddir_ref(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%swddir_ref=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'swddir_ref'
grid%tail_statevars%DataName = 'SWDDIR_REF'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%swddir_ref
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%swddir_ref(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10992,&
'frame/module_domain.f: Failed to allocate grid%swddir_ref(1,1). ')
endif
ENDIF
IF ( setinitval .EQ. 3 ) grid%swint_opt=0
IF ( setinitval .EQ. 3 ) grid%aer_type=0
IF ( setinitval .EQ. 3 ) grid%aer_aod550_opt=0
IF ( setinitval .EQ. 3 ) grid%aer_angexp_opt=0
IF ( setinitval .EQ. 3 ) grid%aer_ssa_opt=0
IF ( setinitval .EQ. 3 ) grid%aer_asy_opt=0
IF ( setinitval .EQ. 3 ) grid%aer_aod550_val=initial_data_value
IF ( setinitval .EQ. 3 ) grid%aer_angexp_val=initial_data_value
IF ( setinitval .EQ. 3 ) grid%aer_ssa_val=initial_data_value
IF ( setinitval .EQ. 3 ) grid%aer_asy_val=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'avgpchg'
grid%tail_statevars%DataName = 'AVGPCHG'
grid%tail_statevars%Description = 'Average global change (hPa/3h)'
grid%tail_statevars%Units = 'hPa/3h'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%avgpchg
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%avgpchg=initial_data_value
IF(okay_to_alloc.AND.in_use_for_config(id,'cwm'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%cwm(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11030,&
'frame/module_domain.f: Failed to allocate grid%cwm(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cwm'
grid%tail_statevars%DataName = 'CWM'
grid%tail_statevars%Description = 'Total condensate'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%cwm
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%cwm(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11080,&
'frame/module_domain.f: Failed to allocate grid%cwm(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_bxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11089,&
'frame/module_domain.f: Failed to allocate grid%cwm_bxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_bxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11097,&
'frame/module_domain.f: Failed to allocate grid%cwm_bxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_bys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11105,&
'frame/module_domain.f: Failed to allocate grid%cwm_bys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_bye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11113,&
'frame/module_domain.f: Failed to allocate grid%cwm_bye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_bye=initial_data_value
ELSE
ALLOCATE(grid%cwm_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11120,&
'frame/module_domain.f: Failed to allocate grid%cwm_bxs(1,1,1). ')
endif
ALLOCATE(grid%cwm_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11125,&
'frame/module_domain.f: Failed to allocate grid%cwm_bxe(1,1,1). ')
endif
ALLOCATE(grid%cwm_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11130,&
'frame/module_domain.f: Failed to allocate grid%cwm_bys(1,1,1). ')
endif
ALLOCATE(grid%cwm_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11135,&
'frame/module_domain.f: Failed to allocate grid%cwm_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_btxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11144,&
'frame/module_domain.f: Failed to allocate grid%cwm_btxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_btxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11152,&
'frame/module_domain.f: Failed to allocate grid%cwm_btxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_btys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11160,&
'frame/module_domain.f: Failed to allocate grid%cwm_btys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%cwm_btye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11168,&
'frame/module_domain.f: Failed to allocate grid%cwm_btye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cwm_btye=initial_data_value
ELSE
ALLOCATE(grid%cwm_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11175,&
'frame/module_domain.f: Failed to allocate grid%cwm_btxs(1,1,1). ')
endif
ALLOCATE(grid%cwm_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11180,&
'frame/module_domain.f: Failed to allocate grid%cwm_btxe(1,1,1). ')
endif
ALLOCATE(grid%cwm_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11185,&
'frame/module_domain.f: Failed to allocate grid%cwm_btys(1,1,1). ')
endif
ALLOCATE(grid%cwm_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11190,&
'frame/module_domain.f: Failed to allocate grid%cwm_btye(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rrw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rrw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11199,&
'frame/module_domain.f: Failed to allocate grid%rrw(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rrw'
grid%tail_statevars%DataName = 'RRW'
grid%tail_statevars%Description = 'Tracer'
grid%tail_statevars%Units = 'kg kg-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rrw
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%rrw(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11249,&
'frame/module_domain.f: Failed to allocate grid%rrw(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_bxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11258,&
'frame/module_domain.f: Failed to allocate grid%rrw_bxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_bxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11266,&
'frame/module_domain.f: Failed to allocate grid%rrw_bxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_bys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11274,&
'frame/module_domain.f: Failed to allocate grid%rrw_bys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_bye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11282,&
'frame/module_domain.f: Failed to allocate grid%rrw_bye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_bye=initial_data_value
ELSE
ALLOCATE(grid%rrw_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11289,&
'frame/module_domain.f: Failed to allocate grid%rrw_bxs(1,1,1). ')
endif
ALLOCATE(grid%rrw_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11294,&
'frame/module_domain.f: Failed to allocate grid%rrw_bxe(1,1,1). ')
endif
ALLOCATE(grid%rrw_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11299,&
'frame/module_domain.f: Failed to allocate grid%rrw_bys(1,1,1). ')
endif
ALLOCATE(grid%rrw_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11304,&
'frame/module_domain.f: Failed to allocate grid%rrw_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_btxs(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11313,&
'frame/module_domain.f: Failed to allocate grid%rrw_btxs(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em32-sm32+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_btxe(sm32:em32,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11321,&
'frame/module_domain.f: Failed to allocate grid%rrw_btxe(sm32:em32,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_btys(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11329,&
'frame/module_domain.f: Failed to allocate grid%rrw_btys(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%rrw_btye(sm31:em31,sm33:em33,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11337,&
'frame/module_domain.f: Failed to allocate grid%rrw_btye(sm31:em31,sm33:em33,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rrw_btye=initial_data_value
ELSE
ALLOCATE(grid%rrw_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11344,&
'frame/module_domain.f: Failed to allocate grid%rrw_btxs(1,1,1). ')
endif
ALLOCATE(grid%rrw_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11349,&
'frame/module_domain.f: Failed to allocate grid%rrw_btxe(1,1,1). ')
endif
ALLOCATE(grid%rrw_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11354,&
'frame/module_domain.f: Failed to allocate grid%rrw_btys(1,1,1). ')
endif
ALLOCATE(grid%rrw_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11359,&
'frame/module_domain.f: Failed to allocate grid%rrw_btye(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'f_ice'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%f_ice(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11368,&
'frame/module_domain.f: Failed to allocate grid%f_ice(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f_ice=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'f_ice'
grid%tail_statevars%DataName = 'F_ICE'
grid%tail_statevars%Description = 'Frozen fraction of CWM'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%f_ice
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%f_ice(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11418,&
'frame/module_domain.f: Failed to allocate grid%f_ice(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'f_rain'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%f_rain(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11427,&
'frame/module_domain.f: Failed to allocate grid%f_rain(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f_rain=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'f_rain'
grid%tail_statevars%DataName = 'F_RAIN'
grid%tail_statevars%Description = 'Rain fraction of liquid part of CWM'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%f_rain
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%f_rain(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11477,&
'frame/module_domain.f: Failed to allocate grid%f_rain(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'f_rimef'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%f_rimef(sm31:em31,sm33:em33,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11486,&
'frame/module_domain.f: Failed to allocate grid%f_rimef(sm31:em31,sm33:em33,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%f_rimef=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'f_rimef'
grid%tail_statevars%DataName = 'F_RIMEF'
grid%tail_statevars%Description = 'Rime factor'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%f_rimef
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = kms
grid%tail_statevars%em2 = kme
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = kps
grid%tail_statevars%ep2 = MIN( (kde-1), kpe )
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%f_rimef(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11536,&
'frame/module_domain.f: Failed to allocate grid%f_rimef(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cldfra').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%cldfra(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11545,&
'frame/module_domain.f: Failed to allocate grid%cldfra(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cldfra=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cldfra'
grid%tail_statevars%DataName = 'CLDFRA'
grid%tail_statevars%Description = 'Cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%cldfra
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%cldfra(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11595,&
'frame/module_domain.f: Failed to allocate grid%cldfra(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sr').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sr(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11604,&
'frame/module_domain.f: Failed to allocate grid%sr(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sr'
grid%tail_statevars%DataName = 'SR'
grid%tail_statevars%Description = 'Timestep mass ratio of snow:precip'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sr
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sr(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11654,&
'frame/module_domain.f: Failed to allocate grid%sr(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cfrach'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cfrach(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11663,&
'frame/module_domain.f: Failed to allocate grid%cfrach(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfrach=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cfrach'
grid%tail_statevars%DataName = 'CFRACH'
grid%tail_statevars%Description = 'High cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cfrach
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cfrach(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11713,&
'frame/module_domain.f: Failed to allocate grid%cfrach(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cfracl'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cfracl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11722,&
'frame/module_domain.f: Failed to allocate grid%cfracl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracl=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cfracl'
grid%tail_statevars%DataName = 'CFRACL'
grid%tail_statevars%Description = 'Low cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cfracl
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cfracl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11772,&
'frame/module_domain.f: Failed to allocate grid%cfracl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cfracm'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cfracm(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11781,&
'frame/module_domain.f: Failed to allocate grid%cfracm(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cfracm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cfracm'
grid%tail_statevars%DataName = 'CFRACM'
grid%tail_statevars%Description = 'Middle cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cfracm
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cfracm(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11831,&
'frame/module_domain.f: Failed to allocate grid%cfracm(1,1). ')
endif
ENDIF
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'micro_start'
grid%tail_statevars%DataName = 'MICRO_START'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%micro_start
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%micro_start=.FALSE.
IF(okay_to_alloc.AND.in_use_for_config(id,'islope'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%islope(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11859,&
'frame/module_domain.f: Failed to allocate grid%islope(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%islope=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'islope'
grid%tail_statevars%DataName = 'ISLOPE'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%islope
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%islope(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11909,&
'frame/module_domain.f: Failed to allocate grid%islope(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dzsoil').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dzsoil(sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11918,&
'frame/module_domain.f: Failed to allocate grid%dzsoil(sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzsoil=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dzsoil'
grid%tail_statevars%DataName = 'DZSOIL'
grid%tail_statevars%Description = 'Thickness of soil layers'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'Z'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 1
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_1d => grid%dzsoil
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = kds
grid%tail_statevars%ed1 = (kde-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = kms
grid%tail_statevars%em1 = kme
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = kps
grid%tail_statevars%ep1 = MIN( (kde-1), kpe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'bottom_top'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dzsoil(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11966,&
'frame/module_domain.f: Failed to allocate grid%dzsoil(1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rtdpth').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rtdpth(sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11975,&
'frame/module_domain.f: Failed to allocate grid%rtdpth(sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rtdpth=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rtdpth'
grid%tail_statevars%DataName = 'RTDPTH'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'Z'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 1
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_1d => grid%rtdpth
grid%tail_statevars%streams(1) = 100663296
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = kds
grid%tail_statevars%ed1 = (kde-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = kms
grid%tail_statevars%em1 = kme
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = kps
grid%tail_statevars%ep1 = MIN( (kde-1), kpe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'bottom_top'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rtdpth(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12023,&
'frame/module_domain.f: Failed to allocate grid%rtdpth(1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sldpth').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sldpth(sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12032,&
'frame/module_domain.f: Failed to allocate grid%sldpth(sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sldpth=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sldpth'
grid%tail_statevars%DataName = 'SLDPTH'
grid%tail_statevars%Description = 'Depths of centers of soil layers'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'Z'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 1
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_1d => grid%sldpth
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = kds
grid%tail_statevars%ed1 = (kde-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = kms
grid%tail_statevars%em1 = kme
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = kps
grid%tail_statevars%ep1 = MIN( (kde-1), kpe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'bottom_top'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sldpth(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12080,&
'frame/module_domain.f: Failed to allocate grid%sldpth(1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'cmc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%cmc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12089,&
'frame/module_domain.f: Failed to allocate grid%cmc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%cmc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'cmc'
grid%tail_statevars%DataName = 'CMC'
grid%tail_statevars%Description = 'Canopy moisture'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%cmc
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%cmc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12139,&
'frame/module_domain.f: Failed to allocate grid%cmc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'grnflx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%grnflx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12148,&
'frame/module_domain.f: Failed to allocate grid%grnflx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%grnflx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'grnflx'
grid%tail_statevars%DataName = 'GRNFLX'
grid%tail_statevars%Description = 'Deep soil heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%grnflx
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%grnflx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12198,&
'frame/module_domain.f: Failed to allocate grid%grnflx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pctsno').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%pctsno(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12207,&
'frame/module_domain.f: Failed to allocate grid%pctsno(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pctsno=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pctsno'
grid%tail_statevars%DataName = 'PCTSNO'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pctsno
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%pctsno(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12257,&
'frame/module_domain.f: Failed to allocate grid%pctsno(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'soiltb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%soiltb(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12266,&
'frame/module_domain.f: Failed to allocate grid%soiltb(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soiltb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soiltb'
grid%tail_statevars%DataName = 'SOILTB'
grid%tail_statevars%Description = 'Deep ground soil temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soiltb
grid%tail_statevars%streams(1) = 100663309
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%soiltb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12316,&
'frame/module_domain.f: Failed to allocate grid%soiltb(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'vegfrc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%vegfrc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12325,&
'frame/module_domain.f: Failed to allocate grid%vegfrc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegfrc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vegfrc'
grid%tail_statevars%DataName = 'VEGFRC'
grid%tail_statevars%Description = 'Vegetation fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%vegfrc
grid%tail_statevars%streams(1) = 637534221
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%vegfrc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12375,&
'frame/module_domain.f: Failed to allocate grid%vegfrc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'shdmax'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%shdmax(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12384,&
'frame/module_domain.f: Failed to allocate grid%shdmax(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmax=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'shdmax'
grid%tail_statevars%DataName = 'SHDMAX'
grid%tail_statevars%Description = 'ANNUAL MAX VEG FRACTION'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%shdmax
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%shdmax(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12434,&
'frame/module_domain.f: Failed to allocate grid%shdmax(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'shdmin'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%shdmin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12443,&
'frame/module_domain.f: Failed to allocate grid%shdmin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%shdmin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'shdmin'
grid%tail_statevars%DataName = 'SHDMIN'
grid%tail_statevars%Description = 'ANNUAL MIN VEG FRACTION'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%shdmin
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%shdmin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12493,&
'frame/module_domain.f: Failed to allocate grid%shdmin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sh2o'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sh2o(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12502,&
'frame/module_domain.f: Failed to allocate grid%sh2o(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sh2o=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sh2o'
grid%tail_statevars%DataName = 'SH2O'
grid%tail_statevars%Description = 'Unfrozen soil moisture volume fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%sh2o
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_soil_layers
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%num_soil_layers
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%num_soil_layers
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'soil_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%sh2o(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12552,&
'frame/module_domain.f: Failed to allocate grid%sh2o(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'smc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%smc(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12561,&
'frame/module_domain.f: Failed to allocate grid%smc(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'smc'
grid%tail_statevars%DataName = 'SMC'
grid%tail_statevars%Description = 'Soil moisture volume fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%smc
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_soil_layers
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%num_soil_layers
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%num_soil_layers
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'soil_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%smc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12611,&
'frame/module_domain.f: Failed to allocate grid%smc(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'stc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%stc(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12620,&
'frame/module_domain.f: Failed to allocate grid%stc(sm31:em31,1:model_config_rec%num_soil_layers,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%stc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'stc'
grid%tail_statevars%DataName = 'STC'
grid%tail_statevars%Description = 'Soil temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%stc
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_soil_layers
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = (jde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%num_soil_layers
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%num_soil_layers
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( (jde-1), jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'soil_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%stc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12670,&
'frame/module_domain.f: Failed to allocate grid%stc(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hstdv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hstdv(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12679,&
'frame/module_domain.f: Failed to allocate grid%hstdv(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hstdv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hstdv'
grid%tail_statevars%DataName = 'HSTDV'
grid%tail_statevars%Description = 'Standard deviation of height'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hstdv
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hstdv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12729,&
'frame/module_domain.f: Failed to allocate grid%hstdv(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hcnvx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hcnvx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12738,&
'frame/module_domain.f: Failed to allocate grid%hcnvx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hcnvx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hcnvx'
grid%tail_statevars%DataName = 'HCNVX'
grid%tail_statevars%Description = 'Normalized 4th moment of orographic convexity'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hcnvx
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hcnvx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12788,&
'frame/module_domain.f: Failed to allocate grid%hcnvx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hasyw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hasyw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12797,&
'frame/module_domain.f: Failed to allocate grid%hasyw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hasyw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hasyw'
grid%tail_statevars%DataName = 'HASYW'
grid%tail_statevars%Description = 'Orographic asymmetry in W-E plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hasyw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hasyw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12847,&
'frame/module_domain.f: Failed to allocate grid%hasyw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hasys').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hasys(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12856,&
'frame/module_domain.f: Failed to allocate grid%hasys(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hasys=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hasys'
grid%tail_statevars%DataName = 'HASYS'
grid%tail_statevars%Description = 'Orographic asymmetry in S-N plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hasys
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hasys(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12906,&
'frame/module_domain.f: Failed to allocate grid%hasys(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hasysw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hasysw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12915,&
'frame/module_domain.f: Failed to allocate grid%hasysw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hasysw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hasysw'
grid%tail_statevars%DataName = 'HASYSW'
grid%tail_statevars%Description = 'Orographic asymmetry in SW-NE plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hasysw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hasysw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12965,&
'frame/module_domain.f: Failed to allocate grid%hasysw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hasynw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hasynw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12974,&
'frame/module_domain.f: Failed to allocate grid%hasynw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hasynw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hasynw'
grid%tail_statevars%DataName = 'HASYNW'
grid%tail_statevars%Description = 'Orographic asymmetry in NW-SE plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hasynw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hasynw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13024,&
'frame/module_domain.f: Failed to allocate grid%hasynw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hlenw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hlenw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13033,&
'frame/module_domain.f: Failed to allocate grid%hlenw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hlenw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hlenw'
grid%tail_statevars%DataName = 'HLENW'
grid%tail_statevars%Description = 'Orographic length scale in W-E plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hlenw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hlenw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13083,&
'frame/module_domain.f: Failed to allocate grid%hlenw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hlens').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hlens(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13092,&
'frame/module_domain.f: Failed to allocate grid%hlens(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hlens=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hlens'
grid%tail_statevars%DataName = 'HLENS'
grid%tail_statevars%Description = 'Orographic length scale in S-N plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hlens
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hlens(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13142,&
'frame/module_domain.f: Failed to allocate grid%hlens(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hlensw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hlensw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13151,&
'frame/module_domain.f: Failed to allocate grid%hlensw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hlensw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hlensw'
grid%tail_statevars%DataName = 'HLENSW'
grid%tail_statevars%Description = 'Orographic length scale in SW-NE plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hlensw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hlensw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13201,&
'frame/module_domain.f: Failed to allocate grid%hlensw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hlennw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hlennw(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13210,&
'frame/module_domain.f: Failed to allocate grid%hlennw(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hlennw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hlennw'
grid%tail_statevars%DataName = 'HLENNW'
grid%tail_statevars%Description = 'Orographic length scale in NW-SE plane'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hlennw
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hlennw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13260,&
'frame/module_domain.f: Failed to allocate grid%hlennw(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hangl').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hangl(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13269,&
'frame/module_domain.f: Failed to allocate grid%hangl(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hangl=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hangl'
grid%tail_statevars%DataName = 'HANGL'
grid%tail_statevars%Description = 'Angle of the mountain range w/r/t east'
grid%tail_statevars%Units = 'deg'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hangl
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hangl(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13319,&
'frame/module_domain.f: Failed to allocate grid%hangl(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hanis').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hanis(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13328,&
'frame/module_domain.f: Failed to allocate grid%hanis(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hanis=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hanis'
grid%tail_statevars%DataName = 'HANIS'
grid%tail_statevars%Description = 'Anisotropy/aspect ratio of orography'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hanis
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hanis(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13378,&
'frame/module_domain.f: Failed to allocate grid%hanis(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hslop').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hslop(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13387,&
'frame/module_domain.f: Failed to allocate grid%hslop(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hslop=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hslop'
grid%tail_statevars%DataName = 'HSLOP'
grid%tail_statevars%Description = 'Slope of orography'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hslop
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hslop(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13437,&
'frame/module_domain.f: Failed to allocate grid%hslop(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'hzmax').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%hzmax(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13446,&
'frame/module_domain.f: Failed to allocate grid%hzmax(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hzmax=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hzmax'
grid%tail_statevars%DataName = 'HZMAX'
grid%tail_statevars%Description = 'Maximum height above mean orography'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%hzmax
grid%tail_statevars%streams(1) = 100663297
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hzmax(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13496,&
'frame/module_domain.f: Failed to allocate grid%hzmax(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'crot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%crot(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13505,&
'frame/module_domain.f: Failed to allocate grid%crot(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%crot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'crot'
grid%tail_statevars%DataName = 'CROT'
grid%tail_statevars%Description = 'Cosine of angle between model and earth coordinates'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%crot
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%crot(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13555,&
'frame/module_domain.f: Failed to allocate grid%crot(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'srot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%srot(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13564,&
'frame/module_domain.f: Failed to allocate grid%srot(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%srot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'srot'
grid%tail_statevars%DataName = 'SROT'
grid%tail_statevars%Description = 'Sine of angle between model and earth coordinates'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%srot
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%srot(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13614,&
'frame/module_domain.f: Failed to allocate grid%srot(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ugwdsfc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ugwdsfc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13623,&
'frame/module_domain.f: Failed to allocate grid%ugwdsfc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ugwdsfc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ugwdsfc'
grid%tail_statevars%DataName = 'UGWDSFC'
grid%tail_statevars%Description = 'Surface zonal wind stress due to gravity wave drag'
grid%tail_statevars%Units = 'N m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ugwdsfc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ugwdsfc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13673,&
'frame/module_domain.f: Failed to allocate grid%ugwdsfc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'vgwdsfc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%vgwdsfc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13682,&
'frame/module_domain.f: Failed to allocate grid%vgwdsfc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vgwdsfc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vgwdsfc'
grid%tail_statevars%DataName = 'VGWDSFC'
grid%tail_statevars%Description = 'Surface meridional wind stress due to gravity wave drag'
grid%tail_statevars%Units = 'N m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%vgwdsfc
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%vgwdsfc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13732,&
'frame/module_domain.f: Failed to allocate grid%vgwdsfc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ctopo'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ctopo(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13741,&
'frame/module_domain.f: Failed to allocate grid%ctopo(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ctopo=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ctopo'
grid%tail_statevars%DataName = 'CTOPO'
grid%tail_statevars%Description = 'Correction for topography'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ctopo
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ctopo(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13791,&
'frame/module_domain.f: Failed to allocate grid%ctopo(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ctopo2'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ctopo2(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13800,&
'frame/module_domain.f: Failed to allocate grid%ctopo2(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ctopo2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ctopo2'
grid%tail_statevars%DataName = 'CTOPO2'
grid%tail_statevars%Description = 'Correction for topography 2'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ctopo2
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ctopo2(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13850,&
'frame/module_domain.f: Failed to allocate grid%ctopo2(1,1). ')
endif
ENDIF
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'hydro'
grid%tail_statevars%DataName = 'HYDRO'
grid%tail_statevars%Description = '.FALSE. => nonhydrostatic'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%hydro
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%hydro=.FALSE.
IF(okay_to_alloc.AND.in_use_for_config(id,'dwdtmn').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dwdtmn(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13878,&
'frame/module_domain.f: Failed to allocate grid%dwdtmn(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dwdtmn=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dwdtmn'
grid%tail_statevars%DataName = 'DWDTMN'
grid%tail_statevars%Description = 'Minimum value for DWDT'
grid%tail_statevars%Units = 'm s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%dwdtmn
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dwdtmn(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13928,&
'frame/module_domain.f: Failed to allocate grid%dwdtmn(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dwdtmx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dwdtmx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13937,&
'frame/module_domain.f: Failed to allocate grid%dwdtmx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dwdtmx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dwdtmx'
grid%tail_statevars%DataName = 'DWDTMX'
grid%tail_statevars%Description = 'Maximum value for DWDT'
grid%tail_statevars%Units = 'm s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%dwdtmx
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dwdtmx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13987,&
'frame/module_domain.f: Failed to allocate grid%dwdtmx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'baro').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%baro(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13996,&
'frame/module_domain.f: Failed to allocate grid%baro(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%baro=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'baro'
grid%tail_statevars%DataName = 'BARO'
grid%tail_statevars%Description = 'external mode vvel'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%baro
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%baro(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14046,&
'frame/module_domain.f: Failed to allocate grid%baro(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'dwdt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dwdt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14055,&
'frame/module_domain.f: Failed to allocate grid%dwdt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dwdt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dwdt'
grid%tail_statevars%DataName = 'DWDT'
grid%tail_statevars%Description = 'dwdt and 1+(dwdt)/g'
grid%tail_statevars%Units = 'm s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%dwdt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%dwdt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14105,&
'frame/module_domain.f: Failed to allocate grid%dwdt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pdwdt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pdwdt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14114,&
'frame/module_domain.f: Failed to allocate grid%pdwdt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pdwdt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pdwdt'
grid%tail_statevars%DataName = 'PDWDT'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%pdwdt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%pdwdt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14164,&
'frame/module_domain.f: Failed to allocate grid%pdwdt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'pint'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pint(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14173,&
'frame/module_domain.f: Failed to allocate grid%pint(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pint=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pint'
grid%tail_statevars%DataName = 'PINT'
grid%tail_statevars%Description = 'Model layer interface pressure'
grid%tail_statevars%Units = 'Pa'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%pint
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = kde
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( kde, kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top_stag'
ENDIF
ELSE
ALLOCATE(grid%pint(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14223,&
'frame/module_domain.f: Failed to allocate grid%pint(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'w'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14232,&
'frame/module_domain.f: Failed to allocate grid%w(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'w'
grid%tail_statevars%DataName = 'W_NONHYDRO'
grid%tail_statevars%Description = 'Vertical velocity (non-hydrostatic component only)'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%w
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = kde
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( kde, kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top_stag'
ENDIF
ELSE
ALLOCATE(grid%w(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14282,&
'frame/module_domain.f: Failed to allocate grid%w(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'w_tot'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%w_tot(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14291,&
'frame/module_domain.f: Failed to allocate grid%w_tot(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_tot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'w_tot'
grid%tail_statevars%DataName = 'W'
grid%tail_statevars%Description = 'Vertical velocity'
grid%tail_statevars%Units = 'm s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%w_tot
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = kde
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( kde, kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top_stag'
ENDIF
ELSE
ALLOCATE(grid%w_tot(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14341,&
'frame/module_domain.f: Failed to allocate grid%w_tot(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'z'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%z(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14350,&
'frame/module_domain.f: Failed to allocate grid%z(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z'
grid%tail_statevars%DataName = 'Z'
grid%tail_statevars%Description = 'Distance from ground'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%z
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = kde
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( kde, kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top_stag'
ENDIF
ELSE
ALLOCATE(grid%z(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14400,&
'frame/module_domain.f: Failed to allocate grid%z(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acfrcv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acfrcv(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14409,&
'frame/module_domain.f: Failed to allocate grid%acfrcv(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrcv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acfrcv'
grid%tail_statevars%DataName = 'ACFRCV'
grid%tail_statevars%Description = 'Accum convective cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acfrcv
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acfrcv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14459,&
'frame/module_domain.f: Failed to allocate grid%acfrcv(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'acfrst').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%acfrst(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14468,&
'frame/module_domain.f: Failed to allocate grid%acfrst(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acfrst=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acfrst'
grid%tail_statevars%DataName = 'ACFRST'
grid%tail_statevars%Description = 'Accum stratiform cloud fraction'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%acfrst
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%acfrst(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14518,&
'frame/module_domain.f: Failed to allocate grid%acfrst(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ssroff').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ssroff(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14527,&
'frame/module_domain.f: Failed to allocate grid%ssroff(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ssroff=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ssroff'
grid%tail_statevars%DataName = 'SSROFF'
grid%tail_statevars%Description = 'Surface runoff'
grid%tail_statevars%Units = 'mm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%ssroff
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ssroff(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14577,&
'frame/module_domain.f: Failed to allocate grid%ssroff(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'bgroff').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%bgroff(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14586,&
'frame/module_domain.f: Failed to allocate grid%bgroff(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%bgroff=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'bgroff'
grid%tail_statevars%DataName = 'BGROFF'
grid%tail_statevars%Description = 'Subsurface runoff'
grid%tail_statevars%Units = 'mm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%bgroff
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%bgroff(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14636,&
'frame/module_domain.f: Failed to allocate grid%bgroff(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rlwin'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rlwin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14645,&
'frame/module_domain.f: Failed to allocate grid%rlwin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rlwin'
grid%tail_statevars%DataName = 'RLWIN'
grid%tail_statevars%Description = 'Downward longwave at surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rlwin
grid%tail_statevars%streams(1) = 31
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rlwin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14695,&
'frame/module_domain.f: Failed to allocate grid%rlwin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rlwout').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rlwout(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14704,&
'frame/module_domain.f: Failed to allocate grid%rlwout(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwout=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rlwout'
grid%tail_statevars%DataName = 'RLWOUT'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rlwout
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rlwout(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14754,&
'frame/module_domain.f: Failed to allocate grid%rlwout(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rlwtoa').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rlwtoa(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14763,&
'frame/module_domain.f: Failed to allocate grid%rlwtoa(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwtoa=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rlwtoa'
grid%tail_statevars%DataName = 'RLWTOA'
grid%tail_statevars%Description = 'Outgoing LW flux at top of atmos'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rlwtoa
grid%tail_statevars%streams(1) = 29
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rlwtoa(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14813,&
'frame/module_domain.f: Failed to allocate grid%rlwtoa(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'alwin').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%alwin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14822,&
'frame/module_domain.f: Failed to allocate grid%alwin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%alwin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'alwin'
grid%tail_statevars%DataName = 'ALWIN'
grid%tail_statevars%Description = 'Accum LW down at surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%alwin
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%alwin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14872,&
'frame/module_domain.f: Failed to allocate grid%alwin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'alwout').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%alwout(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14881,&
'frame/module_domain.f: Failed to allocate grid%alwout(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%alwout=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'alwout'
grid%tail_statevars%DataName = 'ALWOUT'
grid%tail_statevars%Description = 'Accum RADOT (see above)'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%alwout
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%alwout(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14931,&
'frame/module_domain.f: Failed to allocate grid%alwout(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'alwtoa').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%alwtoa(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14940,&
'frame/module_domain.f: Failed to allocate grid%alwtoa(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%alwtoa=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'alwtoa'
grid%tail_statevars%DataName = 'ALWTOA'
grid%tail_statevars%Description = 'Accum RLWTOA'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%alwtoa
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%alwtoa(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14990,&
'frame/module_domain.f: Failed to allocate grid%alwtoa(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rswin'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rswin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14999,&
'frame/module_domain.f: Failed to allocate grid%rswin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rswin'
grid%tail_statevars%DataName = 'RSWIN'
grid%tail_statevars%Description = 'Downward shortwave at surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rswin
grid%tail_statevars%streams(1) = 31
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rswin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15049,&
'frame/module_domain.f: Failed to allocate grid%rswin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rswinc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rswinc(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15058,&
'frame/module_domain.f: Failed to allocate grid%rswinc(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswinc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rswinc'
grid%tail_statevars%DataName = 'RSWINC'
grid%tail_statevars%Description = 'Clear-sky equivalent of RSWIN'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rswinc
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rswinc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15108,&
'frame/module_domain.f: Failed to allocate grid%rswinc(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rswout').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rswout(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15117,&
'frame/module_domain.f: Failed to allocate grid%rswout(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswout=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rswout'
grid%tail_statevars%DataName = 'RSWOUT'
grid%tail_statevars%Description = 'Upward shortwave at surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rswout
grid%tail_statevars%streams(1) = 15
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rswout(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15167,&
'frame/module_domain.f: Failed to allocate grid%rswout(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rswtoa').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rswtoa(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15176,&
'frame/module_domain.f: Failed to allocate grid%rswtoa(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswtoa=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rswtoa'
grid%tail_statevars%DataName = 'RSWTOA'
grid%tail_statevars%Description = 'Outgoing SW flux at top of atmos'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rswtoa
grid%tail_statevars%streams(1) = 29
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rswtoa(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15226,&
'frame/module_domain.f: Failed to allocate grid%rswtoa(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aswin').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aswin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15235,&
'frame/module_domain.f: Failed to allocate grid%aswin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aswin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aswin'
grid%tail_statevars%DataName = 'ASWIN'
grid%tail_statevars%Description = 'Accum SW down at surface'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aswin
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aswin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15285,&
'frame/module_domain.f: Failed to allocate grid%aswin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aswout').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aswout(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15294,&
'frame/module_domain.f: Failed to allocate grid%aswout(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aswout=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aswout'
grid%tail_statevars%DataName = 'ASWOUT'
grid%tail_statevars%Description = 'Accum RSWOUT'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aswout
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aswout(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15344,&
'frame/module_domain.f: Failed to allocate grid%aswout(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'aswtoa').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%aswtoa(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15353,&
'frame/module_domain.f: Failed to allocate grid%aswtoa(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%aswtoa=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'aswtoa'
grid%tail_statevars%DataName = 'ASWTOA'
grid%tail_statevars%Description = 'Accum RSWTOA'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%aswtoa
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%aswtoa(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15403,&
'frame/module_domain.f: Failed to allocate grid%aswtoa(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sfcshx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sfcshx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15412,&
'frame/module_domain.f: Failed to allocate grid%sfcshx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcshx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcshx'
grid%tail_statevars%DataName = 'SFCSHX'
grid%tail_statevars%Description = 'Accum sfc sensible heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sfcshx
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sfcshx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15462,&
'frame/module_domain.f: Failed to allocate grid%sfcshx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sfclhx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sfclhx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15471,&
'frame/module_domain.f: Failed to allocate grid%sfclhx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfclhx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfclhx'
grid%tail_statevars%DataName = 'SFCLHX'
grid%tail_statevars%Description = 'Accum sfc latent heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sfclhx
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sfclhx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15521,&
'frame/module_domain.f: Failed to allocate grid%sfclhx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'subshx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%subshx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15530,&
'frame/module_domain.f: Failed to allocate grid%subshx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%subshx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'subshx'
grid%tail_statevars%DataName = 'SUBSHX'
grid%tail_statevars%Description = 'Accum deep soil heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%subshx
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%subshx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15580,&
'frame/module_domain.f: Failed to allocate grid%subshx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'snopcx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%snopcx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15589,&
'frame/module_domain.f: Failed to allocate grid%snopcx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snopcx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'snopcx'
grid%tail_statevars%DataName = 'SNOPCX'
grid%tail_statevars%Description = 'Snow phase change heat flux'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%snopcx
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%snopcx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15639,&
'frame/module_domain.f: Failed to allocate grid%snopcx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'sfcuvx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%sfcuvx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15648,&
'frame/module_domain.f: Failed to allocate grid%sfcuvx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcuvx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcuvx'
grid%tail_statevars%DataName = 'SFCUVX'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%sfcuvx
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%sfcuvx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15698,&
'frame/module_domain.f: Failed to allocate grid%sfcuvx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'potevp').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%potevp(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15707,&
'frame/module_domain.f: Failed to allocate grid%potevp(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%potevp=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'potevp'
grid%tail_statevars%DataName = 'POTEVP'
grid%tail_statevars%Description = 'Accum potential evaporation'
grid%tail_statevars%Units = 'm'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%potevp
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%potevp(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15757,&
'frame/module_domain.f: Failed to allocate grid%potevp(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'potflx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%potflx(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15766,&
'frame/module_domain.f: Failed to allocate grid%potflx(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%potflx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'potflx'
grid%tail_statevars%DataName = 'POTFLX'
grid%tail_statevars%Description = 'Energy equivalent of POTEVP'
grid%tail_statevars%Units = 'W m-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%potflx
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%potflx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15816,&
'frame/module_domain.f: Failed to allocate grid%potflx(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tlmin').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%tlmin(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15825,&
'frame/module_domain.f: Failed to allocate grid%tlmin(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tlmin=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tlmin'
grid%tail_statevars%DataName = 'TLMIN'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tlmin
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tlmin(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15875,&
'frame/module_domain.f: Failed to allocate grid%tlmin(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tlmax').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%tlmax(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15884,&
'frame/module_domain.f: Failed to allocate grid%tlmax(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tlmax=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tlmax'
grid%tail_statevars%DataName = 'TLMAX'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tlmax
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tlmax(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15934,&
'frame/module_domain.f: Failed to allocate grid%tlmax(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'t02_min').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%t02_min(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15943,&
'frame/module_domain.f: Failed to allocate grid%t02_min(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t02_min=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 't02_min'
grid%tail_statevars%DataName = 'T02_MIN'
grid%tail_statevars%Description = 'Hourly Min Shelter Temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%t02_min
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%t02_min(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15993,&
'frame/module_domain.f: Failed to allocate grid%t02_min(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'t02_max').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%t02_max(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16002,&
'frame/module_domain.f: Failed to allocate grid%t02_max(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t02_max=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 't02_max'
grid%tail_statevars%DataName = 'T02_MAX'
grid%tail_statevars%Description = 'Hourly Max Shelter Temperature'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%t02_max
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%t02_max(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16052,&
'frame/module_domain.f: Failed to allocate grid%t02_max(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rh02_min').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rh02_min(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16061,&
'frame/module_domain.f: Failed to allocate grid%rh02_min(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rh02_min=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rh02_min'
grid%tail_statevars%DataName = 'RH02_MIN'
grid%tail_statevars%Description = 'Hourly Min Relative Humidity'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rh02_min
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rh02_min(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16111,&
'frame/module_domain.f: Failed to allocate grid%rh02_min(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rh02_max').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rh02_max(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16120,&
'frame/module_domain.f: Failed to allocate grid%rh02_max(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rh02_max=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rh02_max'
grid%tail_statevars%DataName = 'RH02_MAX'
grid%tail_statevars%Description = 'Hourly Max Relative Humidity'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%rh02_max
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%rh02_max(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16170,&
'frame/module_domain.f: Failed to allocate grid%rh02_max(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rlwtt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rlwtt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16179,&
'frame/module_domain.f: Failed to allocate grid%rlwtt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rlwtt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rlwtt'
grid%tail_statevars%DataName = 'RLWTT'
grid%tail_statevars%Description = 'Longwave temperature tendency'
grid%tail_statevars%Units = 'K s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rlwtt
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%rlwtt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16229,&
'frame/module_domain.f: Failed to allocate grid%rlwtt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'rswtt'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rswtt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16238,&
'frame/module_domain.f: Failed to allocate grid%rswtt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rswtt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rswtt'
grid%tail_statevars%DataName = 'RSWTT'
grid%tail_statevars%Description = 'Shortwave temperature tendency'
grid%tail_statevars%Units = 'K s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rswtt
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%rswtt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16288,&
'frame/module_domain.f: Failed to allocate grid%rswtt(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'tcucn').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tcucn(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16297,&
'frame/module_domain.f: Failed to allocate grid%tcucn(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tcucn=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tcucn'
grid%tail_statevars%DataName = 'TCUCN'
grid%tail_statevars%Description = 'Accum convec temperature tendency'
grid%tail_statevars%Units = 'K s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%tcucn
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%tcucn(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16347,&
'frame/module_domain.f: Failed to allocate grid%tcucn(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'train').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%train(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16356,&
'frame/module_domain.f: Failed to allocate grid%train(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%train=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'train'
grid%tail_statevars%DataName = 'TRAIN'
grid%tail_statevars%Description = 'Accum stratiform temp tendency'
grid%tail_statevars%Units = 'K s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XYZ'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%train
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%train(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16406,&
'frame/module_domain.f: Failed to allocate grid%train(1,1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ncfrcv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ncfrcv(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16415,&
'frame/module_domain.f: Failed to allocate grid%ncfrcv(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrcv=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ncfrcv'
grid%tail_statevars%DataName = 'NCFRCV'
grid%tail_statevars%Description = ' times convec cloud >0 between rad calls'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%ncfrcv
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ncfrcv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16465,&
'frame/module_domain.f: Failed to allocate grid%ncfrcv(1,1). ')
endif
ENDIF
IF(okay_to_alloc.AND.in_use_for_config(id,'ncfrst').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ncfrst(sm31:em31,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16474,&
'frame/module_domain.f: Failed to allocate grid%ncfrst(sm31:em31,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ncfrst=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ncfrst'
grid%tail_statevars%DataName = 'NCFRST'
grid%tail_statevars%Description = ' times stratiform cloud >0 between rad calls'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%ncfrst
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = (jde-1)
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = jms
grid%tail_statevars%em2 = jme
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( (ide-1), ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( (jde-1), jpe )
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ncfrst(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16524,&
'frame/module_domain.f: Failed to allocate grid%ncfrst(1,1). ')
endif
ENDIF
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nphs0'
grid%tail_statevars%DataName = 'NPHS0'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nphs0
grid%tail_statevars%streams(1) = 13
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nphs0=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'ncnvc0'
grid%tail_statevars%DataName = 'NCNVC0'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ncnvc0
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%ncnvc0=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nprec'
grid%tail_statevars%DataName = 'NPREC'
grid%tail_statevars%Description = ' timesteps between resetting precip bucket'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nprec
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nprec=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nclod'
grid%tail_statevars%DataName = 'NCLOD'
grid%tail_statevars%Description = ' timesteps between resetting cloud frac accum'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nclod
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nclod=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nheat'
grid%tail_statevars%DataName = 'NHEAT'
grid%tail_statevars%Description = ' timesteps between resetting latent heat accum'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nheat
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nheat=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nrdlw'
grid%tail_statevars%DataName = 'NRDLW'
grid%tail_statevars%Description = ' timesteps between resetting longwave accums'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nrdlw
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nrdlw=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nrdsw'
grid%tail_statevars%DataName = 'NRDSW'
grid%tail_statevars%Description = ' timesteps between resetting shortwave accums'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nrdsw
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nrdsw=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'nsrfc'
grid%tail_statevars%DataName = 'NSRFC'
grid%tail_statevars%Description = ' timesteps between resetting sfcflux accums'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%nsrfc
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%nsrfc=0
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'avrain'
grid%tail_statevars%DataName = 'AVRAIN'
grid%tail_statevars%Description = ' of times gridscale precip called in NHEAT steps'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%avrain
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%avrain=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'avcnvc'
grid%tail_statevars%DataName = 'AVCNVC'
grid%tail_statevars%Description = ' of times convective precip called in NHEAT steps'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%avcnvc
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%avcnvc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'aratim'
grid%tail_statevars%DataName = 'ARATIM'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%aratim
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%aratim=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'acutim'
grid%tail_statevars%DataName = 'ACUTIM'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%acutim
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%acutim=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%VarName = 'ardlw'
grid%tail_statevars%DataName = 'ARDLW'
grid%tail_statevars%Description = ' of times LW fluxes summed before resetting'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%ardlw
grid%tail_statevars%streams(1) = 33554445
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%ardlw=initial_data_value
END SUBROUTINE alloc_space_field_core_1
END MODULE module_alloc_space_1