Changeset 2574 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2011-02-02T15:10:08+01:00 (13 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 1 added
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OFF_SRC/domain.F90
r2528 r2574 27 27 PUBLIC dom_init ! called by opa.F90 28 28 29 ! !!! ** Namelist namzgr_sco **30 REAL(wp) :: rn_sbot_min = 300. ! minimum depth of s-bottom surface (>0) (m)31 REAL(wp) :: rn_sbot_max = 5250. ! maximum depth of s-bottom surface (= ocean depth) (>0) (m)32 REAL(wp) :: rn_theta = 6.0 ! surface control parameter (0<=rn_theta<=20)33 REAL(wp) :: rn_thetb = 0.75 ! bottom control parameter (0<=rn_thetb<= 1)34 REAL(wp) :: rn_rmax = 0.15 ! maximum cut-off r-value allowed (0<rn_rmax<1)35 LOGICAL :: ln_s_sigma = .false. ! use hybrid s-sigma -coordinate & stretching function fssig1 (ln_sco=T)36 REAL(wp) :: rn_bb = 0.8 ! stretching parameter for song and haidvogel stretching37 ! ! ( rn_bb=0; top only, rn_bb =1; top and bottom)38 REAL(wp) :: rn_hc = 150. ! Critical depth for s-sigma coordinates39 40 29 !! * Substitutions 41 30 # include "domzgr_substitute.h90" … … 102 91 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & 103 92 & nn_write, ln_dimgnnn, ln_mskland , ln_clobber , nn_chunksz 104 NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh ,&105 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin ,&93 NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh , rn_hmin, & 94 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & 106 95 & rn_rdtmax, rn_rdth , nn_baro , nn_closea 107 96 NAMELIST/namcla/ nn_cla 97 #if defined key_netcdf4 98 NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip 99 #endif 108 100 !!---------------------------------------------------------------------- 109 101 … … 185 177 WRITE(numout,*) ' Namelist namdom : space & time domain' 186 178 WRITE(numout,*) ' flag read/compute bathymetry nn_bathy = ', nn_bathy 179 WRITE(numout,*) ' min depth of the ocean (>0) or rn_hmin = ', rn_hmin 187 180 WRITE(numout,*) ' minimum thickness of partial rn_e3zps_min = ', rn_e3zps_min, ' (m)' 188 181 WRITE(numout,*) ' step level rn_e3zps_rat = ', rn_e3zps_rat … … 222 215 ENDIF 223 216 224 IF( lk_mpp_rep .AND. nn_cla /= 0 ) CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require n_cla = 0' ) 217 #if defined key_netcdf4 218 ! ! NetCDF 4 case ("key_netcdf4" defined) 219 REWIND( numnam ) ! Namelist namnc4 : netcdf4 chunking parameters 220 READ ( numnam, namnc4 ) 221 IF(lwp) THEN ! control print 222 WRITE(numout,*) 223 WRITE(numout,*) ' Namelist namnc4 - Netcdf4 chunking parameters' 224 WRITE(numout,*) ' number of chunks in i-dimension nn_nchunks_i = ', nn_nchunks_i 225 WRITE(numout,*) ' number of chunks in j-dimension nn_nchunks_j = ', nn_nchunks_j 226 WRITE(numout,*) ' number of chunks in k-dimension nn_nchunks_k = ', nn_nchunks_k 227 WRITE(numout,*) ' apply netcdf4/hdf5 chunking & compression ln_nc4zip = ', ln_nc4zip 228 ENDIF 229 230 ! Put the netcdf4 settings into a simple structure (snc4set, defined in in_out_manager module) 231 ! Note the chunk size in the unlimited (time) dimension will be fixed at 1 232 snc4set%ni = nn_nchunks_i 233 snc4set%nj = nn_nchunks_j 234 snc4set%nk = nn_nchunks_k 235 snc4set%luse = ln_nc4zip 236 #else 237 snc4set%luse = .FALSE. ! No NetCDF 4 case 238 #endif 225 239 ! 226 240 END SUBROUTINE dom_nam
Note: See TracChangeset
for help on using the changeset viewer.