MODULE module_alloc_space_0
CONTAINS
SUBROUTINE alloc_space_field_core_0 ( grid, id, setinitval_in , tl_in , inter_domain_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
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
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
CALL get_initial_data_value ( initial_data_value )
setinitval = setinitval_in
CALL nl_get_spec_bdy_width( 1, spec_bdy_width )
IF(in_use_for_config(id,'xlat'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xlat(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",177,&
'frame/module_domain.f: Failed to allocate grid%xlat(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xlat'
grid%tail_statevars%DataName = 'XLAT'
grid%tail_statevars%Description = 'LATITUDE, SOUTH IS NEGATIVE'
grid%tail_statevars%Units = 'degree_north'
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%xlat
grid%tail_statevars%streams(1) = 503316483
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%xlat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",227,&
'frame/module_domain.f: Failed to allocate grid%xlat(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'xlong'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xlong(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",236,&
'frame/module_domain.f: Failed to allocate grid%xlong(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xlong'
grid%tail_statevars%DataName = 'XLONG'
grid%tail_statevars%Description = 'LONGITUDE, WEST IS NEGATIVE'
grid%tail_statevars%Units = 'degree_east'
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%xlong
grid%tail_statevars%streams(1) = 503316483
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%xlong(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",286,&
'frame/module_domain.f: Failed to allocate grid%xlong(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lu_index'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lu_index(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",295,&
'frame/module_domain.f: Failed to allocate grid%lu_index(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_index=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lu_index'
grid%tail_statevars%DataName = 'LU_INDEX'
grid%tail_statevars%Description = 'LAND USE CATEGORY'
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%lu_index
grid%tail_statevars%streams(1) = 234881027
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%lu_index(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",345,&
'frame/module_domain.f: Failed to allocate grid%lu_index(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lu_mask').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lu_mask(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",354,&
'frame/module_domain.f: Failed to allocate grid%lu_mask(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lu_mask=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lu_mask'
grid%tail_statevars%DataName = 'LU_MASK'
grid%tail_statevars%Description = '0 land 1 water'
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%lu_mask
grid%tail_statevars%streams(1) = 268435458
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%lu_mask(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",404,&
'frame/module_domain.f: Failed to allocate grid%lu_mask(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'znu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%znu(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",413,&
'frame/module_domain.f: Failed to allocate grid%znu(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znu=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'znu'
grid%tail_statevars%DataName = 'ZNU'
grid%tail_statevars%Description = 'eta values on half (mass) levels'
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%znu
grid%tail_statevars%streams(1) = 33554433
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%znu(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",461,&
'frame/module_domain.f: Failed to allocate grid%znu(1). ')
endif
ENDIF
IF(in_use_for_config(id,'znw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%znw(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",470,&
'frame/module_domain.f: Failed to allocate grid%znw(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%znw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'znw'
grid%tail_statevars%DataName = 'ZNW'
grid%tail_statevars%Description = 'eta values on full (w) levels'
grid%tail_statevars%Units = ''
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%znw
grid%tail_statevars%streams(1) = 33554433
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%znw(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",518,&
'frame/module_domain.f: Failed to allocate grid%znw(1). ')
endif
ENDIF
IF(in_use_for_config(id,'zs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%zs(1:model_config_rec%num_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",527,&
'frame/module_domain.f: Failed to allocate grid%zs(1:model_config_rec%num_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zs=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zs'
grid%tail_statevars%DataName = 'ZS'
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 = '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%zs
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'soil_layers_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%zs(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",575,&
'frame/module_domain.f: Failed to allocate grid%zs(1). ')
endif
ENDIF
IF(in_use_for_config(id,'dzs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%dzs(1:model_config_rec%num_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",584,&
'frame/module_domain.f: Failed to allocate grid%dzs(1:model_config_rec%num_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzs=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dzs'
grid%tail_statevars%DataName = 'DZS'
grid%tail_statevars%Description = 'THICKNESSES 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 = '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%dzs
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'soil_layers_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dzs(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",632,&
'frame/module_domain.f: Failed to allocate grid%dzs(1). ')
endif
ENDIF
IF(in_use_for_config(id,'traj_i').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_traj)-(1)+1))) * 4
ALLOCATE(grid%traj_i(1:model_config_rec%num_traj),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",641,&
'frame/module_domain.f: Failed to allocate grid%traj_i(1:model_config_rec%num_traj). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%traj_i=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'traj_i'
grid%tail_statevars%DataName = 'TRAJ_I'
grid%tail_statevars%Description = 'grid number of trajectory '
grid%tail_statevars%Units = ''
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%traj_i
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_traj
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_traj
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_traj
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'num_traj_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%traj_i(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",689,&
'frame/module_domain.f: Failed to allocate grid%traj_i(1). ')
endif
ENDIF
IF(in_use_for_config(id,'traj_j').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_traj)-(1)+1))) * 4
ALLOCATE(grid%traj_j(1:model_config_rec%num_traj),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",698,&
'frame/module_domain.f: Failed to allocate grid%traj_j(1:model_config_rec%num_traj). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%traj_j=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'traj_j'
grid%tail_statevars%DataName = 'TRAJ_J'
grid%tail_statevars%Description = 'grid number of trajectory '
grid%tail_statevars%Units = ''
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%traj_j
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_traj
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_traj
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_traj
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'num_traj_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%traj_j(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",746,&
'frame/module_domain.f: Failed to allocate grid%traj_j(1). ')
endif
ENDIF
IF(in_use_for_config(id,'traj_k').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_traj)-(1)+1))) * 4
ALLOCATE(grid%traj_k(1:model_config_rec%num_traj),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",755,&
'frame/module_domain.f: Failed to allocate grid%traj_k(1:model_config_rec%num_traj). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%traj_k=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'traj_k'
grid%tail_statevars%DataName = 'TRAJ_K'
grid%tail_statevars%Description = 'vertical eta level of trajectory '
grid%tail_statevars%Units = ''
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%traj_k
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_traj
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_traj
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_traj
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'num_traj_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%traj_k(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",803,&
'frame/module_domain.f: Failed to allocate grid%traj_k(1). ')
endif
ENDIF
IF(in_use_for_config(id,'traj_long').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_traj)-(1)+1))) * 4
ALLOCATE(grid%traj_long(1:model_config_rec%num_traj),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",812,&
'frame/module_domain.f: Failed to allocate grid%traj_long(1:model_config_rec%num_traj). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%traj_long=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'traj_long'
grid%tail_statevars%DataName = 'TRAJ_LONG'
grid%tail_statevars%Description = 'longitude of trajectory '
grid%tail_statevars%Units = ''
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%traj_long
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_traj
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_traj
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_traj
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'num_traj_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%traj_long(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",860,&
'frame/module_domain.f: Failed to allocate grid%traj_long(1). ')
endif
ENDIF
IF(in_use_for_config(id,'traj_lat').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_traj)-(1)+1))) * 4
ALLOCATE(grid%traj_lat(1:model_config_rec%num_traj),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",869,&
'frame/module_domain.f: Failed to allocate grid%traj_lat(1:model_config_rec%num_traj). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%traj_lat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'traj_lat'
grid%tail_statevars%DataName = 'TRAJ_LAT'
grid%tail_statevars%Description = 'latitude of trajectory '
grid%tail_statevars%Units = ''
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%traj_lat
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_traj
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_traj
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_traj
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'num_traj_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%traj_lat(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",917,&
'frame/module_domain.f: Failed to allocate grid%traj_lat(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%u_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",926,&
'frame/module_domain.f: Failed to allocate grid%u_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_gc'
grid%tail_statevars%DataName = 'UU'
grid%tail_statevars%Description = 'x-wind component'
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 = 'XZ'
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%u_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
grid%tail_statevars%sm3 = jms
grid%tail_statevars%em3 = jme
grid%tail_statevars%sp1 = ips
grid%tail_statevars%ep1 = MIN( ide, ipe )
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%num_metgrid_levels
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_stag'
grid%tail_statevars%dimname2 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%u_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",976,&
'frame/module_domain.f: Failed to allocate grid%u_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%v_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",985,&
'frame/module_domain.f: Failed to allocate grid%v_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_gc'
grid%tail_statevars%DataName = 'VV'
grid%tail_statevars%Description = 'y-wind component'
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 = 'YZ'
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%v_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = jde
grid%tail_statevars%sm1 = ims
grid%tail_statevars%em1 = ime
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%num_metgrid_levels
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_metgrid_levels
grid%tail_statevars%sp3 = jps
grid%tail_statevars%ep3 = MIN( jde, jpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%subgrid_y = .FALSE.
grid%tail_statevars%dimname1 = 'west_east'
grid%tail_statevars%dimname2 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north_stag'
ENDIF
ELSE
ALLOCATE(grid%v_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1035,&
'frame/module_domain.f: Failed to allocate grid%v_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1044,&
'frame/module_domain.f: Failed to allocate grid%t_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_gc=initial_data_value
IF (.NOT.grid%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_gc'
grid%tail_statevars%DataName = 'TT'
grid%tail_statevars%Description = '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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%t_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1094,&
'frame/module_domain.f: Failed to allocate grid%t_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rh_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1103,&
'frame/module_domain.f: Failed to allocate grid%rh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rh_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rh_gc'
grid%tail_statevars%DataName = 'RH'
grid%tail_statevars%Description = 'relative humidity'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rh_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%rh_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1153,&
'frame/module_domain.f: Failed to allocate grid%rh_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ght_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ght_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1162,&
'frame/module_domain.f: Failed to allocate grid%ght_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ght_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ght_gc'
grid%tail_statevars%DataName = 'GHT'
grid%tail_statevars%Description = 'geopotential height'
grid%tail_statevars%Units = 'm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%ght_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ght_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1212,&
'frame/module_domain.f: Failed to allocate grid%ght_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'p_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%p_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1221,&
'frame/module_domain.f: Failed to allocate grid%p_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%p_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'p_gc'
grid%tail_statevars%DataName = 'PRES'
grid%tail_statevars%Description = 'pressure'
grid%tail_statevars%Units = 'Pa'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%p_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%p_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1271,&
'frame/module_domain.f: Failed to allocate grid%p_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'prho_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%prho_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1280,&
'frame/module_domain.f: Failed to allocate grid%prho_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%prho_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'prho_gc'
grid%tail_statevars%DataName = 'PTHETA'
grid%tail_statevars%Description = 'for UM data, from metgrid this is ptheta, but swapped to prho in real'
grid%tail_statevars%Units = 'Pa'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%prho_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%prho_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1330,&
'frame/module_domain.f: Failed to allocate grid%prho_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'xlat_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xlat_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1339,&
'frame/module_domain.f: Failed to allocate grid%xlat_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlat_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xlat_gc'
grid%tail_statevars%DataName = 'XLAT_M'
grid%tail_statevars%Description = 'latitude, positive north'
grid%tail_statevars%Units = 'degrees'
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%xlat_gc
grid%tail_statevars%streams(1) = 67108864
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%xlat_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1389,&
'frame/module_domain.f: Failed to allocate grid%xlat_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'xlong_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xlong_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1398,&
'frame/module_domain.f: Failed to allocate grid%xlong_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xlong_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xlong_gc'
grid%tail_statevars%DataName = 'XLONG_M'
grid%tail_statevars%Description = 'longitude, positive east'
grid%tail_statevars%Units = 'degrees'
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%xlong_gc
grid%tail_statevars%streams(1) = 67108864
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%xlong_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1448,&
'frame/module_domain.f: Failed to allocate grid%xlong_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ht_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ht_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1457,&
'frame/module_domain.f: Failed to allocate grid%ht_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ht_gc'
grid%tail_statevars%DataName = 'HGT_M'
grid%tail_statevars%Description = 'topography elevation'
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%ht_gc
grid%tail_statevars%streams(1) = 67108864
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%ht_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1507,&
'frame/module_domain.f: Failed to allocate grid%ht_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'var_sso').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%var_sso(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1516,&
'frame/module_domain.f: Failed to allocate grid%var_sso(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%var_sso=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'var_sso'
grid%tail_statevars%DataName = 'VAR_SSO'
grid%tail_statevars%Description = 'variance of subgrid-scale orography'
grid%tail_statevars%Units = 'm2'
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%var_sso
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%var_sso(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1566,&
'frame/module_domain.f: Failed to allocate grid%var_sso(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lap_hgt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lap_hgt(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1575,&
'frame/module_domain.f: Failed to allocate grid%lap_hgt(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lap_hgt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lap_hgt'
grid%tail_statevars%DataName = 'LAP_HGT'
grid%tail_statevars%Description = 'Laplacian of 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%lap_hgt
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%lap_hgt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1625,&
'frame/module_domain.f: Failed to allocate grid%lap_hgt(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tsk_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tsk_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1634,&
'frame/module_domain.f: Failed to allocate grid%tsk_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tsk_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tsk_gc'
grid%tail_statevars%DataName = 'SKINTEMP'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tsk_gc
grid%tail_statevars%streams(1) = 67108864
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%tsk_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1684,&
'frame/module_domain.f: Failed to allocate grid%tsk_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tavgsfc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tavgsfc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1693,&
'frame/module_domain.f: Failed to allocate grid%tavgsfc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tavgsfc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tavgsfc'
grid%tail_statevars%DataName = 'TAVGSFC'
grid%tail_statevars%Description = 'daily mean of surface air 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tavgsfc
grid%tail_statevars%streams(1) = 67108864
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%tavgsfc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1743,&
'frame/module_domain.f: Failed to allocate grid%tavgsfc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tmn_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tmn_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1752,&
'frame/module_domain.f: Failed to allocate grid%tmn_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tmn_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tmn_gc'
grid%tail_statevars%DataName = 'SOILTEMP'
grid%tail_statevars%Description = 'annual mean deep 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%tmn_gc
grid%tail_statevars%streams(1) = 67108864
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%tmn_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1802,&
'frame/module_domain.f: Failed to allocate grid%tmn_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pslv_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pslv_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1811,&
'frame/module_domain.f: Failed to allocate grid%pslv_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pslv_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pslv_gc'
grid%tail_statevars%DataName = 'PMSL'
grid%tail_statevars%Description = 'sea level pressure'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pslv_gc
grid%tail_statevars%streams(1) = 67108864
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%pslv_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1861,&
'frame/module_domain.f: Failed to allocate grid%pslv_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sct_dom_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sct_dom_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1870,&
'frame/module_domain.f: Failed to allocate grid%sct_dom_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sct_dom_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sct_dom_gc'
grid%tail_statevars%DataName = 'SCT_DOM'
grid%tail_statevars%Description = 'Dominant soil (top) category from GEOGRID'
grid%tail_statevars%Units = 'cat'
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%sct_dom_gc
grid%tail_statevars%streams(1) = 67108864
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%sct_dom_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1920,&
'frame/module_domain.f: Failed to allocate grid%sct_dom_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'scb_dom_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%scb_dom_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1929,&
'frame/module_domain.f: Failed to allocate grid%scb_dom_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scb_dom_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scb_dom_gc'
grid%tail_statevars%DataName = 'SCB_DOM'
grid%tail_statevars%Description = 'Dominant soil (bottom) category from GEOGRID'
grid%tail_statevars%Units = 'cat'
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%scb_dom_gc
grid%tail_statevars%streams(1) = 67108864
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%scb_dom_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1979,&
'frame/module_domain.f: Failed to allocate grid%scb_dom_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'greenfrac').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((12)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%greenfrac(sm31:em31,1:12,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",1988,&
'frame/module_domain.f: Failed to allocate grid%greenfrac(sm31:em31,1:12,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%greenfrac=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'greenfrac'
grid%tail_statevars%DataName = 'GREENFRAC'
grid%tail_statevars%Description = 'monthly greenness fraction'
grid%tail_statevars%Units = '0 - 1 fraction'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%greenfrac
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 12
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 = 12
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 = 12
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 = 'months_per_year_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%greenfrac(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2038,&
'frame/module_domain.f: Failed to allocate grid%greenfrac(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'albedo12m').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((12)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%albedo12m(sm31:em31,1:12,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2047,&
'frame/module_domain.f: Failed to allocate grid%albedo12m(sm31:em31,1:12,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albedo12m=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'albedo12m'
grid%tail_statevars%DataName = 'ALBEDO12M'
grid%tail_statevars%Description = 'background albedo'
grid%tail_statevars%Units = '0 - 1 fraction'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%albedo12m
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 12
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 = 12
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 = 12
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 = 'months_per_year_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%albedo12m(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2097,&
'frame/module_domain.f: Failed to allocate grid%albedo12m(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pd_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pd_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2106,&
'frame/module_domain.f: Failed to allocate grid%pd_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pd_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pd_gc'
grid%tail_statevars%DataName = 'PD'
grid%tail_statevars%Description = 'dry pressure'
grid%tail_statevars%Units = 'Pa'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%pd_gc
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 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%pd_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2156,&
'frame/module_domain.f: Failed to allocate grid%pd_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pdrho_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pdrho_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2165,&
'frame/module_domain.f: Failed to allocate grid%pdrho_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pdrho_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pdrho_gc'
grid%tail_statevars%DataName = 'PDRHO'
grid%tail_statevars%Description = 'dry pressure for UM data for the variables U and V'
grid%tail_statevars%Units = 'Pa'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%pdrho_gc
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 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%pdrho_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2215,&
'frame/module_domain.f: Failed to allocate grid%pdrho_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'psfc_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%psfc_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2224,&
'frame/module_domain.f: Failed to allocate grid%psfc_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psfc_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'psfc_gc'
grid%tail_statevars%DataName = 'PSFC_GC'
grid%tail_statevars%Description = 'surface pressure'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%psfc_gc
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%psfc_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2274,&
'frame/module_domain.f: Failed to allocate grid%psfc_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'intq_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%intq_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2283,&
'frame/module_domain.f: Failed to allocate grid%intq_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%intq_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'intq_gc'
grid%tail_statevars%DataName = 'INTQ'
grid%tail_statevars%Description = 'integrated mixing ratio'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%intq_gc
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%intq_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2333,&
'frame/module_domain.f: Failed to allocate grid%intq_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pdhs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pdhs(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2342,&
'frame/module_domain.f: Failed to allocate grid%pdhs(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pdhs=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pdhs'
grid%tail_statevars%DataName = 'PDHS'
grid%tail_statevars%Description = 'hydrostatic dry surface pressure'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%pdhs
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%pdhs(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2392,&
'frame/module_domain.f: Failed to allocate grid%pdhs(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qv_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2401,&
'frame/module_domain.f: Failed to allocate grid%qv_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_gc'
grid%tail_statevars%DataName = 'QV'
grid%tail_statevars%Description = 'mixing ratio'
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 = '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%qv_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qv_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2451,&
'frame/module_domain.f: Failed to allocate grid%qv_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sh_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2460,&
'frame/module_domain.f: Failed to allocate grid%sh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sh_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sh_gc'
grid%tail_statevars%DataName = 'SPECHUMD'
grid%tail_statevars%Description = 'Specific humidity'
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 = '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%sh_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%sh_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2510,&
'frame/module_domain.f: Failed to allocate grid%sh_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'icefrac_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%icefrac_gc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2519,&
'frame/module_domain.f: Failed to allocate grid%icefrac_gc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%icefrac_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'icefrac_gc'
grid%tail_statevars%DataName = 'ICEFRAC'
grid%tail_statevars%Description = 'Sea ice fraction'
grid%tail_statevars%Units = '0 - 1 fraction'
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%icefrac_gc
grid%tail_statevars%streams(1) = 67108864
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%icefrac_gc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2569,&
'frame/module_domain.f: Failed to allocate grid%icefrac_gc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qr_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qr_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2578,&
'frame/module_domain.f: Failed to allocate grid%qr_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qr_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qr_gc'
grid%tail_statevars%DataName = 'QR'
grid%tail_statevars%Description = 'rain water mixing ratio'
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 = '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%qr_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qr_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2628,&
'frame/module_domain.f: Failed to allocate grid%qr_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qc_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qc_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2637,&
'frame/module_domain.f: Failed to allocate grid%qc_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qc_gc=initial_data_value
IF (.NOT.grid%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_gc'
grid%tail_statevars%DataName = 'QC'
grid%tail_statevars%Description = 'cloud water mixing ratio'
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 = '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%qc_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qc_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2687,&
'frame/module_domain.f: Failed to allocate grid%qc_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qs_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qs_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2696,&
'frame/module_domain.f: Failed to allocate grid%qs_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qs_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qs_gc'
grid%tail_statevars%DataName = 'QS'
grid%tail_statevars%Description = 'snow mixing ratio'
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 = '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%qs_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qs_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2746,&
'frame/module_domain.f: Failed to allocate grid%qs_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qi_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qi_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2755,&
'frame/module_domain.f: Failed to allocate grid%qi_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qi_gc=initial_data_value
IF (.NOT.grid%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_gc'
grid%tail_statevars%DataName = 'QI'
grid%tail_statevars%Description = 'cloud ice mixing ratio'
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 = '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%qi_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qi_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2805,&
'frame/module_domain.f: Failed to allocate grid%qi_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qg_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qg_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2814,&
'frame/module_domain.f: Failed to allocate grid%qg_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qg_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qg_gc'
grid%tail_statevars%DataName = 'QG'
grid%tail_statevars%Description = 'graupel mixing ratio'
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 = '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%qg_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qg_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2864,&
'frame/module_domain.f: Failed to allocate grid%qg_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qh_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2873,&
'frame/module_domain.f: Failed to allocate grid%qh_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qh_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qh_gc'
grid%tail_statevars%DataName = 'QH'
grid%tail_statevars%Description = 'hail mixing ratio'
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 = '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%qh_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qh_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2923,&
'frame/module_domain.f: Failed to allocate grid%qh_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qni_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qni_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2932,&
'frame/module_domain.f: Failed to allocate grid%qni_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qni_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qni_gc'
grid%tail_statevars%DataName = 'QNI'
grid%tail_statevars%Description = 'ice no concentration'
grid%tail_statevars%Units = 'm-3'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%qni_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qni_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2982,&
'frame/module_domain.f: Failed to allocate grid%qni_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'qnr_gc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%qnr_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",2991,&
'frame/module_domain.f: Failed to allocate grid%qnr_gc(sm31:em31,1:model_config_rec%num_metgrid_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qnr_gc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qnr_gc'
grid%tail_statevars%DataName = 'QNR'
grid%tail_statevars%Description = 'rain no concentration'
grid%tail_statevars%Units = 'm-3'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%qnr_gc
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_levels
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_metgrid_levels
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_metgrid_levels
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 = 'num_metgrid_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%qnr_gc(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3041,&
'frame/module_domain.f: Failed to allocate grid%qnr_gc(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_max_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_max_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3050,&
'frame/module_domain.f: Failed to allocate grid%t_max_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_max_p=initial_data_value
IF (.NOT.grid%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_max_p'
grid%tail_statevars%DataName = 'T_MAX_P'
grid%tail_statevars%Description = 'temperature at max pressure'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%t_max_p
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%t_max_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3100,&
'frame/module_domain.f: Failed to allocate grid%t_max_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ght_max_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ght_max_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3109,&
'frame/module_domain.f: Failed to allocate grid%ght_max_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ght_max_p=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ght_max_p'
grid%tail_statevars%DataName = 'GHT_MAX_P'
grid%tail_statevars%Description = 'geopotential height at max pressure'
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%ght_max_p
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%ght_max_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3159,&
'frame/module_domain.f: Failed to allocate grid%ght_max_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'max_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%max_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3168,&
'frame/module_domain.f: Failed to allocate grid%max_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%max_p=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'max_p'
grid%tail_statevars%DataName = 'MAX_P'
grid%tail_statevars%Description = 'max pressure '
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%max_p
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%max_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3218,&
'frame/module_domain.f: Failed to allocate grid%max_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_min_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_min_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3227,&
'frame/module_domain.f: Failed to allocate grid%t_min_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_min_p=initial_data_value
IF (.NOT.grid%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_min_p'
grid%tail_statevars%DataName = 'T_MIN_P'
grid%tail_statevars%Description = 'temperature at min pressure'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%t_min_p
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%t_min_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3277,&
'frame/module_domain.f: Failed to allocate grid%t_min_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ght_min_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ght_min_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3286,&
'frame/module_domain.f: Failed to allocate grid%ght_min_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ght_min_p=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ght_min_p'
grid%tail_statevars%DataName = 'GHT_MIN_P'
grid%tail_statevars%Description = 'geopotential height at min pressure'
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%ght_min_p
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%ght_min_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3336,&
'frame/module_domain.f: Failed to allocate grid%ght_min_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'min_p'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%min_p(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3345,&
'frame/module_domain.f: Failed to allocate grid%min_p(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%min_p=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'min_p'
grid%tail_statevars%DataName = 'MIN_P'
grid%tail_statevars%Description = 'min pressure '
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%min_p
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%min_p(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3395,&
'frame/module_domain.f: Failed to allocate grid%min_p(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%u_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3404,&
'frame/module_domain.f: Failed to allocate grid%u_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_1'
grid%tail_statevars%DataName = 'U_1'
grid%tail_statevars%Description = 'x-wind component'
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 = 'X'
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%u_1
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%u_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3454,&
'frame/module_domain.f: Failed to allocate grid%u_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%u_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3463,&
'frame/module_domain.f: Failed to allocate grid%u_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_2'
grid%tail_statevars%DataName = 'U_2'
grid%tail_statevars%Description = 'x-wind component'
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 = 'X'
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%u_2
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%u_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3513,&
'frame/module_domain.f: Failed to allocate grid%u_2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_bxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3522,&
'frame/module_domain.f: Failed to allocate grid%u_bxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_bxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3530,&
'frame/module_domain.f: Failed to allocate grid%u_bxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_bys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3538,&
'frame/module_domain.f: Failed to allocate grid%u_bys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_bye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3546,&
'frame/module_domain.f: Failed to allocate grid%u_bye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_bye=initial_data_value
ELSE
ALLOCATE(grid%u_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3553,&
'frame/module_domain.f: Failed to allocate grid%u_bxs(1,1,1). ')
endif
ALLOCATE(grid%u_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3558,&
'frame/module_domain.f: Failed to allocate grid%u_bxe(1,1,1). ')
endif
ALLOCATE(grid%u_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3563,&
'frame/module_domain.f: Failed to allocate grid%u_bys(1,1,1). ')
endif
ALLOCATE(grid%u_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3568,&
'frame/module_domain.f: Failed to allocate grid%u_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_btxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3577,&
'frame/module_domain.f: Failed to allocate grid%u_btxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_btxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3585,&
'frame/module_domain.f: Failed to allocate grid%u_btxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_btys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3593,&
'frame/module_domain.f: Failed to allocate grid%u_btys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%u_btye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3601,&
'frame/module_domain.f: Failed to allocate grid%u_btye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_btye=initial_data_value
ELSE
ALLOCATE(grid%u_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3608,&
'frame/module_domain.f: Failed to allocate grid%u_btxs(1,1,1). ')
endif
ALLOCATE(grid%u_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3613,&
'frame/module_domain.f: Failed to allocate grid%u_btxe(1,1,1). ')
endif
ALLOCATE(grid%u_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3618,&
'frame/module_domain.f: Failed to allocate grid%u_btys(1,1,1). ')
endif
ALLOCATE(grid%u_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3623,&
'frame/module_domain.f: Failed to allocate grid%u_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ru').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ru(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3632,&
'frame/module_domain.f: Failed to allocate grid%ru(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ru=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ru'
grid%tail_statevars%DataName = 'MU_U'
grid%tail_statevars%Description = 'mu-coupled u'
grid%tail_statevars%Units = 'Pa m s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'X'
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%ru
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ru(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3682,&
'frame/module_domain.f: Failed to allocate grid%ru(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ru_m').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ru_m(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3691,&
'frame/module_domain.f: Failed to allocate grid%ru_m(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ru_m=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ru_m'
grid%tail_statevars%DataName = 'RU_M'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'X'
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%ru_m
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ru_m(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3741,&
'frame/module_domain.f: Failed to allocate grid%ru_m(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ru_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ru_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3750,&
'frame/module_domain.f: Failed to allocate grid%ru_tend(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ru_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ru_tend'
grid%tail_statevars%DataName = 'RU_TEND'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'X'
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%ru_tend
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ru_tend(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3800,&
'frame/module_domain.f: Failed to allocate grid%ru_tend(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_save').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%u_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3809,&
'frame/module_domain.f: Failed to allocate grid%u_save(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_save=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_save'
grid%tail_statevars%DataName = 'U_SAVE'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'X'
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%u_save
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%u_save(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3859,&
'frame/module_domain.f: Failed to allocate grid%u_save(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'z_force').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%z_force(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3868,&
'frame/module_domain.f: Failed to allocate grid%z_force(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_force=initial_data_value
IF (.NOT.grid%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_force'
grid%tail_statevars%DataName = 'Z_FORCE'
grid%tail_statevars%Description = 'height of forcing input'
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%z_force
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%z_force(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3916,&
'frame/module_domain.f: Failed to allocate grid%z_force(1). ')
endif
ENDIF
IF(in_use_for_config(id,'z_force_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%z_force_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3925,&
'frame/module_domain.f: Failed to allocate grid%z_force_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_force_tend=initial_data_value
IF (.NOT.grid%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_force_tend'
grid%tail_statevars%DataName = 'Z_FORCE_TEND'
grid%tail_statevars%Description = 'tendency height of forcing input'
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%z_force_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%z_force_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3973,&
'frame/module_domain.f: Failed to allocate grid%z_force_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_g').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_g(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",3982,&
'frame/module_domain.f: Failed to allocate grid%u_g(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_g=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_g'
grid%tail_statevars%DataName = 'U_G'
grid%tail_statevars%Description = 'x-direction geostrophic wind'
grid%tail_statevars%Units = 'm s-1'
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%u_g
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_g(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4030,&
'frame/module_domain.f: Failed to allocate grid%u_g(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_g_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_g_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4039,&
'frame/module_domain.f: Failed to allocate grid%u_g_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_g_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_g_tend'
grid%tail_statevars%DataName = 'U_G_TEND'
grid%tail_statevars%Description = 'tendency x-direction geostrophic wind'
grid%tail_statevars%Units = 'm s-1'
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%u_g_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_g_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4087,&
'frame/module_domain.f: Failed to allocate grid%u_g_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%v_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4096,&
'frame/module_domain.f: Failed to allocate grid%v_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_1'
grid%tail_statevars%DataName = 'V_1'
grid%tail_statevars%Description = 'y-wind component'
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 = 'Y'
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%v_1
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 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = jde
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%v_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4146,&
'frame/module_domain.f: Failed to allocate grid%v_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%v_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4155,&
'frame/module_domain.f: Failed to allocate grid%v_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_2'
grid%tail_statevars%DataName = 'V_2'
grid%tail_statevars%Description = 'y-wind component'
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 = 'Y'
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%v_2
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 = kds
grid%tail_statevars%ed2 = (kde-1)
grid%tail_statevars%sd3 = jds
grid%tail_statevars%ed3 = jde
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%v_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4205,&
'frame/module_domain.f: Failed to allocate grid%v_2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_bxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4214,&
'frame/module_domain.f: Failed to allocate grid%v_bxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_bxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4222,&
'frame/module_domain.f: Failed to allocate grid%v_bxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_bys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4230,&
'frame/module_domain.f: Failed to allocate grid%v_bys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_bye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4238,&
'frame/module_domain.f: Failed to allocate grid%v_bye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_bye=initial_data_value
ELSE
ALLOCATE(grid%v_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4245,&
'frame/module_domain.f: Failed to allocate grid%v_bxs(1,1,1). ')
endif
ALLOCATE(grid%v_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4250,&
'frame/module_domain.f: Failed to allocate grid%v_bxe(1,1,1). ')
endif
ALLOCATE(grid%v_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4255,&
'frame/module_domain.f: Failed to allocate grid%v_bys(1,1,1). ')
endif
ALLOCATE(grid%v_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4260,&
'frame/module_domain.f: Failed to allocate grid%v_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_btxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4269,&
'frame/module_domain.f: Failed to allocate grid%v_btxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_btxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4277,&
'frame/module_domain.f: Failed to allocate grid%v_btxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_btys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4285,&
'frame/module_domain.f: Failed to allocate grid%v_btys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%v_btye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4293,&
'frame/module_domain.f: Failed to allocate grid%v_btye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_btye=initial_data_value
ELSE
ALLOCATE(grid%v_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4300,&
'frame/module_domain.f: Failed to allocate grid%v_btxs(1,1,1). ')
endif
ALLOCATE(grid%v_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4305,&
'frame/module_domain.f: Failed to allocate grid%v_btxe(1,1,1). ')
endif
ALLOCATE(grid%v_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4310,&
'frame/module_domain.f: Failed to allocate grid%v_btys(1,1,1). ')
endif
ALLOCATE(grid%v_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4315,&
'frame/module_domain.f: Failed to allocate grid%v_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rv(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4324,&
'frame/module_domain.f: Failed to allocate grid%rv(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rv'
grid%tail_statevars%DataName = 'MU_V'
grid%tail_statevars%Description = 'mu-coupled v'
grid%tail_statevars%Units = 'Pa m s-1'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Y'
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%rv
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
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%rv(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4374,&
'frame/module_domain.f: Failed to allocate grid%rv(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rv_m').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rv_m(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4383,&
'frame/module_domain.f: Failed to allocate grid%rv_m(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rv_m=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rv_m'
grid%tail_statevars%DataName = 'RV_M'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Y'
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%rv_m
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
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%rv_m(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4433,&
'frame/module_domain.f: Failed to allocate grid%rv_m(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rv_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rv_tend(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4442,&
'frame/module_domain.f: Failed to allocate grid%rv_tend(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rv_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rv_tend'
grid%tail_statevars%DataName = 'RV_TEND'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Y'
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%rv_tend
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
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%rv_tend(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4492,&
'frame/module_domain.f: Failed to allocate grid%rv_tend(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_save').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%v_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4501,&
'frame/module_domain.f: Failed to allocate grid%v_save(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_save=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_save'
grid%tail_statevars%DataName = 'V_SAVE'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Y'
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%v_save
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
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%v_save(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4551,&
'frame/module_domain.f: Failed to allocate grid%v_save(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_g').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_g(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4560,&
'frame/module_domain.f: Failed to allocate grid%v_g(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_g=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_g'
grid%tail_statevars%DataName = 'V_G'
grid%tail_statevars%Description = 'y-direction geostrophic wind'
grid%tail_statevars%Units = 'm s-1'
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%v_g
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_g(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4608,&
'frame/module_domain.f: Failed to allocate grid%v_g(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_g_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_g_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4617,&
'frame/module_domain.f: Failed to allocate grid%v_g_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_g_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_g_tend'
grid%tail_statevars%DataName = 'V_G_TEND'
grid%tail_statevars%Description = 'tendency y-direction geostrophic wind'
grid%tail_statevars%Units = 'm s-1'
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%v_g_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_g_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4665,&
'frame/module_domain.f: Failed to allocate grid%v_g_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'w_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%w_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4674,&
'frame/module_domain.f: Failed to allocate grid%w_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_1=initial_data_value
IF (.NOT.grid%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_1'
grid%tail_statevars%DataName = 'W_1'
grid%tail_statevars%Description = 'z-wind component'
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 = 'Z'
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%w_1
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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%w_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4724,&
'frame/module_domain.f: Failed to allocate grid%w_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'w_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%w_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4733,&
'frame/module_domain.f: Failed to allocate grid%w_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_2=initial_data_value
IF (.NOT.grid%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_2'
grid%tail_statevars%DataName = 'W_2'
grid%tail_statevars%Description = 'z-wind component'
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 = 'Z'
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%w_2
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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%w_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4783,&
'frame/module_domain.f: Failed to allocate grid%w_2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_bxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4792,&
'frame/module_domain.f: Failed to allocate grid%w_bxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_bxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4800,&
'frame/module_domain.f: Failed to allocate grid%w_bxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_bys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4808,&
'frame/module_domain.f: Failed to allocate grid%w_bys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_bye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4816,&
'frame/module_domain.f: Failed to allocate grid%w_bye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_bye=initial_data_value
ELSE
ALLOCATE(grid%w_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4823,&
'frame/module_domain.f: Failed to allocate grid%w_bxs(1,1,1). ')
endif
ALLOCATE(grid%w_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4828,&
'frame/module_domain.f: Failed to allocate grid%w_bxe(1,1,1). ')
endif
ALLOCATE(grid%w_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4833,&
'frame/module_domain.f: Failed to allocate grid%w_bys(1,1,1). ')
endif
ALLOCATE(grid%w_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4838,&
'frame/module_domain.f: Failed to allocate grid%w_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_btxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4847,&
'frame/module_domain.f: Failed to allocate grid%w_btxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_btxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4855,&
'frame/module_domain.f: Failed to allocate grid%w_btxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_btys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4863,&
'frame/module_domain.f: Failed to allocate grid%w_btys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%w_btye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4871,&
'frame/module_domain.f: Failed to allocate grid%w_btye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_btye=initial_data_value
ELSE
ALLOCATE(grid%w_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4878,&
'frame/module_domain.f: Failed to allocate grid%w_btxs(1,1,1). ')
endif
ALLOCATE(grid%w_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4883,&
'frame/module_domain.f: Failed to allocate grid%w_btxe(1,1,1). ')
endif
ALLOCATE(grid%w_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4888,&
'frame/module_domain.f: Failed to allocate grid%w_btys(1,1,1). ')
endif
ALLOCATE(grid%w_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4893,&
'frame/module_domain.f: Failed to allocate grid%w_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ww').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ww(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4902,&
'frame/module_domain.f: Failed to allocate grid%ww(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ww=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ww'
grid%tail_statevars%DataName = 'WW'
grid%tail_statevars%Description = 'mu-coupled eta-dot'
grid%tail_statevars%Units = 'Pa s-1'
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%ww
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ww(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4952,&
'frame/module_domain.f: Failed to allocate grid%ww(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",4961,&
'frame/module_domain.f: Failed to allocate grid%rw(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rw'
grid%tail_statevars%DataName = 'RW'
grid%tail_statevars%Description = 'mu-coupled w'
grid%tail_statevars%Units = 'Pa m s-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rw
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%rw(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5011,&
'frame/module_domain.f: Failed to allocate grid%rw(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ww_m').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ww_m(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5020,&
'frame/module_domain.f: Failed to allocate grid%ww_m(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ww_m=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ww_m'
grid%tail_statevars%DataName = 'WW_M'
grid%tail_statevars%Description = 'time-avg mu-coupled eta-dot'
grid%tail_statevars%Units = 'Pa s-1'
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%ww_m
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ww_m(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5070,&
'frame/module_domain.f: Failed to allocate grid%ww_m(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'w_subs').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%w_subs(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5079,&
'frame/module_domain.f: Failed to allocate grid%w_subs(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_subs=initial_data_value
IF (.NOT.grid%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_subs'
grid%tail_statevars%DataName = 'W_SUBS'
grid%tail_statevars%Description = 'large-scale vertical velocity'
grid%tail_statevars%Units = 'm s-1'
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%w_subs
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%w_subs(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5127,&
'frame/module_domain.f: Failed to allocate grid%w_subs(1). ')
endif
ENDIF
IF(in_use_for_config(id,'w_subs_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%w_subs_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5136,&
'frame/module_domain.f: Failed to allocate grid%w_subs_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%w_subs_tend=initial_data_value
IF (.NOT.grid%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_subs_tend'
grid%tail_statevars%DataName = 'W_SUBS_TEND'
grid%tail_statevars%Description = 'tendency large-scale vertical velocity'
grid%tail_statevars%Units = 'm s-1'
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%w_subs_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%w_subs_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5184,&
'frame/module_domain.f: Failed to allocate grid%w_subs_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ph_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ph_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5193,&
'frame/module_domain.f: Failed to allocate grid%ph_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ph_1'
grid%tail_statevars%DataName = 'PH_1'
grid%tail_statevars%Description = 'perturbation geopotential'
grid%tail_statevars%Units = 'm2 s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%ph_1
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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ph_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5243,&
'frame/module_domain.f: Failed to allocate grid%ph_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ph_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ph_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5252,&
'frame/module_domain.f: Failed to allocate grid%ph_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ph_2'
grid%tail_statevars%DataName = 'PH_2'
grid%tail_statevars%Description = 'perturbation geopotential'
grid%tail_statevars%Units = 'm2 s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Z'
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%ph_2
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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ph_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5302,&
'frame/module_domain.f: Failed to allocate grid%ph_2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_bxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5311,&
'frame/module_domain.f: Failed to allocate grid%ph_bxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_bxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5319,&
'frame/module_domain.f: Failed to allocate grid%ph_bxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_bys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5327,&
'frame/module_domain.f: Failed to allocate grid%ph_bys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_bye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5335,&
'frame/module_domain.f: Failed to allocate grid%ph_bye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_bye=initial_data_value
ELSE
ALLOCATE(grid%ph_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5342,&
'frame/module_domain.f: Failed to allocate grid%ph_bxs(1,1,1). ')
endif
ALLOCATE(grid%ph_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5347,&
'frame/module_domain.f: Failed to allocate grid%ph_bxe(1,1,1). ')
endif
ALLOCATE(grid%ph_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5352,&
'frame/module_domain.f: Failed to allocate grid%ph_bys(1,1,1). ')
endif
ALLOCATE(grid%ph_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5357,&
'frame/module_domain.f: Failed to allocate grid%ph_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_btxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5366,&
'frame/module_domain.f: Failed to allocate grid%ph_btxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_btxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5374,&
'frame/module_domain.f: Failed to allocate grid%ph_btxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_btys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5382,&
'frame/module_domain.f: Failed to allocate grid%ph_btys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%ph_btye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5390,&
'frame/module_domain.f: Failed to allocate grid%ph_btye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph_btye=initial_data_value
ELSE
ALLOCATE(grid%ph_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5397,&
'frame/module_domain.f: Failed to allocate grid%ph_btxs(1,1,1). ')
endif
ALLOCATE(grid%ph_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5402,&
'frame/module_domain.f: Failed to allocate grid%ph_btxe(1,1,1). ')
endif
ALLOCATE(grid%ph_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5407,&
'frame/module_domain.f: Failed to allocate grid%ph_btys(1,1,1). ')
endif
ALLOCATE(grid%ph_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5412,&
'frame/module_domain.f: Failed to allocate grid%ph_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'phb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5421,&
'frame/module_domain.f: Failed to allocate grid%phb(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%phb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'phb'
grid%tail_statevars%DataName = 'PHB'
grid%tail_statevars%Description = 'base-state geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%phb
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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%phb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5471,&
'frame/module_domain.f: Failed to allocate grid%phb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'phb_fine').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%phb_fine(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5480,&
'frame/module_domain.f: Failed to allocate grid%phb_fine(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%phb_fine=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'phb_fine'
grid%tail_statevars%DataName = 'PHB_FINE'
grid%tail_statevars%Description = 'for nesting, temp holding interpolated coarse grid phb'
grid%tail_statevars%Units = 'm2 s-2'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%phb_fine
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%phb_fine(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5530,&
'frame/module_domain.f: Failed to allocate grid%phb_fine(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ph0').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ph0(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5539,&
'frame/module_domain.f: Failed to allocate grid%ph0(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ph0=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ph0'
grid%tail_statevars%DataName = 'PH0'
grid%tail_statevars%Description = 'initial geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%ph0
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%ph0(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5589,&
'frame/module_domain.f: Failed to allocate grid%ph0(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'php').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%php(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5598,&
'frame/module_domain.f: Failed to allocate grid%php(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%php=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'php'
grid%tail_statevars%DataName = 'PHP'
grid%tail_statevars%Description = 'geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%php
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%php(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5648,&
'frame/module_domain.f: Failed to allocate grid%php(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5657,&
'frame/module_domain.f: Failed to allocate grid%t_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_1=initial_data_value
IF (.NOT.grid%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_1'
grid%tail_statevars%DataName = 'T_1'
grid%tail_statevars%Description = 'perturbation potential temperature (theta-t0)'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_1
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 = 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%t_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5707,&
'frame/module_domain.f: Failed to allocate grid%t_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5716,&
'frame/module_domain.f: Failed to allocate grid%t_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_2=initial_data_value
IF (.NOT.grid%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_2'
grid%tail_statevars%DataName = 'T_2'
grid%tail_statevars%Description = 'perturbation potential temperature (theta-t0)'
grid%tail_statevars%Units = 'K'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_2
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 = 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%t_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5766,&
'frame/module_domain.f: Failed to allocate grid%t_2(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_bxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5775,&
'frame/module_domain.f: Failed to allocate grid%t_bxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_bxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5783,&
'frame/module_domain.f: Failed to allocate grid%t_bxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_bys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5791,&
'frame/module_domain.f: Failed to allocate grid%t_bys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_bye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5799,&
'frame/module_domain.f: Failed to allocate grid%t_bye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_bye=initial_data_value
ELSE
ALLOCATE(grid%t_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5806,&
'frame/module_domain.f: Failed to allocate grid%t_bxs(1,1,1). ')
endif
ALLOCATE(grid%t_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5811,&
'frame/module_domain.f: Failed to allocate grid%t_bxe(1,1,1). ')
endif
ALLOCATE(grid%t_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5816,&
'frame/module_domain.f: Failed to allocate grid%t_bys(1,1,1). ')
endif
ALLOCATE(grid%t_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5821,&
'frame/module_domain.f: Failed to allocate grid%t_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_btxs(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5830,&
'frame/module_domain.f: Failed to allocate grid%t_btxs(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_btxe(sm33:em33,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5838,&
'frame/module_domain.f: Failed to allocate grid%t_btxe(sm33:em33,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_btys(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5846,&
'frame/module_domain.f: Failed to allocate grid%t_btys(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%t_btye(sm31:em31,sm32:em32,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5854,&
'frame/module_domain.f: Failed to allocate grid%t_btye(sm31:em31,sm32:em32,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_btye=initial_data_value
ELSE
ALLOCATE(grid%t_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5861,&
'frame/module_domain.f: Failed to allocate grid%t_btxs(1,1,1). ')
endif
ALLOCATE(grid%t_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5866,&
'frame/module_domain.f: Failed to allocate grid%t_btxe(1,1,1). ')
endif
ALLOCATE(grid%t_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5871,&
'frame/module_domain.f: Failed to allocate grid%t_btys(1,1,1). ')
endif
ALLOCATE(grid%t_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5876,&
'frame/module_domain.f: Failed to allocate grid%t_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_init').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_init(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5885,&
'frame/module_domain.f: Failed to allocate grid%t_init(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_init=initial_data_value
IF (.NOT.grid%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_init'
grid%tail_statevars%DataName = 'T_INIT'
grid%tail_statevars%Description = 'initial potential temperature'
grid%tail_statevars%Units = 'K'
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%t_init
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 = 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%t_init(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5935,&
'frame/module_domain.f: Failed to allocate grid%t_init(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_save').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_save(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5944,&
'frame/module_domain.f: Failed to allocate grid%t_save(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_save=initial_data_value
IF (.NOT.grid%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_save'
grid%tail_statevars%DataName = 'T_SAVE'
grid%tail_statevars%Description = '-'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%t_save
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%t_save(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",5994,&
'frame/module_domain.f: Failed to allocate grid%t_save(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_upstream_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_upstream_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6003,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_upstream_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_upstream_x'
grid%tail_statevars%DataName = 'TH_UPSTREAM_X'
grid%tail_statevars%Description = 'upstream theta x-advection'
grid%tail_statevars%Units = 'K s-1'
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%th_upstream_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_upstream_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6051,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_upstream_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_upstream_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6060,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_upstream_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_upstream_x_tend'
grid%tail_statevars%DataName = 'TH_UPSTREAM_X_TEND'
grid%tail_statevars%Description = 'tendency upstream theta x-advection'
grid%tail_statevars%Units = 'K s-2'
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%th_upstream_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_upstream_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6108,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_upstream_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_upstream_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6117,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_upstream_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_upstream_y'
grid%tail_statevars%DataName = 'TH_UPSTREAM_Y'
grid%tail_statevars%Description = 'upstream theta y-advection'
grid%tail_statevars%Units = 'K s-1'
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%th_upstream_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_upstream_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6165,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_upstream_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_upstream_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6174,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_upstream_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_upstream_y_tend'
grid%tail_statevars%DataName = 'TH_UPSTREAM_Y_TEND'
grid%tail_statevars%Description = 'tendency upstream theta y-advection'
grid%tail_statevars%Units = 'K s-2'
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%th_upstream_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_upstream_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6222,&
'frame/module_domain.f: Failed to allocate grid%th_upstream_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_upstream_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_upstream_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6231,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_upstream_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_upstream_x'
grid%tail_statevars%DataName = 'QV_UPSTREAM_X'
grid%tail_statevars%Description = 'upstream qv x-advection'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%qv_upstream_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_upstream_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6279,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_upstream_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_upstream_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6288,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_upstream_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_upstream_x_tend'
grid%tail_statevars%DataName = 'QV_UPSTREAM_X_TEND'
grid%tail_statevars%Description = 'tendency upstream qv x-advection'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%qv_upstream_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_upstream_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6336,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_upstream_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_upstream_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6345,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_upstream_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_upstream_y'
grid%tail_statevars%DataName = 'QV_UPSTREAM_Y'
grid%tail_statevars%Description = 'upstream qv y-advection'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%qv_upstream_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_upstream_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6393,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_upstream_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_upstream_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6402,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_upstream_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_upstream_y_tend'
grid%tail_statevars%DataName = 'QV_UPSTREAM_Y_TEND'
grid%tail_statevars%Description = 'tendency upstream qv y-advection'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%qv_upstream_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_upstream_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6450,&
'frame/module_domain.f: Failed to allocate grid%qv_upstream_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_upstream_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_upstream_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6459,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_upstream_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_upstream_x'
grid%tail_statevars%DataName = 'QL_UPSTREAM_X'
grid%tail_statevars%Description = 'upstream ql x-advection'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%ql_upstream_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_upstream_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6507,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_upstream_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_upstream_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6516,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_upstream_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_upstream_x_tend'
grid%tail_statevars%DataName = 'QL_UPSTREAM_X_TEND'
grid%tail_statevars%Description = 'tendency upstream ql x-advection'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%ql_upstream_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_upstream_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6564,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_upstream_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_upstream_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6573,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_upstream_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_upstream_y'
grid%tail_statevars%DataName = 'QL_UPSTREAM_Y'
grid%tail_statevars%Description = 'upstream ql y-advection'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%ql_upstream_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_upstream_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6621,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_upstream_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_upstream_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6630,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_upstream_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_upstream_y_tend'
grid%tail_statevars%DataName = 'QL_UPSTREAM_Y_TEND'
grid%tail_statevars%Description = 'tendency upstream ql y-advection'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%ql_upstream_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_upstream_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6678,&
'frame/module_domain.f: Failed to allocate grid%ql_upstream_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_upstream_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_upstream_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6687,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_upstream_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_upstream_x'
grid%tail_statevars%DataName = 'U_UPSTREAM_X'
grid%tail_statevars%Description = 'upstream u x-advection'
grid%tail_statevars%Units = 'm s-2'
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%u_upstream_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_upstream_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6735,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_upstream_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_upstream_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6744,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_upstream_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_upstream_x_tend'
grid%tail_statevars%DataName = 'U_UPSTREAM_X_TEND'
grid%tail_statevars%Description = 'tendency upstream u x-advection'
grid%tail_statevars%Units = 'm s-3'
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%u_upstream_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_upstream_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6792,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_upstream_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_upstream_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6801,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_upstream_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_upstream_y'
grid%tail_statevars%DataName = 'U_UPSTREAM_Y'
grid%tail_statevars%Description = 'upstream u y-advection'
grid%tail_statevars%Units = 'm s-2'
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%u_upstream_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_upstream_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6849,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_upstream_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_upstream_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6858,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_upstream_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_upstream_y_tend'
grid%tail_statevars%DataName = 'U_UPSTREAM_Y_TEND'
grid%tail_statevars%Description = 'tendency upstream u y-advection'
grid%tail_statevars%Units = 'm s-3'
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%u_upstream_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_upstream_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6906,&
'frame/module_domain.f: Failed to allocate grid%u_upstream_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_upstream_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_upstream_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6915,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_upstream_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_upstream_x'
grid%tail_statevars%DataName = 'V_UPSTREAM_X'
grid%tail_statevars%Description = 'upstream v x-advection'
grid%tail_statevars%Units = 'm s-2'
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%v_upstream_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_upstream_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6963,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_upstream_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_upstream_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",6972,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_upstream_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_upstream_x_tend'
grid%tail_statevars%DataName = 'V_UPSTREAM_X_TEND'
grid%tail_statevars%Description = 'tendency upstream v x-advection'
grid%tail_statevars%Units = 'm s-3'
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%v_upstream_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_upstream_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7020,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_upstream_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_upstream_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7029,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_upstream_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_upstream_y'
grid%tail_statevars%DataName = 'V_UPSTREAM_Y'
grid%tail_statevars%Description = 'upstream v y-advection'
grid%tail_statevars%Units = 'm s-2'
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%v_upstream_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_upstream_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7077,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_upstream_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_upstream_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7086,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_upstream_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_upstream_y_tend'
grid%tail_statevars%DataName = 'V_UPSTREAM_Y_TEND'
grid%tail_statevars%Description = 'tendency upstream v y-advection'
grid%tail_statevars%Units = 'm s-3'
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%v_upstream_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_upstream_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7134,&
'frame/module_domain.f: Failed to allocate grid%v_upstream_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_t_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_t_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7143,&
'frame/module_domain.f: Failed to allocate grid%th_t_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_t_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_t_tend'
grid%tail_statevars%DataName = 'TH_T_TEND'
grid%tail_statevars%Description = 'tendency theta time'
grid%tail_statevars%Units = 'K s-2'
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%th_t_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_t_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7191,&
'frame/module_domain.f: Failed to allocate grid%th_t_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_t_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_t_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7200,&
'frame/module_domain.f: Failed to allocate grid%qv_t_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_t_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_t_tend'
grid%tail_statevars%DataName = 'QV_T_TEND'
grid%tail_statevars%Description = 'tendency qv time'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%qv_t_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_t_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7248,&
'frame/module_domain.f: Failed to allocate grid%qv_t_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7257,&
'frame/module_domain.f: Failed to allocate grid%th_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_largescale'
grid%tail_statevars%DataName = 'TH_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale theta'
grid%tail_statevars%Units = 'K'
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%th_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7305,&
'frame/module_domain.f: Failed to allocate grid%th_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'th_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%th_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7314,&
'frame/module_domain.f: Failed to allocate grid%th_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th_largescale_tend'
grid%tail_statevars%DataName = 'TH_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale theta'
grid%tail_statevars%Units = 'K s-1'
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%th_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%th_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7362,&
'frame/module_domain.f: Failed to allocate grid%th_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7371,&
'frame/module_domain.f: Failed to allocate grid%qv_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_largescale'
grid%tail_statevars%DataName = 'QV_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale qv'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%qv_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7419,&
'frame/module_domain.f: Failed to allocate grid%qv_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'qv_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%qv_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7428,&
'frame/module_domain.f: Failed to allocate grid%qv_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%qv_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'qv_largescale_tend'
grid%tail_statevars%DataName = 'QV_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale qv'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%qv_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%qv_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7476,&
'frame/module_domain.f: Failed to allocate grid%qv_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7485,&
'frame/module_domain.f: Failed to allocate grid%ql_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_largescale'
grid%tail_statevars%DataName = 'QL_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale ql'
grid%tail_statevars%Units = 'kg kg-1 s-1'
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%ql_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7533,&
'frame/module_domain.f: Failed to allocate grid%ql_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'ql_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%ql_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7542,&
'frame/module_domain.f: Failed to allocate grid%ql_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ql_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ql_largescale_tend'
grid%tail_statevars%DataName = 'QL_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale ql'
grid%tail_statevars%Units = 'kg kg-1 s-2'
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%ql_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ql_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7590,&
'frame/module_domain.f: Failed to allocate grid%ql_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7599,&
'frame/module_domain.f: Failed to allocate grid%u_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_largescale'
grid%tail_statevars%DataName = 'U_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale u'
grid%tail_statevars%Units = 'm s-2'
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%u_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7647,&
'frame/module_domain.f: Failed to allocate grid%u_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'u_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%u_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7656,&
'frame/module_domain.f: Failed to allocate grid%u_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u_largescale_tend'
grid%tail_statevars%DataName = 'U_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale u'
grid%tail_statevars%Units = 'm s-3'
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%u_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%u_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7704,&
'frame/module_domain.f: Failed to allocate grid%u_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7713,&
'frame/module_domain.f: Failed to allocate grid%v_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_largescale'
grid%tail_statevars%DataName = 'V_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale v'
grid%tail_statevars%Units = 'm s-2'
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%v_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7761,&
'frame/module_domain.f: Failed to allocate grid%v_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'v_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%v_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7770,&
'frame/module_domain.f: Failed to allocate grid%v_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v_largescale_tend'
grid%tail_statevars%DataName = 'V_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale v'
grid%tail_statevars%Units = 'm s-3'
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%v_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%v_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7818,&
'frame/module_domain.f: Failed to allocate grid%v_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_largescale').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_largescale(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7827,&
'frame/module_domain.f: Failed to allocate grid%tau_largescale(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_largescale=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_largescale'
grid%tail_statevars%DataName = 'TAU_LARGESCALE'
grid%tail_statevars%Description = 'SCM largescale timescale'
grid%tail_statevars%Units = 's'
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%tau_largescale
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_largescale(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7875,&
'frame/module_domain.f: Failed to allocate grid%tau_largescale(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_largescale_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_largescale_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7884,&
'frame/module_domain.f: Failed to allocate grid%tau_largescale_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_largescale_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_largescale_tend'
grid%tail_statevars%DataName = 'TAU_LARGESCALE_TEND'
grid%tail_statevars%Description = 'SCM tendency largescale timescale'
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%tau_largescale_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_largescale_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7932,&
'frame/module_domain.f: Failed to allocate grid%tau_largescale_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_x').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_x(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7941,&
'frame/module_domain.f: Failed to allocate grid%tau_x(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_x=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_x'
grid%tail_statevars%DataName = 'TAU_X'
grid%tail_statevars%Description = 'X-direction advective timescale'
grid%tail_statevars%Units = 's'
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%tau_x
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_x(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7989,&
'frame/module_domain.f: Failed to allocate grid%tau_x(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_x_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_x_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",7998,&
'frame/module_domain.f: Failed to allocate grid%tau_x_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_x_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_x_tend'
grid%tail_statevars%DataName = 'TAU_X_TEND'
grid%tail_statevars%Description = 'tendency X-direction advective timescale'
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%tau_x_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_x_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8046,&
'frame/module_domain.f: Failed to allocate grid%tau_x_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_y').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_y(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8055,&
'frame/module_domain.f: Failed to allocate grid%tau_y(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_y=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_y'
grid%tail_statevars%DataName = 'TAU_Y'
grid%tail_statevars%Description = 'Y-direction advective timescale'
grid%tail_statevars%Units = 's'
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%tau_y
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_y(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8103,&
'frame/module_domain.f: Failed to allocate grid%tau_y(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_y_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_y_tend(1:model_config_rec%num_force_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8112,&
'frame/module_domain.f: Failed to allocate grid%tau_y_tend(1:model_config_rec%num_force_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_y_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_y_tend'
grid%tail_statevars%DataName = 'TAU_Y_TEND'
grid%tail_statevars%Description = 'tendency Y-direction advective timescale'
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%tau_y_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_y_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8160,&
'frame/module_domain.f: Failed to allocate grid%tau_y_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_soil_forcing_val').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%t_soil_forcing_val(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8169,&
'frame/module_domain.f: Failed to allocate grid%t_soil_forcing_val(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_soil_forcing_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%VarName = 't_soil_forcing_val'
grid%tail_statevars%DataName = 'T_SOIL_FORCING_VAL'
grid%tail_statevars%Description = 'Soil temp value for SCM forcing'
grid%tail_statevars%Units = 'K'
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%t_soil_forcing_val
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%t_soil_forcing_val(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8217,&
'frame/module_domain.f: Failed to allocate grid%t_soil_forcing_val(1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_soil_forcing_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%t_soil_forcing_tend(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8226,&
'frame/module_domain.f: Failed to allocate grid%t_soil_forcing_tend(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_soil_forcing_tend=initial_data_value
IF (.NOT.grid%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_soil_forcing_tend'
grid%tail_statevars%DataName = 'T_SOIL_FORCING_TEND'
grid%tail_statevars%Description = 'tendency soil temp for SCM forcing'
grid%tail_statevars%Units = 'K s-1'
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%t_soil_forcing_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%t_soil_forcing_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8274,&
'frame/module_domain.f: Failed to allocate grid%t_soil_forcing_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'q_soil_forcing_val').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%q_soil_forcing_val(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8283,&
'frame/module_domain.f: Failed to allocate grid%q_soil_forcing_val(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q_soil_forcing_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%VarName = 'q_soil_forcing_val'
grid%tail_statevars%DataName = 'Q_SOIL_FORCING_VAL'
grid%tail_statevars%Description = 'Soil moisture value for SCM forcing'
grid%tail_statevars%Units = '1'
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%q_soil_forcing_val
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%q_soil_forcing_val(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8331,&
'frame/module_domain.f: Failed to allocate grid%q_soil_forcing_val(1). ')
endif
ENDIF
IF(in_use_for_config(id,'q_soil_forcing_tend').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%q_soil_forcing_tend(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8340,&
'frame/module_domain.f: Failed to allocate grid%q_soil_forcing_tend(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%q_soil_forcing_tend=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'q_soil_forcing_tend'
grid%tail_statevars%DataName = 'Q_SOIL_FORCING_TEND'
grid%tail_statevars%Description = 'tendency soil moisture for SCM forcing'
grid%tail_statevars%Units = 's-1'
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%q_soil_forcing_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%q_soil_forcing_tend(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8388,&
'frame/module_domain.f: Failed to allocate grid%q_soil_forcing_tend(1). ')
endif
ENDIF
IF(in_use_for_config(id,'tau_soil').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%tau_soil(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8397,&
'frame/module_domain.f: Failed to allocate grid%tau_soil(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tau_soil=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tau_soil'
grid%tail_statevars%DataName = 'TAU_SOIL'
grid%tail_statevars%Description = 'SCM soil forcing timescale'
grid%tail_statevars%Units = 's'
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%tau_soil
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%tau_soil(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8445,&
'frame/module_domain.f: Failed to allocate grid%tau_soil(1). ')
endif
ENDIF
IF(in_use_for_config(id,'soil_depth_force').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_force_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%soil_depth_force(1:model_config_rec%num_force_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8454,&
'frame/module_domain.f: Failed to allocate grid%soil_depth_force(1:model_config_rec%num_force_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soil_depth_force=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soil_depth_force'
grid%tail_statevars%DataName = 'SOIL_DEPTH_FORCE'
grid%tail_statevars%Description = 'SCM depth at center of soil layers in forcing file'
grid%tail_statevars%Units = '1'
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%soil_depth_force
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_force_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_force_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_force_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'force_soil_layers'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%soil_depth_force(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8502,&
'frame/module_domain.f: Failed to allocate grid%soil_depth_force(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 = 'hfx_force'
grid%tail_statevars%DataName = 'HFX_FORCE'
grid%tail_statevars%Description = 'SCM ideal surface sensible heat flux'
grid%tail_statevars%Units = 'W m-2'
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%hfx_force
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%hfx_force=initial_data_value
IF (.NOT.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 = 'lh_force'
grid%tail_statevars%DataName = 'LH_FORCE'
grid%tail_statevars%Description = 'SCM ideal surface latent heat flux'
grid%tail_statevars%Units = 'W m-2'
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%lh_force
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%lh_force=initial_data_value
IF (.NOT.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 = 'tsk_force'
grid%tail_statevars%DataName = 'TSK_FORCE'
grid%tail_statevars%Description = 'SCM ideal surface skin temperature'
grid%tail_statevars%Units = 'W m-2'
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%tsk_force
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%tsk_force=initial_data_value
IF (.NOT.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 = 'hfx_force_tend'
grid%tail_statevars%DataName = 'HFX_FORCE_TEND'
grid%tail_statevars%Description = 'SCM ideal surface sensible heat flux tendency'
grid%tail_statevars%Units = 'W m-2 s-1'
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%hfx_force_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%hfx_force_tend=initial_data_value
IF (.NOT.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 = 'lh_force_tend'
grid%tail_statevars%DataName = 'LH_FORCE_TEND'
grid%tail_statevars%Description = 'SCM ideal surface latent heat flux tendency'
grid%tail_statevars%Units = 'W m-2 s-1'
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%lh_force_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%lh_force_tend=initial_data_value
IF (.NOT.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 = 'tsk_force_tend'
grid%tail_statevars%DataName = 'TSK_FORCE_TEND'
grid%tail_statevars%Description = 'SCM ideal surface skin temperature tendency'
grid%tail_statevars%Units = 'W m-2 s-1'
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%tsk_force_tend
grid%tail_statevars%streams(1) = 268435457
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%tsk_force_tend=initial_data_value
IF(in_use_for_config(id,'mu_1').AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mu_1(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8625,&
'frame/module_domain.f: Failed to allocate grid%mu_1(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mu_1'
grid%tail_statevars%DataName = 'MU_1'
grid%tail_statevars%Description = 'perturbation dry air mass in column'
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 = 201
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mu_1
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%mu_1(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8675,&
'frame/module_domain.f: Failed to allocate grid%mu_1(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mu_2').AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mu_2(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8684,&
'frame/module_domain.f: Failed to allocate grid%mu_2(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mu_2'
grid%tail_statevars%DataName = 'MU_2'
grid%tail_statevars%Description = 'perturbation dry air mass in column'
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 = 202
grid%tail_statevars%Ndim = 2
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mu_2
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%mu_2(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8734,&
'frame/module_domain.f: Failed to allocate grid%mu_2(1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_bxs(sm33:em33,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8743,&
'frame/module_domain.f: Failed to allocate grid%mu_bxs(sm33:em33,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_bxe(sm33:em33,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8751,&
'frame/module_domain.f: Failed to allocate grid%mu_bxe(sm33:em33,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_bys(sm31:em31,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8759,&
'frame/module_domain.f: Failed to allocate grid%mu_bys(sm31:em31,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_bye(sm31:em31,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8767,&
'frame/module_domain.f: Failed to allocate grid%mu_bye(sm31:em31,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_bye=initial_data_value
ELSE
ALLOCATE(grid%mu_bxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8774,&
'frame/module_domain.f: Failed to allocate grid%mu_bxs(1,1,1). ')
endif
ALLOCATE(grid%mu_bxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8779,&
'frame/module_domain.f: Failed to allocate grid%mu_bxe(1,1,1). ')
endif
ALLOCATE(grid%mu_bys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8784,&
'frame/module_domain.f: Failed to allocate grid%mu_bys(1,1,1). ')
endif
ALLOCATE(grid%mu_bye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8789,&
'frame/module_domain.f: Failed to allocate grid%mu_bye(1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_btxs(sm33:em33,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8798,&
'frame/module_domain.f: Failed to allocate grid%mu_btxs(sm33:em33,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_btxe(sm33:em33,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8806,&
'frame/module_domain.f: Failed to allocate grid%mu_btxe(sm33:em33,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_btys(sm31:em31,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8814,&
'frame/module_domain.f: Failed to allocate grid%mu_btys(sm31:em31,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(spec_bdy_width))) * 4
ALLOCATE(grid%mu_btye(sm31:em31,1,spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8822,&
'frame/module_domain.f: Failed to allocate grid%mu_btye(sm31:em31,1,spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu_btye=initial_data_value
ELSE
ALLOCATE(grid%mu_btxs(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8829,&
'frame/module_domain.f: Failed to allocate grid%mu_btxs(1,1,1). ')
endif
ALLOCATE(grid%mu_btxe(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8834,&
'frame/module_domain.f: Failed to allocate grid%mu_btxe(1,1,1). ')
endif
ALLOCATE(grid%mu_btys(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8839,&
'frame/module_domain.f: Failed to allocate grid%mu_btys(1,1,1). ')
endif
ALLOCATE(grid%mu_btye(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8844,&
'frame/module_domain.f: Failed to allocate grid%mu_btye(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mub'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mub(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8853,&
'frame/module_domain.f: Failed to allocate grid%mub(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mub=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mub'
grid%tail_statevars%DataName = 'MUB'
grid%tail_statevars%Description = 'base state dry air mass in column'
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%mub
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%mub(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8903,&
'frame/module_domain.f: Failed to allocate grid%mub(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mub_fine').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mub_fine(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8912,&
'frame/module_domain.f: Failed to allocate grid%mub_fine(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mub_fine=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mub_fine'
grid%tail_statevars%DataName = 'MUB_FINE'
grid%tail_statevars%Description = 'nest temp, holds interpolated coarse grid mub'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mub_fine
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%mub_fine(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8962,&
'frame/module_domain.f: Failed to allocate grid%mub_fine(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mub_save').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mub_save(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",8971,&
'frame/module_domain.f: Failed to allocate grid%mub_save(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mub_save=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mub_save'
grid%tail_statevars%DataName = 'MUB_SAVE'
grid%tail_statevars%Description = 'nest temp, holds orig fine grid mub'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mub_save
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%mub_save(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9021,&
'frame/module_domain.f: Failed to allocate grid%mub_save(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mu0').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mu0(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9030,&
'frame/module_domain.f: Failed to allocate grid%mu0(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mu0=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mu0'
grid%tail_statevars%DataName = 'MU0'
grid%tail_statevars%Description = 'initial dry mass in column'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mu0
grid%tail_statevars%streams(1) = 67108864
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%mu0(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9080,&
'frame/module_domain.f: Failed to allocate grid%mu0(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mudf').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mudf(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9089,&
'frame/module_domain.f: Failed to allocate grid%mudf(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mudf=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mudf'
grid%tail_statevars%DataName = 'MUDF'
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%mudf
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%mudf(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9139,&
'frame/module_domain.f: Failed to allocate grid%mudf(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'muu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%muu(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9148,&
'frame/module_domain.f: Failed to allocate grid%muu(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%muu=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'muu'
grid%tail_statevars%DataName = 'MUU'
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 = 'X'
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%muu
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%muu(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9198,&
'frame/module_domain.f: Failed to allocate grid%muu(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'muv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%muv(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9207,&
'frame/module_domain.f: Failed to allocate grid%muv(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%muv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'muv'
grid%tail_statevars%DataName = 'MUV'
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 = 'Y'
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%muv
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
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, 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_stag'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%muv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9257,&
'frame/module_domain.f: Failed to allocate grid%muv(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mut').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mut(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9266,&
'frame/module_domain.f: Failed to allocate grid%mut(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mut=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mut'
grid%tail_statevars%DataName = 'MUT'
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%mut
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%mut(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9316,&
'frame/module_domain.f: Failed to allocate grid%mut(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'muts').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%muts(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9325,&
'frame/module_domain.f: Failed to allocate grid%muts(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%muts=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'muts'
grid%tail_statevars%DataName = 'MUTS'
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%muts
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%muts(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9375,&
'frame/module_domain.f: Failed to allocate grid%muts(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'nest_pos'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%nest_pos(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9384,&
'frame/module_domain.f: Failed to allocate grid%nest_pos(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_pos=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'nest_pos'
grid%tail_statevars%DataName = 'NEST_POS'
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%nest_pos
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%nest_pos(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9434,&
'frame/module_domain.f: Failed to allocate grid%nest_pos(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'nest_mask'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%nest_mask(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9443,&
'frame/module_domain.f: Failed to allocate grid%nest_mask(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nest_mask=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'nest_mask'
grid%tail_statevars%DataName = 'NEST_MASK'
grid%tail_statevars%Description = 'LOCATION OF NEST IF ANY'
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%nest_mask
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%nest_mask(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9493,&
'frame/module_domain.f: Failed to allocate grid%nest_mask(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ht_coarse').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ht_coarse(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9502,&
'frame/module_domain.f: Failed to allocate grid%ht_coarse(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ht_coarse=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ht_coarse'
grid%tail_statevars%DataName = 'HT_COARSE'
grid%tail_statevars%Description = 'STORAGE FOR LOW-RES TERRAIN'
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%ht_coarse
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%ht_coarse(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9552,&
'frame/module_domain.f: Failed to allocate grid%ht_coarse(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tke_1').AND.(.NOT.grid%is_intermediate).AND.(IAND(1,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tke_1(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9561,&
'frame/module_domain.f: Failed to allocate grid%tke_1(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tke_1=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tke_1'
grid%tail_statevars%DataName = 'TKE_1'
grid%tail_statevars%Description = 'TURBULENCE KINETIC ENERGY'
grid%tail_statevars%Units = 'm2 s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 201
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%tke_1
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%tke_1(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9611,&
'frame/module_domain.f: Failed to allocate grid%tke_1(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tke_2').AND.(.NOT.grid%is_intermediate).AND.(IAND(2,tl).NE.0))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tke_2(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9620,&
'frame/module_domain.f: Failed to allocate grid%tke_2(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tke_2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tke_2'
grid%tail_statevars%DataName = 'TKE_2'
grid%tail_statevars%Description = 'TURBULENCE KINETIC ENERGY'
grid%tail_statevars%Units = 'm2 s-2'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 202
grid%tail_statevars%Ndim = 3
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%tke_2
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%tke_2(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9670,&
'frame/module_domain.f: Failed to allocate grid%tke_2(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'p').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9679,&
'frame/module_domain.f: Failed to allocate grid%p(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%p=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'p'
grid%tail_statevars%DataName = 'P'
grid%tail_statevars%Description = 'perturbation pressure'
grid%tail_statevars%Units = 'Pa'
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%p
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 = 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%p(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9729,&
'frame/module_domain.f: Failed to allocate grid%p(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'al').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%al(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9738,&
'frame/module_domain.f: Failed to allocate grid%al(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%al=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'al'
grid%tail_statevars%DataName = 'AL'
grid%tail_statevars%Description = 'inverse perturbation density'
grid%tail_statevars%Units = 'm3 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%al
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%al(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9788,&
'frame/module_domain.f: Failed to allocate grid%al(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'alt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%alt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9797,&
'frame/module_domain.f: Failed to allocate grid%alt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%alt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'alt'
grid%tail_statevars%DataName = 'ALT'
grid%tail_statevars%Description = 'inverse density'
grid%tail_statevars%Units = 'm3 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%alt
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%alt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9847,&
'frame/module_domain.f: Failed to allocate grid%alt(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'alb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%alb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9856,&
'frame/module_domain.f: Failed to allocate grid%alb(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%alb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'alb'
grid%tail_statevars%DataName = 'ALB'
grid%tail_statevars%Description = 'inverse base density'
grid%tail_statevars%Units = 'm3 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%alb
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%alb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9906,&
'frame/module_domain.f: Failed to allocate grid%alb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'zx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zx(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9915,&
'frame/module_domain.f: Failed to allocate grid%zx(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zx'
grid%tail_statevars%DataName = 'ZX'
grid%tail_statevars%Description = ' '
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'X'
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%zx
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'bottom_top'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%zx(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9965,&
'frame/module_domain.f: Failed to allocate grid%zx(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'zy').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zy(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",9974,&
'frame/module_domain.f: Failed to allocate grid%zy(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zy=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zy'
grid%tail_statevars%DataName = 'ZY'
grid%tail_statevars%Description = ' '
grid%tail_statevars%Units = ' '
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'XZY'
grid%tail_statevars%Stagger = 'Y'
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%zy
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
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, 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_stag'
ENDIF
ELSE
ALLOCATE(grid%zy(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10024,&
'frame/module_domain.f: Failed to allocate grid%zy(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rdz').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rdz(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10033,&
'frame/module_domain.f: Failed to allocate grid%rdz(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rdz=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rdz'
grid%tail_statevars%DataName = 'RDZ'
grid%tail_statevars%Description = ' '
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rdz
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%rdz(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10083,&
'frame/module_domain.f: Failed to allocate grid%rdz(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rdzw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rdzw(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10092,&
'frame/module_domain.f: Failed to allocate grid%rdzw(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rdzw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rdzw'
grid%tail_statevars%DataName = 'RDZW'
grid%tail_statevars%Description = ' '
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%rdzw
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%rdzw(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10142,&
'frame/module_domain.f: Failed to allocate grid%rdzw(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10151,&
'frame/module_domain.f: Failed to allocate grid%pb(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pb'
grid%tail_statevars%DataName = 'PB'
grid%tail_statevars%Description = 'BASE STATE PRESSURE '
grid%tail_statevars%Units = 'Pa'
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%pb
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 = 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%pb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10201,&
'frame/module_domain.f: Failed to allocate grid%pb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'fnm').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%fnm(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10210,&
'frame/module_domain.f: Failed to allocate grid%fnm(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fnm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fnm'
grid%tail_statevars%DataName = 'FNM'
grid%tail_statevars%Description = 'upper weight for vertical stretching'
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%fnm
grid%tail_statevars%streams(1) = 33554433
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%fnm(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10258,&
'frame/module_domain.f: Failed to allocate grid%fnm(1). ')
endif
ENDIF
IF(in_use_for_config(id,'fnp').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%fnp(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10267,&
'frame/module_domain.f: Failed to allocate grid%fnp(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fnp=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fnp'
grid%tail_statevars%DataName = 'FNP'
grid%tail_statevars%Description = 'lower weight for vertical stretching'
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%fnp
grid%tail_statevars%streams(1) = 33554433
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%fnp(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10315,&
'frame/module_domain.f: Failed to allocate grid%fnp(1). ')
endif
ENDIF
IF(in_use_for_config(id,'rdnw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rdnw(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10324,&
'frame/module_domain.f: Failed to allocate grid%rdnw(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rdnw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rdnw'
grid%tail_statevars%DataName = 'RDNW'
grid%tail_statevars%Description = 'inverse d(eta) values between full (w) levels'
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%rdnw
grid%tail_statevars%streams(1) = 33554433
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%rdnw(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10372,&
'frame/module_domain.f: Failed to allocate grid%rdnw(1). ')
endif
ENDIF
IF(in_use_for_config(id,'rdn').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%rdn(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10381,&
'frame/module_domain.f: Failed to allocate grid%rdn(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rdn=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rdn'
grid%tail_statevars%DataName = 'RDN'
grid%tail_statevars%Description = 'inverse d(eta) values between half (mass) levels'
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%rdn
grid%tail_statevars%streams(1) = 33554433
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%rdn(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10429,&
'frame/module_domain.f: Failed to allocate grid%rdn(1). ')
endif
ENDIF
IF(in_use_for_config(id,'dnw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dnw(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10438,&
'frame/module_domain.f: Failed to allocate grid%dnw(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dnw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dnw'
grid%tail_statevars%DataName = 'DNW'
grid%tail_statevars%Description = 'd(eta) values between full (w) levels'
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%dnw
grid%tail_statevars%streams(1) = 33554433
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%dnw(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10486,&
'frame/module_domain.f: Failed to allocate grid%dnw(1). ')
endif
ENDIF
IF(in_use_for_config(id,'dn').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%dn(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10495,&
'frame/module_domain.f: Failed to allocate grid%dn(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dn=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dn'
grid%tail_statevars%DataName = 'DN '
grid%tail_statevars%Description = 'd(eta) values between half (mass) levels'
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%dn
grid%tail_statevars%streams(1) = 33554433
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%dn(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10543,&
'frame/module_domain.f: Failed to allocate grid%dn(1). ')
endif
ENDIF
IF(in_use_for_config(id,'t_base').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em32)-(sm32)+1))) * 4
ALLOCATE(grid%t_base(sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10552,&
'frame/module_domain.f: Failed to allocate grid%t_base(sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t_base=initial_data_value
IF (.NOT.grid%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_base'
grid%tail_statevars%DataName = 'T_BASE'
grid%tail_statevars%Description = 'BASE STATE T IN IDEALIZED CASES'
grid%tail_statevars%Units = 'K'
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%t_base
grid%tail_statevars%streams(1) = 33554432
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%t_base(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10600,&
'frame/module_domain.f: Failed to allocate grid%t_base(1). ')
endif
ENDIF
IF(in_use_for_config(id,'z').AND.(.NOT.grid%is_intermediate))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>",10609,&
'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 = ' '
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%z
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%z(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10659,&
'frame/module_domain.f: Failed to allocate grid%z(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'z_at_w').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%z_at_w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10668,&
'frame/module_domain.f: Failed to allocate grid%z_at_w(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z_at_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 = 'z_at_w'
grid%tail_statevars%DataName = 'Z_AT_W'
grid%tail_statevars%Description = '-'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%z_at_w
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%z_at_w(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10718,&
'frame/module_domain.f: Failed to allocate grid%z_at_w(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 = 'cfn'
grid%tail_statevars%DataName = 'CFN'
grid%tail_statevars%Description = 'extrapolation constant'
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%cfn
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cfn=initial_data_value
IF (.NOT.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 = 'cfn1'
grid%tail_statevars%DataName = 'CFN1'
grid%tail_statevars%Description = 'extrapolation constant'
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%cfn1
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cfn1=initial_data_value
IF (.NOT.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 = 'step_number'
grid%tail_statevars%DataName = 'STEP_NUMBER'
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%step_number
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%step_number=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 = 'this_is_an_ideal_run'
grid%tail_statevars%DataName = 'THIS_IS_AN_IDEAL_RUN'
grid%tail_statevars%Description = 'T/F flag: this is an ARW ideal simulation'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%this_is_an_ideal_run
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%this_is_an_ideal_run=.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 = 'stepping_to_time'
grid%tail_statevars%DataName = 'STEPPING_TO_TIME'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%stepping_to_time
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%stepping_to_time=.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 = 'last_step_updated'
grid%tail_statevars%DataName = 'LAST_STEP_UPDATED'
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%last_step_updated
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_step_updated=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 = 'adapt_step_using_child'
grid%tail_statevars%DataName = 'ADAPT_STEP_USING_CHILD'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'l'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%lfield_0d => grid%adapt_step_using_child
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%adapt_step_using_child=.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 = 'last_dt_sec'
grid%tail_statevars%DataName = 'LAST_DT_SEC'
grid%tail_statevars%Description = 'Whole seconds for last timestep'
grid%tail_statevars%Units = 'sec'
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%last_dt_sec
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_dt_sec=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 = 'last_dt_sec_num'
grid%tail_statevars%DataName = 'LAST_DT_SEC_NUM'
grid%tail_statevars%Description = 'Fractional secs, numerator'
grid%tail_statevars%Units = 'sec'
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%last_dt_sec_num
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_dt_sec_num=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 = 'last_dt_sec_den'
grid%tail_statevars%DataName = 'LAST_DT_SEC_DEN'
grid%tail_statevars%Description = 'Fractional secs, denominator'
grid%tail_statevars%Units = 'sec'
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%last_dt_sec_den
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_dt_sec_den=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 = 'last_dt_yr'
grid%tail_statevars%DataName = 'LAST_DT_YR'
grid%tail_statevars%Description = 'Relative year'
grid%tail_statevars%Units = 'years'
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%last_dt_yr
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_dt_yr=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 = 'last_dt_mm'
grid%tail_statevars%DataName = 'LAST_DT_MM'
grid%tail_statevars%Description = 'Relative month'
grid%tail_statevars%Units = 'months'
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%last_dt_mm
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%last_dt_mm=0
IF(in_use_for_config(id,'p_hyd').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%p_hyd(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",10955,&
'frame/module_domain.f: Failed to allocate grid%p_hyd(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%p_hyd=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'p_hyd'
grid%tail_statevars%DataName = 'P_HYD'
grid%tail_statevars%Description = 'hydrostatic pressure'
grid%tail_statevars%Units = 'Pa'
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%p_hyd
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 = 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%p_hyd(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11005,&
'frame/module_domain.f: Failed to allocate grid%p_hyd(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'p_hyd_w').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%p_hyd_w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11014,&
'frame/module_domain.f: Failed to allocate grid%p_hyd_w(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%p_hyd_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 = 'p_hyd_w'
grid%tail_statevars%DataName = 'P_HYD_W'
grid%tail_statevars%Description = 'hydrostatic pressure at full levels'
grid%tail_statevars%Units = 'Pa'
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%p_hyd_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 = kds
grid%tail_statevars%ed2 = kde
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%p_hyd_w(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11064,&
'frame/module_domain.f: Failed to allocate grid%p_hyd_w(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'q2'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%q2(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11073,&
'frame/module_domain.f: Failed to allocate grid%q2(sm31:em31,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 = 'QV at 2 M'
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%q2
grid%tail_statevars%streams(1) = 41943041
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%q2(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11123,&
'frame/module_domain.f: Failed to allocate grid%q2(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'t2'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%t2(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11132,&
'frame/module_domain.f: Failed to allocate grid%t2(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%t2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 't2'
grid%tail_statevars%DataName = 'T2'
grid%tail_statevars%Description = 'TEMP at 2 M'
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%t2
grid%tail_statevars%streams(1) = 109051905
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%t2(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11182,&
'frame/module_domain.f: Failed to allocate grid%t2(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'th2'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%th2(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11191,&
'frame/module_domain.f: Failed to allocate grid%th2(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%th2=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'th2'
grid%tail_statevars%DataName = 'TH2'
grid%tail_statevars%Description = 'POT TEMP at 2 M'
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%th2
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%th2(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11241,&
'frame/module_domain.f: Failed to allocate grid%th2(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'psfc'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%psfc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11250,&
'frame/module_domain.f: Failed to allocate grid%psfc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%psfc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'psfc'
grid%tail_statevars%DataName = 'PSFC'
grid%tail_statevars%Description = 'SFC PRESSURE'
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%psfc
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%psfc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11300,&
'frame/module_domain.f: Failed to allocate grid%psfc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'u10'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%u10(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11309,&
'frame/module_domain.f: Failed to allocate grid%u10(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%u10=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'u10'
grid%tail_statevars%DataName = 'U10'
grid%tail_statevars%Description = 'U at 10 M'
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%u10
grid%tail_statevars%streams(1) = 33554435
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%u10(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11359,&
'frame/module_domain.f: Failed to allocate grid%u10(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'v10'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%v10(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11368,&
'frame/module_domain.f: Failed to allocate grid%v10(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%v10=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'v10'
grid%tail_statevars%DataName = 'V10'
grid%tail_statevars%Description = 'V at 10 M'
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%v10
grid%tail_statevars%streams(1) = 33554435
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%v10(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11418,&
'frame/module_domain.f: Failed to allocate grid%v10(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'uratx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%uratx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11427,&
'frame/module_domain.f: Failed to allocate grid%uratx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%uratx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'uratx'
grid%tail_statevars%DataName = 'URATX'
grid%tail_statevars%Description = 'Ratio of U over U10 on mass points '
grid%tail_statevars%Units = 'dimensionless'
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%uratx
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%uratx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11477,&
'frame/module_domain.f: Failed to allocate grid%uratx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'vratx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%vratx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11486,&
'frame/module_domain.f: Failed to allocate grid%vratx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vratx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vratx'
grid%tail_statevars%DataName = 'VRATX'
grid%tail_statevars%Description = 'Ratio of V over V10 on mass points '
grid%tail_statevars%Units = 'dimensionless'
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%vratx
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%vratx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11536,&
'frame/module_domain.f: Failed to allocate grid%vratx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tratx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tratx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11545,&
'frame/module_domain.f: Failed to allocate grid%tratx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tratx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tratx'
grid%tail_statevars%DataName = 'TRATX'
grid%tail_statevars%Description = 'Ratio of T over TH2 on mass points '
grid%tail_statevars%Units = 'dimensionless'
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%tratx
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%tratx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11595,&
'frame/module_domain.f: Failed to allocate grid%tratx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'obs_savwt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%nobs_err_flds)-(1)+1))*(((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%obs_savwt(1:model_config_rec%nobs_err_flds,sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11604,&
'frame/module_domain.f: Failed to allocate grid%obs_savwt(1:model_config_rec%nobs_err_flds,sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%obs_savwt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'obs_savwt'
grid%tail_statevars%DataName = 'OBS_SAVWT'
grid%tail_statevars%Description = '-'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CXZ'
grid%tail_statevars%Stagger = 'X'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 4
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_4d => grid%obs_savwt
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%nobs_err_flds
grid%tail_statevars%sd2 = ids
grid%tail_statevars%ed2 = ide
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%nobs_err_flds
grid%tail_statevars%sm2 = ims
grid%tail_statevars%em2 = ime
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%nobs_err_flds
grid%tail_statevars%sp2 = ips
grid%tail_statevars%ep2 = MIN( ide, ipe )
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%subgrid_x = .FALSE.
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = 'west_east_stag'
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%obs_savwt(1,1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",11653,&
'frame/module_domain.f: Failed to allocate grid%obs_savwt(1,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 = 'rdx'
grid%tail_statevars%DataName = 'RDX'
grid%tail_statevars%Description = 'INVERSE X GRID LENGTH'
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%rdx
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%rdx=initial_data_value
IF (.NOT.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 = 'rdy'
grid%tail_statevars%DataName = 'RDY'
grid%tail_statevars%Description = 'INVERSE Y GRID LENGTH'
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%rdy
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%rdy=initial_data_value
IF (.NOT.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 = 'dts'
grid%tail_statevars%DataName = 'DTS'
grid%tail_statevars%Description = 'SMALL TIMESTEP'
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%dts
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dts=initial_data_value
IF (.NOT.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 = 'dtseps'
grid%tail_statevars%DataName = 'DTSEPS'
grid%tail_statevars%Description = 'TIME WEIGHT CONSTANT FOR SMALL 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%dtseps
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dtseps=initial_data_value
IF (.NOT.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 = 'resm'
grid%tail_statevars%DataName = 'RESM'
grid%tail_statevars%Description = 'TIME WEIGHT CONSTANT FOR SMALL 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%resm
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%resm=initial_data_value
IF (.NOT.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 = 'zetatop'
grid%tail_statevars%DataName = 'ZETATOP'
grid%tail_statevars%Description = 'ZETA AT MODEL TOP'
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%zetatop
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%zetatop=initial_data_value
IF (.NOT.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 = 'cf1'
grid%tail_statevars%DataName = 'CF1'
grid%tail_statevars%Description = '2nd order extrapolation constant'
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%cf1
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cf1=initial_data_value
IF (.NOT.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 = 'cf2'
grid%tail_statevars%DataName = 'CF2'
grid%tail_statevars%Description = '2nd order extrapolation constant'
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%cf2
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cf2=initial_data_value
IF (.NOT.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 = 'cf3'
grid%tail_statevars%DataName = 'CF3'
grid%tail_statevars%Description = '2nd order extrapolation constant'
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%cf3
grid%tail_statevars%streams(1) = 33554433
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cf3=initial_data_value
IF (.NOT.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 = 'number_at_same_level'
grid%tail_statevars%DataName = 'NUMBER_AT_SAME_LEVEL'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%number_at_same_level
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%number_at_same_level=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 = 'radtacttime'
grid%tail_statevars%DataName = 'RADTACTTIME'
grid%tail_statevars%Description = 'RADTACTTIME'
grid%tail_statevars%Units = 'LW SW ACTIVATION TIME in s'
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%radtacttime
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%radtacttime=initial_data_value
IF (.NOT.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 = 'bldtacttime'
grid%tail_statevars%DataName = 'BLDTACTTIME'
grid%tail_statevars%Description = 'BLDTACTTIME'
grid%tail_statevars%Units = 'PBL ACTIVATION TIME in s'
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%bldtacttime
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%bldtacttime=initial_data_value
IF (.NOT.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 = 'cudtacttime'
grid%tail_statevars%DataName = 'CUDTACTTIME'
grid%tail_statevars%Description = 'CUDTACTTIME'
grid%tail_statevars%Units = 'CPS ACTIVATION TIME in s'
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%cudtacttime
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%cudtacttime=initial_data_value
IF (.NOT.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 = 'itimestep'
grid%tail_statevars%DataName = 'ITIMESTEP'
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%itimestep
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%itimestep=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 = 'xtime'
grid%tail_statevars%DataName = 'XTIME'
grid%tail_statevars%Description = 'minutes since simulation start'
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%xtime
grid%tail_statevars%streams(1) = 1
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%xtime=initial_data_value
IF (.NOT.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 = 'julian'
grid%tail_statevars%DataName = 'JULIAN'
grid%tail_statevars%Description = 'day of year, 0.0 at 0Z on 1 Jan.'
grid%tail_statevars%Units = 'days'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%julian
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%julian=initial_data_value
IF (.NOT.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 = 'lbc_fid'
grid%tail_statevars%DataName = 'LBC_FID'
grid%tail_statevars%Description = ''
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%lbc_fid
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%lbc_fid=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 = 'tiled'
grid%tail_statevars%DataName = 'TILED'
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%tiled
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%tiled=.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 = 'patched'
grid%tail_statevars%DataName = 'PATCHED'
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%patched
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%patched=.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 = 'press_adj'
grid%tail_statevars%DataName = 'PRESS_ADJ'
grid%tail_statevars%Description = 'T/F flag adjust mu'
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%press_adj
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%press_adj=.FALSE.
IF(in_use_for_config(id,'imask_nostag').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%imask_nostag(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12042,&
'frame/module_domain.f: Failed to allocate grid%imask_nostag(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_nostag=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 = 'imask_nostag'
grid%tail_statevars%DataName = 'IMASK_NOSTAG'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_2d => grid%imask_nostag
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%imask_nostag(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12092,&
'frame/module_domain.f: Failed to allocate grid%imask_nostag(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'imask_xstag').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%imask_xstag(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12101,&
'frame/module_domain.f: Failed to allocate grid%imask_xstag(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xstag=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 = 'imask_xstag'
grid%tail_statevars%DataName = 'IMASK_XSTAG'
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 = 'X'
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%imask_xstag
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
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, 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_stag'
grid%tail_statevars%dimname2 = 'south_north'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%imask_xstag(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12151,&
'frame/module_domain.f: Failed to allocate grid%imask_xstag(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'imask_ystag').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%imask_ystag(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12160,&
'frame/module_domain.f: Failed to allocate grid%imask_ystag(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_ystag=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 = 'imask_ystag'
grid%tail_statevars%DataName = 'IMASK_YSTAG'
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 = 'Y'
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%imask_ystag
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
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, 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_stag'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%imask_ystag(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12210,&
'frame/module_domain.f: Failed to allocate grid%imask_ystag(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'imask_xystag').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%imask_xystag(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12219,&
'frame/module_domain.f: Failed to allocate grid%imask_xystag(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%imask_xystag=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 = 'imask_xystag'
grid%tail_statevars%DataName = 'IMASK_XYSTAG'
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 = 'XY'
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%imask_xystag
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = ide
grid%tail_statevars%sd2 = jds
grid%tail_statevars%ed2 = jde
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, ipe )
grid%tail_statevars%sp2 = jps
grid%tail_statevars%ep2 = MIN( jde, 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_stag'
grid%tail_statevars%dimname2 = 'south_north_stag'
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%imask_xystag(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12269,&
'frame/module_domain.f: Failed to allocate grid%imask_xystag(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 = 'xi'
grid%tail_statevars%DataName = 'XI'
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%xi
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%xi=initial_data_value
IF (.NOT.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 = 'xj'
grid%tail_statevars%DataName = 'XJ'
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%xj
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%xj=initial_data_value
IF (.NOT.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 = 'vc_i'
grid%tail_statevars%DataName = 'VC_I'
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%vc_i
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%vc_i=initial_data_value
IF (.NOT.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 = 'vc_j'
grid%tail_statevars%DataName = 'VC_J'
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%vc_j
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%vc_j=initial_data_value
IF(in_use_for_config(id,'moist'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1)*num_moist)) * 4
ALLOCATE(grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12354,&
'frame/module_domain.f: Failed to allocate grid%moist(sm31:em31,sm32:em32,sm33:em33,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'moist'
grid%tail_statevars%DataName = 'MOIST'
grid%tail_statevars%Description = '-'
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 = 4
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .TRUE.
grid%tail_statevars%rfield_4d => grid%moist
grid%tail_statevars%num_table => moist_num_table
grid%tail_statevars%index_table => moist_index_table
grid%tail_statevars%boundary_table => moist_boundary_table
grid%tail_statevars%dname_table => moist_dname_table
grid%tail_statevars%desc_table => moist_desc_table
grid%tail_statevars%units_table => moist_units_table
grid%tail_statevars%streams_table => moist_streams_table
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 = 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%moist(1,1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12411,&
'frame/module_domain.f: Failed to allocate grid%moist(1,1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12420,&
'frame/module_domain.f: Failed to allocate grid%moist_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12428,&
'frame/module_domain.f: Failed to allocate grid%moist_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_bys(sm31:em31,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12436,&
'frame/module_domain.f: Failed to allocate grid%moist_bys(sm31:em31,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_bye(sm31:em31,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12444,&
'frame/module_domain.f: Failed to allocate grid%moist_bye(sm31:em31,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_bye=initial_data_value
ELSE
ALLOCATE(grid%moist_bxs(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12451,&
'frame/module_domain.f: Failed to allocate grid%moist_bxs(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_bxe(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12456,&
'frame/module_domain.f: Failed to allocate grid%moist_bxe(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_bys(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12461,&
'frame/module_domain.f: Failed to allocate grid%moist_bys(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_bye(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12466,&
'frame/module_domain.f: Failed to allocate grid%moist_bye(1,1,1,num_moist). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12475,&
'frame/module_domain.f: Failed to allocate grid%moist_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12483,&
'frame/module_domain.f: Failed to allocate grid%moist_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_btys(sm31:em31,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12491,&
'frame/module_domain.f: Failed to allocate grid%moist_btys(sm31:em31,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_moist)) * 4
ALLOCATE(grid%moist_btye(sm31:em31,sm32:em32,spec_bdy_width,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12499,&
'frame/module_domain.f: Failed to allocate grid%moist_btye(sm31:em31,sm32:em32,spec_bdy_width,num_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%moist_btye=initial_data_value
ELSE
ALLOCATE(grid%moist_btxs(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12506,&
'frame/module_domain.f: Failed to allocate grid%moist_btxs(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_btxe(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12511,&
'frame/module_domain.f: Failed to allocate grid%moist_btxe(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_btys(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12516,&
'frame/module_domain.f: Failed to allocate grid%moist_btys(1,1,1,num_moist). ')
endif
ALLOCATE(grid%moist_btye(1,1,1,num_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12521,&
'frame/module_domain.f: Failed to allocate grid%moist_btye(1,1,1,num_moist). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_moist'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist(sm31:em31,sm32:em32,sm33:em33,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12530,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist(sm31:em31,sm32:em32,sm33:em33,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist=initial_data_value
IF (.NOT.grid%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_moist'
grid%tail_statevars%DataName = 'DFI_MOIST'
grid%tail_statevars%Description = '-'
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 = 4
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .TRUE.
grid%tail_statevars%rfield_4d => grid%dfi_moist
grid%tail_statevars%num_table => dfi_moist_num_table
grid%tail_statevars%index_table => dfi_moist_index_table
grid%tail_statevars%boundary_table => dfi_moist_boundary_table
grid%tail_statevars%dname_table => dfi_moist_dname_table
grid%tail_statevars%desc_table => dfi_moist_desc_table
grid%tail_statevars%units_table => dfi_moist_units_table
grid%tail_statevars%streams_table => dfi_moist_streams_table
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%dfi_moist(1,1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12587,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist(1,1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12596,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12604,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_bys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12612,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_bye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12620,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_bye=initial_data_value
ELSE
ALLOCATE(grid%dfi_moist_bxs(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12627,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bxs(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_bxe(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12632,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bxe(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_bys(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12637,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bys(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_bye(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12642,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_bye(1,1,1,num_dfi_moist). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12651,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12659,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_btys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12667,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_moist)) * 4
ALLOCATE(grid%dfi_moist_btye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12675,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_moist). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_moist_btye=initial_data_value
ELSE
ALLOCATE(grid%dfi_moist_btxs(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12682,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btxs(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_btxe(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12687,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btxe(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_btys(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12692,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btys(1,1,1,num_dfi_moist). ')
endif
ALLOCATE(grid%dfi_moist_btye(1,1,1,num_dfi_moist),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12697,&
'frame/module_domain.f: Failed to allocate grid%dfi_moist_btye(1,1,1,num_dfi_moist). ')
endif
ENDIF
IF(in_use_for_config(id,'rimi').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rimi(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12706,&
'frame/module_domain.f: Failed to allocate grid%rimi(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rimi=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rimi'
grid%tail_statevars%DataName = 'RIMI'
grid%tail_statevars%Description = 'riming intensity'
grid%tail_statevars%Units = 'fraction'
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%rimi
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 = 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%rimi(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12756,&
'frame/module_domain.f: Failed to allocate grid%rimi(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'re_cloud').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%re_cloud(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12765,&
'frame/module_domain.f: Failed to allocate grid%re_cloud(sm31:em31,sm32:em32,sm33:em33). ')
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 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%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%re_cloud(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12815,&
'frame/module_domain.f: Failed to allocate grid%re_cloud(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'re_ice').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%re_ice(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12824,&
'frame/module_domain.f: Failed to allocate grid%re_ice(sm31:em31,sm32:em32,sm33:em33). ')
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 = .FALSE.
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) = 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%re_ice(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12874,&
'frame/module_domain.f: Failed to allocate grid%re_ice(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'re_snow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%re_snow(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12883,&
'frame/module_domain.f: Failed to allocate grid%re_snow(sm31:em31,sm32:em32,sm33:em33). ')
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 = .FALSE.
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) = 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%re_snow(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12933,&
'frame/module_domain.f: Failed to allocate grid%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 having effective radius cloud water'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
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) = 0
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 having effective radius cloud ice'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
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) = 0
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 having effective radius snow'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
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) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%has_reqs=0
IF(in_use_for_config(id,'scalar'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1)*num_scalar)) * 4
ALLOCATE(grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",12999,&
'frame/module_domain.f: Failed to allocate grid%scalar(sm31:em31,sm32:em32,sm33:em33,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'scalar'
grid%tail_statevars%DataName = 'SCALAR'
grid%tail_statevars%Description = '-'
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 = 4
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .TRUE.
grid%tail_statevars%rfield_4d => grid%scalar
grid%tail_statevars%num_table => scalar_num_table
grid%tail_statevars%index_table => scalar_index_table
grid%tail_statevars%boundary_table => scalar_boundary_table
grid%tail_statevars%dname_table => scalar_dname_table
grid%tail_statevars%desc_table => scalar_desc_table
grid%tail_statevars%units_table => scalar_units_table
grid%tail_statevars%streams_table => scalar_streams_table
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 = 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%scalar(1,1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13056,&
'frame/module_domain.f: Failed to allocate grid%scalar(1,1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13065,&
'frame/module_domain.f: Failed to allocate grid%scalar_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13073,&
'frame/module_domain.f: Failed to allocate grid%scalar_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_bys(sm31:em31,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13081,&
'frame/module_domain.f: Failed to allocate grid%scalar_bys(sm31:em31,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_bye(sm31:em31,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13089,&
'frame/module_domain.f: Failed to allocate grid%scalar_bye(sm31:em31,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_bye=initial_data_value
ELSE
ALLOCATE(grid%scalar_bxs(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13096,&
'frame/module_domain.f: Failed to allocate grid%scalar_bxs(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_bxe(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13101,&
'frame/module_domain.f: Failed to allocate grid%scalar_bxe(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_bys(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13106,&
'frame/module_domain.f: Failed to allocate grid%scalar_bys(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_bye(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13111,&
'frame/module_domain.f: Failed to allocate grid%scalar_bye(1,1,1,num_scalar). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13120,&
'frame/module_domain.f: Failed to allocate grid%scalar_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13128,&
'frame/module_domain.f: Failed to allocate grid%scalar_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_btys(sm31:em31,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13136,&
'frame/module_domain.f: Failed to allocate grid%scalar_btys(sm31:em31,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_scalar)) * 4
ALLOCATE(grid%scalar_btye(sm31:em31,sm32:em32,spec_bdy_width,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13144,&
'frame/module_domain.f: Failed to allocate grid%scalar_btye(sm31:em31,sm32:em32,spec_bdy_width,num_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%scalar_btye=initial_data_value
ELSE
ALLOCATE(grid%scalar_btxs(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13151,&
'frame/module_domain.f: Failed to allocate grid%scalar_btxs(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_btxe(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13156,&
'frame/module_domain.f: Failed to allocate grid%scalar_btxe(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_btys(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13161,&
'frame/module_domain.f: Failed to allocate grid%scalar_btys(1,1,1,num_scalar). ')
endif
ALLOCATE(grid%scalar_btye(1,1,1,num_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13166,&
'frame/module_domain.f: Failed to allocate grid%scalar_btye(1,1,1,num_scalar). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_scalar'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar(sm31:em31,sm32:em32,sm33:em33,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13175,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar(sm31:em31,sm32:em32,sm33:em33,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar=initial_data_value
IF (.NOT.grid%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_scalar'
grid%tail_statevars%DataName = 'DFI_SCALAR'
grid%tail_statevars%Description = '-'
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 = 4
grid%tail_statevars%Restart = .TRUE.
grid%tail_statevars%scalar_array = .TRUE.
grid%tail_statevars%rfield_4d => grid%dfi_scalar
grid%tail_statevars%num_table => dfi_scalar_num_table
grid%tail_statevars%index_table => dfi_scalar_index_table
grid%tail_statevars%boundary_table => dfi_scalar_boundary_table
grid%tail_statevars%dname_table => dfi_scalar_dname_table
grid%tail_statevars%desc_table => dfi_scalar_desc_table
grid%tail_statevars%units_table => dfi_scalar_units_table
grid%tail_statevars%streams_table => dfi_scalar_streams_table
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%dfi_scalar(1,1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13232,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar(1,1,1,1). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13241,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_bxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13249,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_bxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_bys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13257,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_bys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_bye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13265,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_bye=initial_data_value
ELSE
ALLOCATE(grid%dfi_scalar_bxs(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13272,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bxs(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_bxe(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13277,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bxe(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_bys(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13282,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bys(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_bye(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13287,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_bye(1,1,1,num_dfi_scalar). ')
endif
ENDIF
IF(.TRUE..AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13296,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btxs(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_btxs=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em33-sm33+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13304,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btxe(sm33:em33,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_btxe=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_btys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13312,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btys(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_btys=initial_data_value
num_bytes_allocated = num_bytes_allocated + &
(((em31-sm31+1)*(em32-sm32+1)*(spec_bdy_width)*num_dfi_scalar)) * 4
ALLOCATE(grid%dfi_scalar_btye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13320,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btye(sm31:em31,sm32:em32,spec_bdy_width,num_dfi_scalar). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_scalar_btye=initial_data_value
ELSE
ALLOCATE(grid%dfi_scalar_btxs(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13327,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btxs(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_btxe(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13332,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btxe(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_btys(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13337,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btys(1,1,1,num_dfi_scalar). ')
endif
ALLOCATE(grid%dfi_scalar_btye(1,1,1,num_dfi_scalar),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13342,&
'frame/module_domain.f: Failed to allocate grid%dfi_scalar_btye(1,1,1,num_dfi_scalar). ')
endif
ENDIF
IF(in_use_for_config(id,'fcx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%spec_bdy_width)-(1)+1))) * 4
ALLOCATE(grid%fcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13351,&
'frame/module_domain.f: Failed to allocate grid%fcx(1:model_config_rec%spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fcx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fcx'
grid%tail_statevars%DataName = 'FCX'
grid%tail_statevars%Description = 'RELAXATION TERM FOR BOUNDARY ZONE'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'C'
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%fcx
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%spec_bdy_width
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%spec_bdy_width
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%spec_bdy_width
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%fcx(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13399,&
'frame/module_domain.f: Failed to allocate grid%fcx(1). ')
endif
ENDIF
IF(in_use_for_config(id,'gcx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%spec_bdy_width)-(1)+1))) * 4
ALLOCATE(grid%gcx(1:model_config_rec%spec_bdy_width),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13408,&
'frame/module_domain.f: Failed to allocate grid%gcx(1:model_config_rec%spec_bdy_width). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%gcx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'gcx'
grid%tail_statevars%DataName = 'GCX'
grid%tail_statevars%Description = '2ND RELAXATION TERM FOR BOUNDARY ZONE'
grid%tail_statevars%Units = ''
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'C'
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%gcx
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%spec_bdy_width
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%spec_bdy_width
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%spec_bdy_width
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%gcx(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13456,&
'frame/module_domain.f: Failed to allocate grid%gcx(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 = 'dtbc'
grid%tail_statevars%DataName = 'DTBC'
grid%tail_statevars%Description = 'TIME SINCE BOUNDARY READ'
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%dtbc
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 2097152
ENDIF
IF ( setinitval .EQ. 3 ) grid%dtbc=initial_data_value
IF(in_use_for_config(id,'soil_layers').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soil_layers(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13484,&
'frame/module_domain.f: Failed to allocate grid%soil_layers(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soil_layers=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soil_layers'
grid%tail_statevars%DataName = 'SOIL_LAYERS'
grid%tail_statevars%Description = 'SOIL LAYERS'
grid%tail_statevars%Units = 'cm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%soil_layers
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soil_layers(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13534,&
'frame/module_domain.f: Failed to allocate grid%soil_layers(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soil_levels').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soil_levels(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13543,&
'frame/module_domain.f: Failed to allocate grid%soil_levels(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soil_levels=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soil_levels'
grid%tail_statevars%DataName = 'SOIL_LEVELS'
grid%tail_statevars%Description = 'SOIL LEVELS'
grid%tail_statevars%Units = 'cm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%soil_levels
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soil_levels(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13593,&
'frame/module_domain.f: Failed to allocate grid%soil_levels(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13602,&
'frame/module_domain.f: Failed to allocate grid%st(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st'
grid%tail_statevars%DataName = 'ST'
grid%tail_statevars%Description = 'SOIL TEMPERATURES'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%st
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%st(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13652,&
'frame/module_domain.f: Failed to allocate grid%st(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13661,&
'frame/module_domain.f: Failed to allocate grid%sm(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm'
grid%tail_statevars%DataName = 'SM'
grid%tail_statevars%Description = 'SOIL MOISTURES'
grid%tail_statevars%Units = 'm3 m-3'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%sm
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%sm(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13711,&
'frame/module_domain.f: Failed to allocate grid%sm(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13720,&
'frame/module_domain.f: Failed to allocate grid%sw(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw'
grid%tail_statevars%DataName = 'SW'
grid%tail_statevars%Description = 'SOIL LIQUIDS'
grid%tail_statevars%Units = 'm3 m-3'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%sw
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%sw(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13770,&
'frame/module_domain.f: Failed to allocate grid%sw(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13779,&
'frame/module_domain.f: Failed to allocate grid%soilt(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt'
grid%tail_statevars%DataName = 'SOILT'
grid%tail_statevars%Description = 'RUC SOIL TEMPERATURES'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%soilt
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soilt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13829,&
'frame/module_domain.f: Failed to allocate grid%soilt(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_metgrid_soil_levels)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13838,&
'frame/module_domain.f: Failed to allocate grid%soilm(sm31:em31,1:model_config_rec%num_metgrid_soil_levels,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm'
grid%tail_statevars%DataName = 'SOILM'
grid%tail_statevars%Description = 'RUC SOIL MOISTURES'
grid%tail_statevars%Units = 'm3 m-3'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%soilm
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%num_metgrid_soil_levels
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_metgrid_soil_levels
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_metgrid_soil_levels
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 = 'num_metgrid_soil_levels_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soilm(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13888,&
'frame/module_domain.f: Failed to allocate grid%soilm(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm000007').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm000007(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13897,&
'frame/module_domain.f: Failed to allocate grid%sm000007(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm000007=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm000007'
grid%tail_statevars%DataName = 'SM000007'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm000007
grid%tail_statevars%streams(1) = 67108864
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%sm000007(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13947,&
'frame/module_domain.f: Failed to allocate grid%sm000007(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm007028').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm007028(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",13956,&
'frame/module_domain.f: Failed to allocate grid%sm007028(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm007028=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm007028'
grid%tail_statevars%DataName = 'SM007028'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm007028
grid%tail_statevars%streams(1) = 67108864
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%sm007028(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14006,&
'frame/module_domain.f: Failed to allocate grid%sm007028(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm028100').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm028100(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14015,&
'frame/module_domain.f: Failed to allocate grid%sm028100(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm028100=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm028100'
grid%tail_statevars%DataName = 'SM028100'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm028100
grid%tail_statevars%streams(1) = 67108864
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%sm028100(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14065,&
'frame/module_domain.f: Failed to allocate grid%sm028100(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm100255').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm100255(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14074,&
'frame/module_domain.f: Failed to allocate grid%sm100255(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm100255=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm100255'
grid%tail_statevars%DataName = 'SM100255'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm100255
grid%tail_statevars%streams(1) = 67108864
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%sm100255(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14124,&
'frame/module_domain.f: Failed to allocate grid%sm100255(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st000007').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st000007(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14133,&
'frame/module_domain.f: Failed to allocate grid%st000007(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st000007=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st000007'
grid%tail_statevars%DataName = 'ST000007'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st000007
grid%tail_statevars%streams(1) = 67108864
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%st000007(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14183,&
'frame/module_domain.f: Failed to allocate grid%st000007(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st007028').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st007028(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14192,&
'frame/module_domain.f: Failed to allocate grid%st007028(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st007028=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st007028'
grid%tail_statevars%DataName = 'ST007028'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st007028
grid%tail_statevars%streams(1) = 67108864
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%st007028(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14242,&
'frame/module_domain.f: Failed to allocate grid%st007028(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st028100').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st028100(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14251,&
'frame/module_domain.f: Failed to allocate grid%st028100(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st028100=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st028100'
grid%tail_statevars%DataName = 'ST028100'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st028100
grid%tail_statevars%streams(1) = 67108864
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%st028100(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14301,&
'frame/module_domain.f: Failed to allocate grid%st028100(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st100255').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st100255(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14310,&
'frame/module_domain.f: Failed to allocate grid%st100255(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st100255=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st100255'
grid%tail_statevars%DataName = 'ST100255'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st100255
grid%tail_statevars%streams(1) = 67108864
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%st100255(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14360,&
'frame/module_domain.f: Failed to allocate grid%st100255(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm000010').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm000010(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14369,&
'frame/module_domain.f: Failed to allocate grid%sm000010(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm000010=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm000010'
grid%tail_statevars%DataName = 'SM000010'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm000010
grid%tail_statevars%streams(1) = 67108864
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%sm000010(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14419,&
'frame/module_domain.f: Failed to allocate grid%sm000010(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm010040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm010040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14428,&
'frame/module_domain.f: Failed to allocate grid%sm010040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm010040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm010040'
grid%tail_statevars%DataName = 'SM010040 '
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm010040
grid%tail_statevars%streams(1) = 67108864
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%sm010040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14478,&
'frame/module_domain.f: Failed to allocate grid%sm010040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm040100').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm040100(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14487,&
'frame/module_domain.f: Failed to allocate grid%sm040100(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm040100=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm040100'
grid%tail_statevars%DataName = 'SM040100 '
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm040100
grid%tail_statevars%streams(1) = 67108864
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%sm040100(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14537,&
'frame/module_domain.f: Failed to allocate grid%sm040100(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm100200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm100200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14546,&
'frame/module_domain.f: Failed to allocate grid%sm100200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm100200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm100200'
grid%tail_statevars%DataName = 'SM100200 '
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm100200
grid%tail_statevars%streams(1) = 67108864
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%sm100200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14596,&
'frame/module_domain.f: Failed to allocate grid%sm100200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sm010200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sm010200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14605,&
'frame/module_domain.f: Failed to allocate grid%sm010200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sm010200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sm010200'
grid%tail_statevars%DataName = 'SM010200'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%sm010200
grid%tail_statevars%streams(1) = 67108864
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%sm010200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14655,&
'frame/module_domain.f: Failed to allocate grid%sm010200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm000').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm000(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14664,&
'frame/module_domain.f: Failed to allocate grid%soilm000(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm000=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm000'
grid%tail_statevars%DataName = 'SOILM000'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm000
grid%tail_statevars%streams(1) = 67108864
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%soilm000(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14714,&
'frame/module_domain.f: Failed to allocate grid%soilm000(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm005').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm005(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14723,&
'frame/module_domain.f: Failed to allocate grid%soilm005(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm005=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm005'
grid%tail_statevars%DataName = 'SOILM005'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm005
grid%tail_statevars%streams(1) = 67108864
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%soilm005(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14773,&
'frame/module_domain.f: Failed to allocate grid%soilm005(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm020').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm020(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14782,&
'frame/module_domain.f: Failed to allocate grid%soilm020(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm020=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm020'
grid%tail_statevars%DataName = 'SOILM020'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm020
grid%tail_statevars%streams(1) = 67108864
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%soilm020(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14832,&
'frame/module_domain.f: Failed to allocate grid%soilm020(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14841,&
'frame/module_domain.f: Failed to allocate grid%soilm040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm040'
grid%tail_statevars%DataName = 'SOILM040'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm040
grid%tail_statevars%streams(1) = 67108864
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%soilm040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14891,&
'frame/module_domain.f: Failed to allocate grid%soilm040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm160').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm160(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14900,&
'frame/module_domain.f: Failed to allocate grid%soilm160(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm160=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm160'
grid%tail_statevars%DataName = 'SOILM160'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm160
grid%tail_statevars%streams(1) = 67108864
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%soilm160(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14950,&
'frame/module_domain.f: Failed to allocate grid%soilm160(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilm300').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilm300(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",14959,&
'frame/module_domain.f: Failed to allocate grid%soilm300(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilm300=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilm300'
grid%tail_statevars%DataName = 'SOILM300'
grid%tail_statevars%Description = 'LAYER SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%soilm300
grid%tail_statevars%streams(1) = 67108864
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%soilm300(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15009,&
'frame/module_domain.f: Failed to allocate grid%soilm300(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw000010').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw000010(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15018,&
'frame/module_domain.f: Failed to allocate grid%sw000010(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw000010=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw000010'
grid%tail_statevars%DataName = 'SW000010'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%sw000010
grid%tail_statevars%streams(1) = 67108864
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%sw000010(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15068,&
'frame/module_domain.f: Failed to allocate grid%sw000010(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw010040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw010040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15077,&
'frame/module_domain.f: Failed to allocate grid%sw010040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw010040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw010040'
grid%tail_statevars%DataName = 'SW010040'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%sw010040
grid%tail_statevars%streams(1) = 67108864
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%sw010040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15127,&
'frame/module_domain.f: Failed to allocate grid%sw010040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw040100').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw040100(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15136,&
'frame/module_domain.f: Failed to allocate grid%sw040100(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw040100=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw040100'
grid%tail_statevars%DataName = 'SW040100'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%sw040100
grid%tail_statevars%streams(1) = 67108864
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%sw040100(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15186,&
'frame/module_domain.f: Failed to allocate grid%sw040100(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw100200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw100200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15195,&
'frame/module_domain.f: Failed to allocate grid%sw100200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw100200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw100200'
grid%tail_statevars%DataName = 'SW100200'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%sw100200
grid%tail_statevars%streams(1) = 67108864
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%sw100200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15245,&
'frame/module_domain.f: Failed to allocate grid%sw100200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sw010200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sw010200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15254,&
'frame/module_domain.f: Failed to allocate grid%sw010200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sw010200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sw010200'
grid%tail_statevars%DataName = 'SW010200'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%sw010200
grid%tail_statevars%streams(1) = 67108864
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%sw010200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15304,&
'frame/module_domain.f: Failed to allocate grid%sw010200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw000').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw000(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15313,&
'frame/module_domain.f: Failed to allocate grid%soilw000(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw000=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw000'
grid%tail_statevars%DataName = 'SOILW000'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw000
grid%tail_statevars%streams(1) = 67108864
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%soilw000(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15363,&
'frame/module_domain.f: Failed to allocate grid%soilw000(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw005').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw005(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15372,&
'frame/module_domain.f: Failed to allocate grid%soilw005(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw005=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw005'
grid%tail_statevars%DataName = 'SOILW005'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw005
grid%tail_statevars%streams(1) = 67108864
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%soilw005(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15422,&
'frame/module_domain.f: Failed to allocate grid%soilw005(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw020').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw020(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15431,&
'frame/module_domain.f: Failed to allocate grid%soilw020(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw020=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw020'
grid%tail_statevars%DataName = 'SOILW020'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw020
grid%tail_statevars%streams(1) = 67108864
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%soilw020(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15481,&
'frame/module_domain.f: Failed to allocate grid%soilw020(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15490,&
'frame/module_domain.f: Failed to allocate grid%soilw040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw040'
grid%tail_statevars%DataName = 'SOILW040'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw040
grid%tail_statevars%streams(1) = 67108864
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%soilw040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15540,&
'frame/module_domain.f: Failed to allocate grid%soilw040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw160').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw160(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15549,&
'frame/module_domain.f: Failed to allocate grid%soilw160(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw160=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw160'
grid%tail_statevars%DataName = 'SOILW160'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw160
grid%tail_statevars%streams(1) = 67108864
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%soilw160(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15599,&
'frame/module_domain.f: Failed to allocate grid%soilw160(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilw300').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilw300(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15608,&
'frame/module_domain.f: Failed to allocate grid%soilw300(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilw300=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilw300'
grid%tail_statevars%DataName = 'SOILW300'
grid%tail_statevars%Description = 'LAYER SOIL LIQUID'
grid%tail_statevars%Units = 'm3 m-3'
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%soilw300
grid%tail_statevars%streams(1) = 67108864
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%soilw300(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15658,&
'frame/module_domain.f: Failed to allocate grid%soilw300(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st000010').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st000010(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15667,&
'frame/module_domain.f: Failed to allocate grid%st000010(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st000010=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st000010'
grid%tail_statevars%DataName = 'ST000010'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st000010
grid%tail_statevars%streams(1) = 67108864
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%st000010(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15717,&
'frame/module_domain.f: Failed to allocate grid%st000010(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st010040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st010040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15726,&
'frame/module_domain.f: Failed to allocate grid%st010040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st010040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st010040'
grid%tail_statevars%DataName = 'ST010040'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st010040
grid%tail_statevars%streams(1) = 67108864
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%st010040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15776,&
'frame/module_domain.f: Failed to allocate grid%st010040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st040100').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st040100(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15785,&
'frame/module_domain.f: Failed to allocate grid%st040100(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st040100=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st040100'
grid%tail_statevars%DataName = 'ST040100'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st040100
grid%tail_statevars%streams(1) = 67108864
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%st040100(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15835,&
'frame/module_domain.f: Failed to allocate grid%st040100(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st100200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st100200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15844,&
'frame/module_domain.f: Failed to allocate grid%st100200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st100200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st100200'
grid%tail_statevars%DataName = 'ST100200'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st100200
grid%tail_statevars%streams(1) = 67108864
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%st100200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15894,&
'frame/module_domain.f: Failed to allocate grid%st100200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'st010200').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%st010200(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15903,&
'frame/module_domain.f: Failed to allocate grid%st010200(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%st010200=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'st010200'
grid%tail_statevars%DataName = 'ST010200'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%st010200
grid%tail_statevars%streams(1) = 67108864
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%st010200(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15953,&
'frame/module_domain.f: Failed to allocate grid%st010200(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt000').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt000(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",15962,&
'frame/module_domain.f: Failed to allocate grid%soilt000(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt000=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt000'
grid%tail_statevars%DataName = 'SOILT000'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt000
grid%tail_statevars%streams(1) = 67108864
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%soilt000(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16012,&
'frame/module_domain.f: Failed to allocate grid%soilt000(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt005').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt005(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16021,&
'frame/module_domain.f: Failed to allocate grid%soilt005(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt005=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt005'
grid%tail_statevars%DataName = 'SOILT005'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt005
grid%tail_statevars%streams(1) = 67108864
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%soilt005(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16071,&
'frame/module_domain.f: Failed to allocate grid%soilt005(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt020').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt020(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16080,&
'frame/module_domain.f: Failed to allocate grid%soilt020(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt020=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt020'
grid%tail_statevars%DataName = 'SOILT020'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt020
grid%tail_statevars%streams(1) = 67108864
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%soilt020(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16130,&
'frame/module_domain.f: Failed to allocate grid%soilt020(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt040').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt040(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16139,&
'frame/module_domain.f: Failed to allocate grid%soilt040(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt040=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt040'
grid%tail_statevars%DataName = 'SOILT040'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt040
grid%tail_statevars%streams(1) = 67108864
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%soilt040(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16189,&
'frame/module_domain.f: Failed to allocate grid%soilt040(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt160').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt160(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16198,&
'frame/module_domain.f: Failed to allocate grid%soilt160(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt160=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt160'
grid%tail_statevars%DataName = 'SOILT160'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt160
grid%tail_statevars%streams(1) = 67108864
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%soilt160(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16248,&
'frame/module_domain.f: Failed to allocate grid%soilt160(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilt300').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilt300(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16257,&
'frame/module_domain.f: Failed to allocate grid%soilt300(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilt300=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilt300'
grid%tail_statevars%DataName = 'SOILT300'
grid%tail_statevars%Description = 'LAYER 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%soilt300
grid%tail_statevars%streams(1) = 67108864
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%soilt300(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16307,&
'frame/module_domain.f: Failed to allocate grid%soilt300(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'topostdv').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%topostdv(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16316,&
'frame/module_domain.f: Failed to allocate grid%topostdv(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%topostdv=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'topostdv'
grid%tail_statevars%DataName = 'TOPOSTDV'
grid%tail_statevars%Description = 'ELEVATION STD DEV'
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%topostdv
grid%tail_statevars%streams(1) = 201326592
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%topostdv(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16366,&
'frame/module_domain.f: Failed to allocate grid%topostdv(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'toposlpx'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%toposlpx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16375,&
'frame/module_domain.f: Failed to allocate grid%toposlpx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%toposlpx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'toposlpx'
grid%tail_statevars%DataName = 'TOPOSLPX'
grid%tail_statevars%Description = 'ELEVATION X SLOPE'
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%toposlpx
grid%tail_statevars%streams(1) = 234881024
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%toposlpx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16425,&
'frame/module_domain.f: Failed to allocate grid%toposlpx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'toposlpy'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%toposlpy(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16434,&
'frame/module_domain.f: Failed to allocate grid%toposlpy(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%toposlpy=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'toposlpy'
grid%tail_statevars%DataName = 'TOPOSLPY'
grid%tail_statevars%Description = 'ELEVATION Y SLOPE'
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%toposlpy
grid%tail_statevars%streams(1) = 234881024
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%toposlpy(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16484,&
'frame/module_domain.f: Failed to allocate grid%toposlpy(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'slope'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%slope(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16493,&
'frame/module_domain.f: Failed to allocate grid%slope(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%slope=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'slope'
grid%tail_statevars%DataName = 'SLOPE'
grid%tail_statevars%Description = 'ELEVATION SLOPE'
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%slope
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%slope(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16543,&
'frame/module_domain.f: Failed to allocate grid%slope(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'slp_azi'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%slp_azi(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16552,&
'frame/module_domain.f: Failed to allocate grid%slp_azi(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%slp_azi=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'slp_azi'
grid%tail_statevars%DataName = 'SLP_AZI'
grid%tail_statevars%Description = 'ELEVATION SLOPE AZIMUTH'
grid%tail_statevars%Units = 'rad'
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%slp_azi
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%slp_azi(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16602,&
'frame/module_domain.f: Failed to allocate grid%slp_azi(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'shdmax'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%shdmax(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16611,&
'frame/module_domain.f: Failed to allocate grid%shdmax(sm31:em31,sm33:em33). ')
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) = 234881025
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>",16661,&
'frame/module_domain.f: Failed to allocate grid%shdmax(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'shdmin'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%shdmin(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16670,&
'frame/module_domain.f: Failed to allocate grid%shdmin(sm31:em31,sm33:em33). ')
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) = 234881025
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>",16720,&
'frame/module_domain.f: Failed to allocate grid%shdmin(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'snoalb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%snoalb(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16729,&
'frame/module_domain.f: Failed to allocate grid%snoalb(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snoalb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'snoalb'
grid%tail_statevars%DataName = 'SNOALB'
grid%tail_statevars%Description = 'ANNUAL MAX SNOW ALBEDO IN 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%snoalb
grid%tail_statevars%streams(1) = 234881025
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%snoalb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16779,&
'frame/module_domain.f: Failed to allocate grid%snoalb(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'slopecat').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%slopecat(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16788,&
'frame/module_domain.f: Failed to allocate grid%slopecat(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%slopecat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'slopecat'
grid%tail_statevars%DataName = 'SLOPECAT'
grid%tail_statevars%Description = 'SLOPE CATEGORY'
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%slopecat
grid%tail_statevars%streams(1) = 201326592
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%slopecat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16838,&
'frame/module_domain.f: Failed to allocate grid%slopecat(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'toposoil').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%toposoil(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16847,&
'frame/module_domain.f: Failed to allocate grid%toposoil(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%toposoil=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'toposoil'
grid%tail_statevars%DataName = 'SOILHGT'
grid%tail_statevars%Description = 'ELEVATION OF LSM DATA'
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%toposoil
grid%tail_statevars%streams(1) = 201326592
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%toposoil(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16897,&
'frame/module_domain.f: Failed to allocate grid%toposoil(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'landusef').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_land_cat)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%landusef(sm31:em31,1:model_config_rec%num_land_cat,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16906,&
'frame/module_domain.f: Failed to allocate grid%landusef(sm31:em31,1:model_config_rec%num_land_cat,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%landusef=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'landusef'
grid%tail_statevars%DataName = 'LANDUSEF'
grid%tail_statevars%Description = 'LANDUSE FRACTION BY CATEGORY'
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%landusef
grid%tail_statevars%streams(1) = 234881024
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_land_cat
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_land_cat
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_land_cat
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 = 'land_cat_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%landusef(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16956,&
'frame/module_domain.f: Failed to allocate grid%landusef(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilctop').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_cat)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilctop(sm31:em31,1:model_config_rec%num_soil_cat,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",16965,&
'frame/module_domain.f: Failed to allocate grid%soilctop(sm31:em31,1:model_config_rec%num_soil_cat,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilctop=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilctop'
grid%tail_statevars%DataName = 'SOILCTOP'
grid%tail_statevars%Description = 'SOIL CAT FRACTION (TOP)'
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%soilctop
grid%tail_statevars%streams(1) = 234881024
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_cat
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_cat
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_cat
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_cat_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soilctop(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17015,&
'frame/module_domain.f: Failed to allocate grid%soilctop(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilcbot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_cat)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilcbot(sm31:em31,1:model_config_rec%num_soil_cat,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17024,&
'frame/module_domain.f: Failed to allocate grid%soilcbot(sm31:em31,1:model_config_rec%num_soil_cat,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilcbot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilcbot'
grid%tail_statevars%DataName = 'SOILCBOT'
grid%tail_statevars%Description = 'SOIL CAT FRACTION (BOTTOM)'
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%soilcbot
grid%tail_statevars%streams(1) = 234881024
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_cat
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_cat
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_cat
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_cat_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%soilcbot(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17074,&
'frame/module_domain.f: Failed to allocate grid%soilcbot(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soilcat').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soilcat(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17083,&
'frame/module_domain.f: Failed to allocate grid%soilcat(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soilcat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soilcat'
grid%tail_statevars%DataName = 'SOILCAT'
grid%tail_statevars%Description = 'SOIL CAT DOMINANT TYPE'
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%soilcat
grid%tail_statevars%streams(1) = 201326592
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%soilcat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17133,&
'frame/module_domain.f: Failed to allocate grid%soilcat(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'vegcat').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%vegcat(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17142,&
'frame/module_domain.f: Failed to allocate grid%vegcat(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegcat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vegcat'
grid%tail_statevars%DataName = 'VEGCAT'
grid%tail_statevars%Description = 'VEGETATION CAT DOMINANT TYPE'
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%vegcat
grid%tail_statevars%streams(1) = 201326592
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%vegcat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17192,&
'frame/module_domain.f: Failed to allocate grid%vegcat(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'tslb'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%tslb(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17201,&
'frame/module_domain.f: Failed to allocate grid%tslb(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%tslb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'tslb'
grid%tail_statevars%DataName = 'TSLB'
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%tslb
grid%tail_statevars%streams(1) = 167772161
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%tslb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17251,&
'frame/module_domain.f: Failed to allocate grid%tslb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_hour').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_hour(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17260,&
'frame/module_domain.f: Failed to allocate grid%ts_hour(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_hour=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_hour'
grid%tail_statevars%DataName = 'TS_HOUR'
grid%tail_statevars%Description = 'Model integration time, hours'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_hour
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_hour(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17308,&
'frame/module_domain.f: Failed to allocate grid%ts_hour(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_u').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_u(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17317,&
'frame/module_domain.f: Failed to allocate grid%ts_u(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_u=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_u'
grid%tail_statevars%DataName = 'TS_U'
grid%tail_statevars%Description = 'Surface wind U-component, earth-relative'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_u
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_u(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17365,&
'frame/module_domain.f: Failed to allocate grid%ts_u(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_v').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_v(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17374,&
'frame/module_domain.f: Failed to allocate grid%ts_v(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_v=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_v'
grid%tail_statevars%DataName = 'TS_V'
grid%tail_statevars%Description = 'Surface wind V-component, earth-relative'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_v
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_v(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17422,&
'frame/module_domain.f: Failed to allocate grid%ts_v(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_q').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_q(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17431,&
'frame/module_domain.f: Failed to allocate grid%ts_q(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_q=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_q'
grid%tail_statevars%DataName = 'TS_Q'
grid%tail_statevars%Description = 'Surface mixing ratio'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_q
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_q(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17479,&
'frame/module_domain.f: Failed to allocate grid%ts_q(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_t').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_t(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17488,&
'frame/module_domain.f: Failed to allocate grid%ts_t(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_t=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_t'
grid%tail_statevars%DataName = 'TS_T'
grid%tail_statevars%Description = 'Surface temperature'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_t
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_t(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17536,&
'frame/module_domain.f: Failed to allocate grid%ts_t(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_psfc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_psfc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17545,&
'frame/module_domain.f: Failed to allocate grid%ts_psfc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_psfc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_psfc'
grid%tail_statevars%DataName = 'TS_PSFC'
grid%tail_statevars%Description = 'Surface pressure'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_psfc
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_psfc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17593,&
'frame/module_domain.f: Failed to allocate grid%ts_psfc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_glw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_glw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17602,&
'frame/module_domain.f: Failed to allocate grid%ts_glw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_glw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_glw'
grid%tail_statevars%DataName = 'TS_GLW'
grid%tail_statevars%Description = 'Downward long wave flux at surface'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_glw
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_glw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17650,&
'frame/module_domain.f: Failed to allocate grid%ts_glw(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_gsw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_gsw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17659,&
'frame/module_domain.f: Failed to allocate grid%ts_gsw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_gsw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_gsw'
grid%tail_statevars%DataName = 'TS_GSW'
grid%tail_statevars%Description = 'Net short wave flux at surface'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_gsw
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_gsw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17707,&
'frame/module_domain.f: Failed to allocate grid%ts_gsw(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_hfx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_hfx(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17716,&
'frame/module_domain.f: Failed to allocate grid%ts_hfx(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_hfx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_hfx'
grid%tail_statevars%DataName = 'TS_HFX'
grid%tail_statevars%Description = 'Upward heat flux at surface'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_hfx
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_hfx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17764,&
'frame/module_domain.f: Failed to allocate grid%ts_hfx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_lh').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_lh(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17773,&
'frame/module_domain.f: Failed to allocate grid%ts_lh(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_lh=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_lh'
grid%tail_statevars%DataName = 'TS_LH'
grid%tail_statevars%Description = 'Upward moisture flux at surface'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_lh
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_lh(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17821,&
'frame/module_domain.f: Failed to allocate grid%ts_lh(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_tsk').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_tsk(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17830,&
'frame/module_domain.f: Failed to allocate grid%ts_tsk(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_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 = 'ts_tsk'
grid%tail_statevars%DataName = 'TS_TSK'
grid%tail_statevars%Description = 'Skin temperature'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_tsk
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_tsk(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17878,&
'frame/module_domain.f: Failed to allocate grid%ts_tsk(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_tslb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_tslb(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17887,&
'frame/module_domain.f: Failed to allocate grid%ts_tslb(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_tslb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_tslb'
grid%tail_statevars%DataName = 'TS_TSLB'
grid%tail_statevars%Description = 'Soil temperature'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_tslb
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_tslb(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17935,&
'frame/module_domain.f: Failed to allocate grid%ts_tslb(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_clw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_clw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17944,&
'frame/module_domain.f: Failed to allocate grid%ts_clw(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_clw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_clw'
grid%tail_statevars%DataName = 'TS_CLW'
grid%tail_statevars%Description = 'Column integrated cloud water'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_clw
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_clw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",17992,&
'frame/module_domain.f: Failed to allocate grid%ts_clw(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_rainc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_rainc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18001,&
'frame/module_domain.f: Failed to allocate grid%ts_rainc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_rainc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_rainc'
grid%tail_statevars%DataName = 'TS_RAINC'
grid%tail_statevars%Description = 'Cumulus precip'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_rainc
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_rainc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18049,&
'frame/module_domain.f: Failed to allocate grid%ts_rainc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_rainnc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))) * 4
ALLOCATE(grid%ts_rainnc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18058,&
'frame/module_domain.f: Failed to allocate grid%ts_rainnc(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_rainnc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_rainnc'
grid%tail_statevars%DataName = 'TS_RAINNC'
grid%tail_statevars%Description = 'Grid-scale precip'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CC'
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%ts_rainnc
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%ts_rainnc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18106,&
'frame/module_domain.f: Failed to allocate grid%ts_rainnc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_u_profile').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ts_u_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18115,&
'frame/module_domain.f: Failed to allocate grid%ts_u_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_u_profile=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_u_profile'
grid%tail_statevars%DataName = 'TS_U_PROFILE'
grid%tail_statevars%Description = 'Wind u-Component, earth relative, vertical profile'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CCZ'
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%ts_u_profile
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%ts_u_profile(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18163,&
'frame/module_domain.f: Failed to allocate grid%ts_u_profile(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_v_profile').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ts_v_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18172,&
'frame/module_domain.f: Failed to allocate grid%ts_v_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_v_profile=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_v_profile'
grid%tail_statevars%DataName = 'TS_V_PROFILE'
grid%tail_statevars%Description = 'Wind v-Component, earth relative, vertical profile'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CCZ'
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%ts_v_profile
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%ts_v_profile(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18220,&
'frame/module_domain.f: Failed to allocate grid%ts_v_profile(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_gph_profile').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ts_gph_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18229,&
'frame/module_domain.f: Failed to allocate grid%ts_gph_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_gph_profile=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_gph_profile'
grid%tail_statevars%DataName = 'TS_GPH_PROFILE'
grid%tail_statevars%Description = 'Total geopotential height, vertical profile'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CCZ'
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%ts_gph_profile
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%ts_gph_profile(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18277,&
'frame/module_domain.f: Failed to allocate grid%ts_gph_profile(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_th_profile').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ts_th_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18286,&
'frame/module_domain.f: Failed to allocate grid%ts_th_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_th_profile=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_th_profile'
grid%tail_statevars%DataName = 'TS_TH_PROFILE'
grid%tail_statevars%Description = 'Total potential temperature, vertical profile'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CCZ'
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%ts_th_profile
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%ts_th_profile(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18334,&
'frame/module_domain.f: Failed to allocate grid%ts_th_profile(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ts_qv_profile').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%ts_buf_size)-(1)+1))*(((model_config_rec%max_ts_locs)-(1)+1))*(((em32)-(sm32)+1))) * 4
ALLOCATE(grid%ts_qv_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18343,&
'frame/module_domain.f: Failed to allocate grid%ts_qv_profile(1:model_config_rec%ts_buf_size,1:model_config_rec%max_ts_locs,sm32:em32). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ts_qv_profile=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'ts_qv_profile'
grid%tail_statevars%DataName = 'TS_QV_PROFILE'
grid%tail_statevars%Description = 'Water vapor mixing ratio, vertical profile'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'CCZ'
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%ts_qv_profile
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%ts_buf_size
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = config_flags%max_ts_locs
grid%tail_statevars%sd3 = kds
grid%tail_statevars%ed3 = (kde-1)
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%ts_buf_size
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = config_flags%max_ts_locs
grid%tail_statevars%sm3 = kms
grid%tail_statevars%em3 = kme
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%ts_buf_size
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = config_flags%max_ts_locs
grid%tail_statevars%sp3 = kps
grid%tail_statevars%ep3 = MIN( (kde-1), kpe )
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = 'bottom_top'
ENDIF
ELSE
ALLOCATE(grid%ts_qv_profile(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18391,&
'frame/module_domain.f: Failed to allocate grid%ts_qv_profile(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dzr').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%dzr(1:model_config_rec%num_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18400,&
'frame/module_domain.f: Failed to allocate grid%dzr(1:model_config_rec%num_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzr=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dzr'
grid%tail_statevars%DataName = 'DZR'
grid%tail_statevars%Description = 'THICKNESSES OF ROOF LAYERS'
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%dzr
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'soil_layers_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dzr(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18448,&
'frame/module_domain.f: Failed to allocate grid%dzr(1). ')
endif
ENDIF
IF(in_use_for_config(id,'dzb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%dzb(1:model_config_rec%num_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18457,&
'frame/module_domain.f: Failed to allocate grid%dzb(1:model_config_rec%num_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzb=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dzb'
grid%tail_statevars%DataName = 'DZB'
grid%tail_statevars%Description = 'THICKNESSES OF WALL LAYERS'
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%dzb
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'soil_layers_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dzb(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18505,&
'frame/module_domain.f: Failed to allocate grid%dzb(1). ')
endif
ENDIF
IF(in_use_for_config(id,'dzg').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%num_soil_layers)-(1)+1))) * 4
ALLOCATE(grid%dzg(1:model_config_rec%num_soil_layers),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18514,&
'frame/module_domain.f: Failed to allocate grid%dzg(1:model_config_rec%num_soil_layers). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzg=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dzg'
grid%tail_statevars%DataName = 'DZG'
grid%tail_statevars%Description = 'THICKNESSES OF ROAD LAYERS'
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%dzg
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 2097152
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%num_soil_layers
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%num_soil_layers
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%num_soil_layers
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = 'soil_layers_stag'
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%dzg(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18562,&
'frame/module_domain.f: Failed to allocate grid%dzg(1). ')
endif
ENDIF
IF(in_use_for_config(id,'urb_param'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((132)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%urb_param(sm31:em31,1:132,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18571,&
'frame/module_domain.f: Failed to allocate grid%urb_param(sm31:em31,1:132,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%urb_param=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'urb_param'
grid%tail_statevars%DataName = 'URB_PARAM'
grid%tail_statevars%Description = 'NUDAPT_NBSD Urban Parameters'
grid%tail_statevars%Units = 'parameter'
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%urb_param
grid%tail_statevars%streams(1) = 67108864
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = ids
grid%tail_statevars%ed1 = (ide-1)
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 132
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 = 132
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 = 132
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 = 'num_urb_params'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%urb_param(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18621,&
'frame/module_domain.f: Failed to allocate grid%urb_param(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lp_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lp_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18630,&
'frame/module_domain.f: Failed to allocate grid%lp_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lp_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lp_urb2d'
grid%tail_statevars%DataName = 'BUILD_AREA_FRACTION'
grid%tail_statevars%Description = 'BUILDING PLAN AREA DENSITY'
grid%tail_statevars%Units = 'dimensionless'
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%lp_urb2d
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%lp_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18680,&
'frame/module_domain.f: Failed to allocate grid%lp_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'hi_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%hi_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18689,&
'frame/module_domain.f: Failed to allocate grid%hi_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hi_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hi_urb2d'
grid%tail_statevars%DataName = 'HEIGHT_HISTOGRAMS'
grid%tail_statevars%Description = 'DISTRIBUTION OF BUILDING HEIGHTS'
grid%tail_statevars%Units = 'dimensionless'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%hi_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%hi_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18739,&
'frame/module_domain.f: Failed to allocate grid%hi_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lb_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lb_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18748,&
'frame/module_domain.f: Failed to allocate grid%lb_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lb_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lb_urb2d'
grid%tail_statevars%DataName = 'BUILD_SURF_RATIO'
grid%tail_statevars%Description = 'BUILDING SURFACE AREA TO PLAN AREA RATIO'
grid%tail_statevars%Units = 'dimensionless'
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%lb_urb2d
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%lb_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18798,&
'frame/module_domain.f: Failed to allocate grid%lb_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'hgt_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%hgt_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18807,&
'frame/module_domain.f: Failed to allocate grid%hgt_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hgt_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hgt_urb2d'
grid%tail_statevars%DataName = 'BUILD_HEIGHT'
grid%tail_statevars%Description = 'AVERAGE BUILDING HEIGHT WEIGHTED BY BUILDING PLAN AREA'
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%hgt_urb2d
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%hgt_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18857,&
'frame/module_domain.f: Failed to allocate grid%hgt_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'fad0_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fad0_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18866,&
'frame/module_domain.f: Failed to allocate grid%fad0_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fad0_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fad0_urb2d'
grid%tail_statevars%DataName = 'FAD0_URB2D'
grid%tail_statevars%Description = 'Frontal Area Density from the 0 Degree Wind Direction'
grid%tail_statevars%Units = 'm-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fad0_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%fad0_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18916,&
'frame/module_domain.f: Failed to allocate grid%fad0_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'fad135_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fad135_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18925,&
'frame/module_domain.f: Failed to allocate grid%fad135_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fad135_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fad135_urb2d'
grid%tail_statevars%DataName = 'FAD135_URB2D'
grid%tail_statevars%Description = 'Frontal Area Density from the 135 Degree Direction'
grid%tail_statevars%Units = 'm-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fad135_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%fad135_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18975,&
'frame/module_domain.f: Failed to allocate grid%fad135_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'fad45_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fad45_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",18984,&
'frame/module_domain.f: Failed to allocate grid%fad45_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fad45_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fad45_urb2d'
grid%tail_statevars%DataName = 'FAD45_URB2D'
grid%tail_statevars%Description = 'Frontal Area Density from the 45 Degree Wind Direction'
grid%tail_statevars%Units = 'm-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fad45_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%fad45_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19034,&
'frame/module_domain.f: Failed to allocate grid%fad45_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'pad_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%pad_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19043,&
'frame/module_domain.f: Failed to allocate grid%pad_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%pad_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'pad_urb2d'
grid%tail_statevars%DataName = 'PAD_URB2D'
grid%tail_statevars%Description = 'Building Plan Area Density'
grid%tail_statevars%Units = 'm-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%pad_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%pad_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19093,&
'frame/module_domain.f: Failed to allocate grid%pad_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'fad90_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%fad90_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19102,&
'frame/module_domain.f: Failed to allocate grid%fad90_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%fad90_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'fad90_urb2d'
grid%tail_statevars%DataName = 'FAD90_URB2D'
grid%tail_statevars%Description = 'Frontal Area Density from the 90 Degree Wind Direction'
grid%tail_statevars%Units = 'm-1'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%fad90_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%fad90_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19152,&
'frame/module_domain.f: Failed to allocate grid%fad90_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'rad_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_urban_hi)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%rad_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19161,&
'frame/module_domain.f: Failed to allocate grid%rad_urb2d(sm31:em31,1:model_config_rec%num_urban_hi,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%rad_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'rad_urb2d'
grid%tail_statevars%DataName = 'RAD_URB2D'
grid%tail_statevars%Description = 'Roof Area Density'
grid%tail_statevars%Units = 'm-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%rad_urb2d
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 = 1
grid%tail_statevars%ed2 = config_flags%num_urban_hi
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_urban_hi
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_urban_hi
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 = 'urban_vertical_layers'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%rad_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19211,&
'frame/module_domain.f: Failed to allocate grid%rad_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'mh_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%mh_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19220,&
'frame/module_domain.f: Failed to allocate grid%mh_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%mh_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'mh_urb2d'
grid%tail_statevars%DataName = 'MH_URB2D'
grid%tail_statevars%Description = 'Mean Building 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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_2d => grid%mh_urb2d
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%mh_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19270,&
'frame/module_domain.f: Failed to allocate grid%mh_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'stdh_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%stdh_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19279,&
'frame/module_domain.f: Failed to allocate grid%stdh_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%stdh_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'stdh_urb2d'
grid%tail_statevars%DataName = 'STDH_URB2D'
grid%tail_statevars%Description = 'Standard Deviation of Building Height'
grid%tail_statevars%Units = 'm2'
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%stdh_urb2d
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%stdh_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19329,&
'frame/module_domain.f: Failed to allocate grid%stdh_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'lf_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((4)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%lf_urb2d(sm31:em31,1:4,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19338,&
'frame/module_domain.f: Failed to allocate grid%lf_urb2d(sm31:em31,1:4,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lf_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'lf_urb2d'
grid%tail_statevars%DataName = 'LF_URB2D'
grid%tail_statevars%Description = 'Frontal Area Index'
grid%tail_statevars%Units = 'dimensionless'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%lf_urb2d
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 = 1
grid%tail_statevars%ed2 = 4
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 = 4
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 = 4
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 = 'urban_wind_directions_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%lf_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19388,&
'frame/module_domain.f: Failed to allocate grid%lf_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'car_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%car_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19397,&
'frame/module_domain.f: Failed to allocate grid%car_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%car_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'car_urb2d'
grid%tail_statevars%DataName = 'CAR_URB2D'
grid%tail_statevars%Description = 'Complete Aspect Ratio'
grid%tail_statevars%Units = 'dimensionless'
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%car_urb2d
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%car_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19447,&
'frame/module_domain.f: Failed to allocate grid%car_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'h2w_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%h2w_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19456,&
'frame/module_domain.f: Failed to allocate grid%h2w_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%h2w_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'h2w_urb2d'
grid%tail_statevars%DataName = 'H2W_URB2D'
grid%tail_statevars%Description = 'Height-to-Width Ratio'
grid%tail_statevars%Units = 'dimensionless'
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%h2w_urb2d
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%h2w_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19506,&
'frame/module_domain.f: Failed to allocate grid%h2w_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'svf_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%svf_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19515,&
'frame/module_domain.f: Failed to allocate grid%svf_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%svf_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'svf_urb2d'
grid%tail_statevars%DataName = 'SVF_URB2D'
grid%tail_statevars%Description = 'Sky View Factor'
grid%tail_statevars%Units = 'dimensionless'
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%svf_urb2d
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%svf_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19565,&
'frame/module_domain.f: Failed to allocate grid%svf_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'z0s_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%z0s_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19574,&
'frame/module_domain.f: Failed to allocate grid%z0s_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z0s_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z0s_urb2d'
grid%tail_statevars%DataName = 'Z0S_URB2D'
grid%tail_statevars%Description = 'Roughness Length S'
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%z0s_urb2d
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%z0s_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19624,&
'frame/module_domain.f: Failed to allocate grid%z0s_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'z0r_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((4)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%z0r_urb2d(sm31:em31,1:4,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19633,&
'frame/module_domain.f: Failed to allocate grid%z0r_urb2d(sm31:em31,1:4,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z0r_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z0r_urb2d'
grid%tail_statevars%DataName = 'Z0R_URB2D'
grid%tail_statevars%Description = 'Roughness Length R'
grid%tail_statevars%Units = 'm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%z0r_urb2d
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 = 1
grid%tail_statevars%ed2 = 4
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 = 4
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 = 4
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 = 'urban_wind_directions_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%z0r_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19683,&
'frame/module_domain.f: Failed to allocate grid%z0r_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'z0m_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((4)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%z0m_urb2d(sm31:em31,1:4,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19692,&
'frame/module_domain.f: Failed to allocate grid%z0m_urb2d(sm31:em31,1:4,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%z0m_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'z0m_urb2d'
grid%tail_statevars%DataName = 'Z0M_URB2D'
grid%tail_statevars%Description = 'Roughness Length M'
grid%tail_statevars%Units = 'm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%z0m_urb2d
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 = 1
grid%tail_statevars%ed2 = 4
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 = 4
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 = 4
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 = 'urban_wind_directions_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%z0m_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19742,&
'frame/module_domain.f: Failed to allocate grid%z0m_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'zds_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zds_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19751,&
'frame/module_domain.f: Failed to allocate grid%zds_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zds_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zds_urb2d'
grid%tail_statevars%DataName = 'ZDS_URB2D'
grid%tail_statevars%Description = 'Displacement Height S'
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%zds_urb2d
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%zds_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19801,&
'frame/module_domain.f: Failed to allocate grid%zds_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'zdm_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zdm_urb2d(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19810,&
'frame/module_domain.f: Failed to allocate grid%zdm_urb2d(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zdm_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zdm_urb2d'
grid%tail_statevars%DataName = 'ZDM_URB2D'
grid%tail_statevars%Description = 'Displacement Height M'
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%zdm_urb2d
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%zdm_urb2d(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19860,&
'frame/module_domain.f: Failed to allocate grid%zdm_urb2d(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'zdr_urb2d').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((4)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%zdr_urb2d(sm31:em31,1:4,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19869,&
'frame/module_domain.f: Failed to allocate grid%zdr_urb2d(sm31:em31,1:4,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zdr_urb2d=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'zdr_urb2d'
grid%tail_statevars%DataName = 'ZDR_URB2D'
grid%tail_statevars%Description = 'Displacement Height R'
grid%tail_statevars%Units = 'm'
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 = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_3d => grid%zdr_urb2d
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 = 1
grid%tail_statevars%ed2 = 4
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 = 4
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 = 4
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 = 'urban_wind_directions_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%zdr_urb2d(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19919,&
'frame/module_domain.f: Failed to allocate grid%zdr_urb2d(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'smois'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%smois(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19928,&
'frame/module_domain.f: Failed to allocate grid%smois(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smois=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'smois'
grid%tail_statevars%DataName = 'SMOIS'
grid%tail_statevars%Description = 'SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%smois
grid%tail_statevars%streams(1) = 167772161
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%smois(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19978,&
'frame/module_domain.f: Failed to allocate grid%smois(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sh2o'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sh2o(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",19987,&
'frame/module_domain.f: Failed to allocate grid%sh2o(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
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 = 'SOIL LIQUID WATER'
grid%tail_statevars%Units = 'm3 m-3'
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) = 167772161
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>",20037,&
'frame/module_domain.f: Failed to allocate grid%sh2o(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'smcrel'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%smcrel(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20046,&
'frame/module_domain.f: Failed to allocate grid%smcrel(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smcrel=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'smcrel'
grid%tail_statevars%DataName = 'SMCREL'
grid%tail_statevars%Description = 'RELATIVE SOIL MOISTURE'
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%smcrel
grid%tail_statevars%streams(1) = 167772161
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%smcrel(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20096,&
'frame/module_domain.f: Failed to allocate grid%smcrel(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'xice'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xice(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20105,&
'frame/module_domain.f: Failed to allocate grid%xice(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xice=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xice'
grid%tail_statevars%DataName = 'SEAICE'
grid%tail_statevars%Description = 'SEA ICE FLAG'
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%xice
grid%tail_statevars%streams(1) = 771751937
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%xice(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20155,&
'frame/module_domain.f: Failed to allocate grid%xice(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'icedepth'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%icedepth(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20164,&
'frame/module_domain.f: Failed to allocate grid%icedepth(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%icedepth=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'icedepth'
grid%tail_statevars%DataName = 'ICEDEPTH'
grid%tail_statevars%Description = 'SEA ICE THICKNESS'
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%icedepth
grid%tail_statevars%streams(1) = 771751937
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%icedepth(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20214,&
'frame/module_domain.f: Failed to allocate grid%icedepth(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'xicem'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%xicem(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20223,&
'frame/module_domain.f: Failed to allocate grid%xicem(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%xicem=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'xicem'
grid%tail_statevars%DataName = 'XICEM'
grid%tail_statevars%Description = 'SEA ICE FLAG (PREVIOUS STEP)'
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%xicem
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%xicem(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20273,&
'frame/module_domain.f: Failed to allocate grid%xicem(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'albsi'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%albsi(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20282,&
'frame/module_domain.f: Failed to allocate grid%albsi(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%albsi=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'albsi'
grid%tail_statevars%DataName = 'ALBSI'
grid%tail_statevars%Description = 'SEA ICE 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%albsi
grid%tail_statevars%streams(1) = 771751937
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%albsi(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20332,&
'frame/module_domain.f: Failed to allocate grid%albsi(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'snowsi'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%snowsi(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20341,&
'frame/module_domain.f: Failed to allocate grid%snowsi(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowsi=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'snowsi'
grid%tail_statevars%DataName = 'SNOWSI'
grid%tail_statevars%Description = 'SNOW DEPTH ON SEA ICE'
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%snowsi
grid%tail_statevars%streams(1) = 771751937
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%snowsi(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20391,&
'frame/module_domain.f: Failed to allocate grid%snowsi(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'smstav'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%smstav(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20400,&
'frame/module_domain.f: Failed to allocate grid%smstav(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smstav=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'smstav'
grid%tail_statevars%DataName = 'SMSTAV'
grid%tail_statevars%Description = 'MOISTURE AVAILABILITY'
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%smstav
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%smstav(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20450,&
'frame/module_domain.f: Failed to allocate grid%smstav(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'smstot').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%smstot(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20459,&
'frame/module_domain.f: Failed to allocate grid%smstot(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%smstot=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'smstot'
grid%tail_statevars%DataName = 'SMSTOT'
grid%tail_statevars%Description = 'TOTAL SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%smstot
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%smstot(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20509,&
'frame/module_domain.f: Failed to allocate grid%smstot(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'soldrain').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%soldrain(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20518,&
'frame/module_domain.f: Failed to allocate grid%soldrain(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%soldrain=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'soldrain'
grid%tail_statevars%DataName = 'SOLDRAIN'
grid%tail_statevars%Description = 'soil column drainage'
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%soldrain
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%soldrain(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20568,&
'frame/module_domain.f: Failed to allocate grid%soldrain(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sfcheadrt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sfcheadrt(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20577,&
'frame/module_domain.f: Failed to allocate grid%sfcheadrt(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcheadrt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcheadrt'
grid%tail_statevars%DataName = 'SFCHEADRT'
grid%tail_statevars%Description = 'surface water depth'
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%sfcheadrt
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%sfcheadrt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20627,&
'frame/module_domain.f: Failed to allocate grid%sfcheadrt(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'infxsrt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%infxsrt(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20636,&
'frame/module_domain.f: Failed to allocate grid%infxsrt(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%infxsrt=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'infxsrt'
grid%tail_statevars%DataName = 'INFXSRT'
grid%tail_statevars%Description = 'time step infiltration excess'
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%infxsrt
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%infxsrt(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20686,&
'frame/module_domain.f: Failed to allocate grid%infxsrt(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sfcrunoff'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sfcrunoff(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20695,&
'frame/module_domain.f: Failed to allocate grid%sfcrunoff(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcrunoff=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcrunoff'
grid%tail_statevars%DataName = 'SFROFF'
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%sfcrunoff
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%sfcrunoff(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20745,&
'frame/module_domain.f: Failed to allocate grid%sfcrunoff(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'udrunoff'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%udrunoff(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20754,&
'frame/module_domain.f: Failed to allocate grid%udrunoff(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%udrunoff=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'udrunoff'
grid%tail_statevars%DataName = 'UDROFF'
grid%tail_statevars%Description = 'UNDERGROUND 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%udrunoff
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%udrunoff(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20804,&
'frame/module_domain.f: Failed to allocate grid%udrunoff(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'ivgtyp'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%ivgtyp(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20813,&
'frame/module_domain.f: Failed to allocate grid%ivgtyp(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%ivgtyp=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 = 'ivgtyp'
grid%tail_statevars%DataName = 'IVGTYP'
grid%tail_statevars%Description = 'DOMINANT VEGETATION CATEGORY'
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%ivgtyp
grid%tail_statevars%streams(1) = 167772161
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%ivgtyp(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20863,&
'frame/module_domain.f: Failed to allocate grid%ivgtyp(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'isltyp'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%isltyp(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20872,&
'frame/module_domain.f: Failed to allocate grid%isltyp(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%isltyp=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 = 'isltyp'
grid%tail_statevars%DataName = 'ISLTYP'
grid%tail_statevars%Description = 'DOMINANT SOIL CATEGORY'
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%isltyp
grid%tail_statevars%streams(1) = 167772161
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%isltyp(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20922,&
'frame/module_domain.f: Failed to allocate grid%isltyp(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'vegfra'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%vegfra(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20931,&
'frame/module_domain.f: Failed to allocate grid%vegfra(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%vegfra=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'vegfra'
grid%tail_statevars%DataName = 'VEGFRA'
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%vegfra
grid%tail_statevars%streams(1) = 704643073
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%vegfra(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20981,&
'frame/module_domain.f: Failed to allocate grid%vegfra(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sfcevp').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sfcevp(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",20990,&
'frame/module_domain.f: Failed to allocate grid%sfcevp(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcevp=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcevp'
grid%tail_statevars%DataName = 'SFCEVP'
grid%tail_statevars%Description = 'ACCUMULATED SURFACE EVAPORATION'
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%sfcevp
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%sfcevp(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21040,&
'frame/module_domain.f: Failed to allocate grid%sfcevp(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'grdflx').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%grdflx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21049,&
'frame/module_domain.f: Failed to allocate grid%grdflx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%grdflx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'grdflx'
grid%tail_statevars%DataName = 'GRDFLX'
grid%tail_statevars%Description = 'GROUND 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%grdflx
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%grdflx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21099,&
'frame/module_domain.f: Failed to allocate grid%grdflx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'acgrdflx'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%acgrdflx(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21108,&
'frame/module_domain.f: Failed to allocate grid%acgrdflx(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acgrdflx=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acgrdflx'
grid%tail_statevars%DataName = 'ACGRDFLX'
grid%tail_statevars%Description = 'ACCUMULATED GROUND HEAT FLUX'
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%acgrdflx
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%acgrdflx(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21158,&
'frame/module_domain.f: Failed to allocate grid%acgrdflx(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'sfcexc').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sfcexc(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21167,&
'frame/module_domain.f: Failed to allocate grid%sfcexc(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sfcexc=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sfcexc'
grid%tail_statevars%DataName = 'SFCEXC '
grid%tail_statevars%Description = 'SURFACE EXCHANGE COEFFICIENT'
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%sfcexc
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%sfcexc(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21217,&
'frame/module_domain.f: Failed to allocate grid%sfcexc(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'acsnow'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%acsnow(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21226,&
'frame/module_domain.f: Failed to allocate grid%acsnow(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnow=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acsnow'
grid%tail_statevars%DataName = 'ACSNOW'
grid%tail_statevars%Description = 'ACCUMULATED SNOW'
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%acsnow
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%acsnow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21276,&
'frame/module_domain.f: Failed to allocate grid%acsnow(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'acsnom'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%acsnom(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21285,&
'frame/module_domain.f: Failed to allocate grid%acsnom(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%acsnom=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'acsnom'
grid%tail_statevars%DataName = 'ACSNOM'
grid%tail_statevars%Description = 'ACCUMULATED MELTED SNOW'
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%acsnom
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%acsnom(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21335,&
'frame/module_domain.f: Failed to allocate grid%acsnom(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'snow'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%snow(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21344,&
'frame/module_domain.f: Failed to allocate grid%snow(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%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 = 'snow'
grid%tail_statevars%DataName = 'SNOW'
grid%tail_statevars%Description = 'SNOW WATER EQUIVALENT'
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%snow
grid%tail_statevars%streams(1) = 234881025
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%snow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21394,&
'frame/module_domain.f: Failed to allocate grid%snow(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'snowh'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%snowh(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21403,&
'frame/module_domain.f: Failed to allocate grid%snowh(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%snowh=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'snowh'
grid%tail_statevars%DataName = 'SNOWH'
grid%tail_statevars%Description = 'PHYSICAL SNOW DEPTH'
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%snowh
grid%tail_statevars%streams(1) = 234881025
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%snowh(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21453,&
'frame/module_domain.f: Failed to allocate grid%snowh(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'canwat'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%canwat(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21462,&
'frame/module_domain.f: Failed to allocate grid%canwat(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%canwat=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'canwat'
grid%tail_statevars%DataName = 'CANWAT'
grid%tail_statevars%Description = 'CANOPY WATER'
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%canwat
grid%tail_statevars%streams(1) = 234881025
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%canwat(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21512,&
'frame/module_domain.f: Failed to allocate grid%canwat(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 = 'ifndsnowh'
grid%tail_statevars%DataName = 'FNDSNOWH'
grid%tail_statevars%Description = 'SNOWH_LOGICAL'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ifndsnowh
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%ifndsnowh=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 = 'ifndsoilw'
grid%tail_statevars%DataName = 'FNDSOILW'
grid%tail_statevars%Description = 'SOILW_LOGICAL'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ifndsoilw
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%ifndsoilw=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 = 'ifndalbsi'
grid%tail_statevars%DataName = 'FNDALBSI'
grid%tail_statevars%Description = 'ALBSI_LOGICAL'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ifndalbsi
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%ifndalbsi=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 = 'ifndsnowsi'
grid%tail_statevars%DataName = 'FNDSNOWSI'
grid%tail_statevars%Description = 'SNOWSI_LOGICAL'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ifndsnowsi
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%ifndsnowsi=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 = 'ifndicedepth'
grid%tail_statevars%DataName = 'FNDICEDEPTH'
grid%tail_statevars%Description = 'ICEDEPTH_LOGICAL'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'i'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%ifield_0d => grid%ifndicedepth
grid%tail_statevars%streams(1) = 33554432
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%ifndicedepth=0
IF(in_use_for_config(id,'sstsk'))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%sstsk(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21616,&
'frame/module_domain.f: Failed to allocate grid%sstsk(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%sstsk=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'sstsk'
grid%tail_statevars%DataName = 'SSTSK'
grid%tail_statevars%Description = 'SKIN SEA SURFACE 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%sstsk
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%sstsk(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21666,&
'frame/module_domain.f: Failed to allocate grid%sstsk(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dtw').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dtw(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21675,&
'frame/module_domain.f: Failed to allocate grid%dtw(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dtw=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'dtw'
grid%tail_statevars%DataName = 'DTW'
grid%tail_statevars%Description = 'WARM LAYER TEMP DIFF'
grid%tail_statevars%Units = 'C'
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%dtw
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%dtw(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21725,&
'frame/module_domain.f: Failed to allocate grid%dtw(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'hcoeff').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((model_config_rec%dfi_time_dim)-(1)+1))) * 4
ALLOCATE(grid%hcoeff(1:model_config_rec%dfi_time_dim),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21734,&
'frame/module_domain.f: Failed to allocate grid%hcoeff(1:model_config_rec%dfi_time_dim). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%hcoeff=initial_data_value
IF (.NOT.grid%is_intermediate) THEN
ALLOCATE( grid%tail_statevars%next )
grid%tail_statevars => grid%tail_statevars%next
NULLIFY( grid%tail_statevars%next )
grid%tail_statevars%VarName = 'hcoeff'
grid%tail_statevars%DataName = 'HCOEFF'
grid%tail_statevars%Description = 'initialization weights'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%ProcOrient = ' '
grid%tail_statevars%MemoryOrder = 'C'
grid%tail_statevars%Stagger = ''
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Ndim = 1
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_1d => grid%hcoeff
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
grid%tail_statevars%sd1 = 1
grid%tail_statevars%ed1 = config_flags%dfi_time_dim
grid%tail_statevars%sd2 = 1
grid%tail_statevars%ed2 = 1
grid%tail_statevars%sd3 = 1
grid%tail_statevars%ed3 = 1
grid%tail_statevars%sm1 = 1
grid%tail_statevars%em1 = config_flags%dfi_time_dim
grid%tail_statevars%sm2 = 1
grid%tail_statevars%em2 = 1
grid%tail_statevars%sm3 = 1
grid%tail_statevars%em3 = 1
grid%tail_statevars%sp1 = 1
grid%tail_statevars%ep1 = config_flags%dfi_time_dim
grid%tail_statevars%sp2 = 1
grid%tail_statevars%ep2 = 1
grid%tail_statevars%sp3 = 1
grid%tail_statevars%ep3 = 1
grid%tail_statevars%dimname1 = ''
grid%tail_statevars%dimname2 = ''
grid%tail_statevars%dimname3 = ''
ENDIF
ELSE
ALLOCATE(grid%hcoeff(1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21782,&
'frame/module_domain.f: Failed to allocate grid%hcoeff(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 = 'hcoeff_tot'
grid%tail_statevars%DataName = 'HCOEFF_TOT'
grid%tail_statevars%Description = 'initialization weights'
grid%tail_statevars%Units = '-'
grid%tail_statevars%Type = 'r'
grid%tail_statevars%Ntl = 0
grid%tail_statevars%Restart = .FALSE.
grid%tail_statevars%Ndim = 0
grid%tail_statevars%scalar_array = .FALSE.
grid%tail_statevars%rfield_0d => grid%hcoeff_tot
grid%tail_statevars%streams(1) = 0
grid%tail_statevars%streams(2) = 0
ENDIF
IF ( setinitval .EQ. 3 ) grid%hcoeff_tot=initial_data_value
IF(in_use_for_config(id,'dfi_p').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_p(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21810,&
'frame/module_domain.f: Failed to allocate grid%dfi_p(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_p=initial_data_value
IF (.NOT.grid%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_p'
grid%tail_statevars%DataName = 'P_DFI'
grid%tail_statevars%Description = 'perturbation pressure'
grid%tail_statevars%Units = 'Pa'
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%dfi_p
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%dfi_p(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21860,&
'frame/module_domain.f: Failed to allocate grid%dfi_p(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_al').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_al(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21869,&
'frame/module_domain.f: Failed to allocate grid%dfi_al(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_al=initial_data_value
IF (.NOT.grid%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_al'
grid%tail_statevars%DataName = 'AL_DFI'
grid%tail_statevars%Description = 'inverse perturbation density'
grid%tail_statevars%Units = 'm3 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%dfi_al
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%dfi_al(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21919,&
'frame/module_domain.f: Failed to allocate grid%dfi_al(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_mu').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_mu(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21928,&
'frame/module_domain.f: Failed to allocate grid%dfi_mu(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_mu=initial_data_value
IF (.NOT.grid%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_mu'
grid%tail_statevars%DataName = 'MU_DFI'
grid%tail_statevars%Description = 'perturbation dry air mass in column'
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%dfi_mu
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%dfi_mu(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21978,&
'frame/module_domain.f: Failed to allocate grid%dfi_mu(1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_phb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_phb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",21987,&
'frame/module_domain.f: Failed to allocate grid%dfi_phb(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_phb=initial_data_value
IF (.NOT.grid%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_phb'
grid%tail_statevars%DataName = 'PHB_DFI'
grid%tail_statevars%Description = 'base-state geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%dfi_phb
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_phb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22037,&
'frame/module_domain.f: Failed to allocate grid%dfi_phb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_ph0').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_ph0(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22046,&
'frame/module_domain.f: Failed to allocate grid%dfi_ph0(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_ph0=initial_data_value
IF (.NOT.grid%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_ph0'
grid%tail_statevars%DataName = 'PH0_DFI'
grid%tail_statevars%Description = 'initial geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%dfi_ph0
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_ph0(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22096,&
'frame/module_domain.f: Failed to allocate grid%dfi_ph0(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_php').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_php(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22105,&
'frame/module_domain.f: Failed to allocate grid%dfi_php(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_php=initial_data_value
IF (.NOT.grid%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_php'
grid%tail_statevars%DataName = 'PHP_DFI'
grid%tail_statevars%Description = 'geopotential'
grid%tail_statevars%Units = 'm2 s-2'
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%dfi_php
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_php(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22155,&
'frame/module_domain.f: Failed to allocate grid%dfi_php(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_u').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_u(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22164,&
'frame/module_domain.f: Failed to allocate grid%dfi_u(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_u=initial_data_value
IF (.NOT.grid%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_u'
grid%tail_statevars%DataName = 'U_DFI'
grid%tail_statevars%Description = 'u accumulation array'
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%dfi_u
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%dfi_u(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22214,&
'frame/module_domain.f: Failed to allocate grid%dfi_u(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_v').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_v(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22223,&
'frame/module_domain.f: Failed to allocate grid%dfi_v(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_v=initial_data_value
IF (.NOT.grid%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_v'
grid%tail_statevars%DataName = 'V_DFI'
grid%tail_statevars%Description = 'v accumulation array'
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%dfi_v
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%dfi_v(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22273,&
'frame/module_domain.f: Failed to allocate grid%dfi_v(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_w').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_w(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22282,&
'frame/module_domain.f: Failed to allocate grid%dfi_w(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_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 = 'dfi_w'
grid%tail_statevars%DataName = 'W_DFI'
grid%tail_statevars%Description = 'w accumulation array'
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%dfi_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 = 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_w(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22332,&
'frame/module_domain.f: Failed to allocate grid%dfi_w(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_ww').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_ww(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22341,&
'frame/module_domain.f: Failed to allocate grid%dfi_ww(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_ww=initial_data_value
IF (.NOT.grid%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_ww'
grid%tail_statevars%DataName = 'WW_DFI'
grid%tail_statevars%Description = 'mu-coupled eta-dot'
grid%tail_statevars%Units = 'Pa s-1'
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%dfi_ww
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
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, 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_stag'
grid%tail_statevars%dimname3 = 'south_north'
ENDIF
ELSE
ALLOCATE(grid%dfi_ww(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22391,&
'frame/module_domain.f: Failed to allocate grid%dfi_ww(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_t').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_t(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22400,&
'frame/module_domain.f: Failed to allocate grid%dfi_t(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_t=initial_data_value
IF (.NOT.grid%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_t'
grid%tail_statevars%DataName = 'TT_DFI'
grid%tail_statevars%Description = 't accumulation array'
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%dfi_t
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%dfi_t(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22450,&
'frame/module_domain.f: Failed to allocate grid%dfi_t(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_rh').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_rh(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22459,&
'frame/module_domain.f: Failed to allocate grid%dfi_rh(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_rh=initial_data_value
IF (.NOT.grid%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_rh'
grid%tail_statevars%DataName = 'RH_DFI'
grid%tail_statevars%Description = 'initial relative humidity'
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%dfi_rh
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%dfi_rh(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22509,&
'frame/module_domain.f: Failed to allocate grid%dfi_rh(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_ph').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_ph(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22518,&
'frame/module_domain.f: Failed to allocate grid%dfi_ph(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_ph=initial_data_value
IF (.NOT.grid%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_ph'
grid%tail_statevars%DataName = 'PH_DFI'
grid%tail_statevars%Description = 'p accumulation array'
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%dfi_ph
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%dfi_ph(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22568,&
'frame/module_domain.f: Failed to allocate grid%dfi_ph(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_pb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_pb(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22577,&
'frame/module_domain.f: Failed to allocate grid%dfi_pb(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_pb=initial_data_value
IF (.NOT.grid%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_pb'
grid%tail_statevars%DataName = 'PB_DFI'
grid%tail_statevars%Description = 'pb accumulation array'
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%dfi_pb
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%dfi_pb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22627,&
'frame/module_domain.f: Failed to allocate grid%dfi_pb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_alt').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_alt(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22636,&
'frame/module_domain.f: Failed to allocate grid%dfi_alt(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_alt=initial_data_value
IF (.NOT.grid%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_alt'
grid%tail_statevars%DataName = 'ALT_DFI'
grid%tail_statevars%Description = '1/rho accumulation array'
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%dfi_alt
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%dfi_alt(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22686,&
'frame/module_domain.f: Failed to allocate grid%dfi_alt(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_tke').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_tke(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22695,&
'frame/module_domain.f: Failed to allocate grid%dfi_tke(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_tke=initial_data_value
IF (.NOT.grid%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_tke'
grid%tail_statevars%DataName = 'TKE_DFI'
grid%tail_statevars%Description = 'TURBULENCE KINETIC ENERGY'
grid%tail_statevars%Units = 'm2 s-2'
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%dfi_tke
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%dfi_tke(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22745,&
'frame/module_domain.f: Failed to allocate grid%dfi_tke(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_tten_rad').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em32)-(sm32)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_tten_rad(sm31:em31,sm32:em32,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22754,&
'frame/module_domain.f: Failed to allocate grid%dfi_tten_rad(sm31:em31,sm32:em32,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_tten_rad=initial_data_value
IF (.NOT.grid%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_tten_rad'
grid%tail_statevars%DataName = 'RAD_TTEN_DFI'
grid%tail_statevars%Description = 'RADAR POT. TEMP. TENDENCY'
grid%tail_statevars%Units = 'K 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%dfi_tten_rad
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 = 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_tten_rad(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22804,&
'frame/module_domain.f: Failed to allocate grid%dfi_tten_rad(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_tslb').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_tslb(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22813,&
'frame/module_domain.f: Failed to allocate grid%dfi_tslb(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_tslb=initial_data_value
IF (.NOT.grid%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_tslb'
grid%tail_statevars%DataName = 'TSLB_DFI'
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%dfi_tslb
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 = 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%dfi_tslb(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22863,&
'frame/module_domain.f: Failed to allocate grid%dfi_tslb(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_smois').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((model_config_rec%num_soil_layers)-(1)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_smois(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22872,&
'frame/module_domain.f: Failed to allocate grid%dfi_smois(sm31:em31,1:model_config_rec%num_soil_layers,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_smois=initial_data_value
IF (.NOT.grid%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_smois'
grid%tail_statevars%DataName = 'SMOIS_DFI'
grid%tail_statevars%Description = 'SOIL MOISTURE'
grid%tail_statevars%Units = 'm3 m-3'
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%dfi_smois
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 = 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%dfi_smois(1,1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22922,&
'frame/module_domain.f: Failed to allocate grid%dfi_smois(1,1,1). ')
endif
ENDIF
IF(in_use_for_config(id,'dfi_snow').AND.(.NOT.grid%is_intermediate))THEN
num_bytes_allocated = num_bytes_allocated + &
((((em31)-(sm31)+1))*(((em33)-(sm33)+1))) * 4
ALLOCATE(grid%dfi_snow(sm31:em31,sm33:em33),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22931,&
'frame/module_domain.f: Failed to allocate grid%dfi_snow(sm31:em31,sm33:em33). ')
endif
IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dfi_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_snow'
grid%tail_statevars%DataName = 'SNOW_DFI'
grid%tail_statevars%Description = 'SNOW WATER EQUIVALENT'
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%dfi_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 = 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%dfi_snow(1,1),STAT=ierr)
if (ierr.ne.0) then
CALL wrf_error_fatal3("<stdin>",22981,&
'frame/module_domain.f: Failed to allocate grid%dfi_snow(1,1). ')
endif
ENDIF
END SUBROUTINE alloc_space_field_core_0
END MODULE module_alloc_space_0