- Timestamp:
- 2019-09-20T17:28:02+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC/sbcblk.F90
r11360 r11586 121 121 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: t_zu, q_zu ! air temp. and spec. hum. at wind speed height (L15 bulk scheme) 122 122 123 INTEGER , PUBLIC, PARAMETER :: jpfld =11 !: maximum number of files to read 123 !INTEGER , PUBLIC, PARAMETER :: jpfld =11 !: maximum number of files to read 124 INTEGER , PUBLIC :: jpfld !: maximum number of files to read 124 125 INTEGER , PUBLIC, PARAMETER :: jp_wndi = 1 !: index of 10m wind velocity (i-component) (m/s) at T-point 125 126 INTEGER , PUBLIC, PARAMETER :: jp_wndj = 2 !: index of 10m wind velocity (j-component) (m/s) at T-point … … 171 172 !! 172 173 CHARACTER(len=100) :: cn_dir ! Root directory for location of atmospheric forcing files 173 TYPE(FLD_N), DIMENSION(jpfld) :: slf_i ! array of namelist informations on the fields to read 174 !TYPE(FLD_N), DIMENSION(jpfld) :: slf_i ! array of namelist informations on the fields to read 175 TYPE(FLD_N), ALLOCATABLE, DIMENSION(:) :: slf_i ! array of namelist informations on the fields to read 174 176 TYPE(FLD_N) :: sn_wndi, sn_wndj, sn_humi, sn_qsr ! informations about the fields to be read 175 177 TYPE(FLD_N) :: sn_qlw , sn_tair, sn_prec, sn_snow ! " " … … 216 218 ! !* set the bulk structure 217 219 ! !- store namelist information in an array 220 IF( ln_blk ) jpfld = 9 221 IF( ln_abl ) jpfld = 11 222 ALLOCATE( slf_i(jpfld) ) 223 ! 218 224 slf_i(jp_wndi) = sn_wndi ; slf_i(jp_wndj) = sn_wndj 219 225 slf_i(jp_qsr ) = sn_qsr ; slf_i(jp_qlw ) = sn_qlw … … 221 227 slf_i(jp_prec) = sn_prec ; slf_i(jp_snow) = sn_snow 222 228 slf_i(jp_slp ) = sn_slp 223 slf_i(jp_hpgi) = sn_hpgi ; slf_i(jp_hpgj) = sn_hpgj 229 IF( ln_abl ) THEN 230 slf_i(jp_hpgi) = sn_hpgi ; slf_i(jp_hpgj) = sn_hpgj 231 END IF 224 232 ! 225 233 ! !- allocate the bulk structure
Note: See TracChangeset
for help on using the changeset viewer.