Changeset 4228 for branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM
- Timestamp:
- 2013-11-18T11:58:38+01:00 (11 years ago)
- Location:
- branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM
- Files:
-
- 5 edited
- 3 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r3851 r4228 30 30 ! !!* Namelist namdom : time & space domain * 31 31 INTEGER , PUBLIC :: nn_bathy = 0 !: = 0/1 ,compute/read the bathymetry file 32 REAL(wp), PUBLIC :: rn_bathy = 0.0_wp !: depth of flat bottom (active if nn_bathy=0; if =0 depth=jpkm1) 32 33 REAL(wp), PUBLIC :: rn_hmin = -3.0_wp !: minimum ocean depth (>0) or minimum number of ocean levels (<0) 33 34 REAL(wp), PUBLIC :: rn_e3zps_min = 5.0_wp !: miminum thickness for partial steps (meters) -
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r3764 r4228 124 124 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & 125 125 & nn_write, ln_dimgnnn, ln_mskland , ln_clobber , nn_chunksz 126 NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, &127 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , &126 NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin, & 127 & nn_acc , rn_atfp , rn_rdt , rn_rdtmin , & 128 128 & rn_rdtmax, rn_rdth , nn_baro , nn_closea 129 129 NAMELIST/namcla/ nn_cla … … 207 207 WRITE(numout,*) ' Namelist namdom : space & time domain' 208 208 WRITE(numout,*) ' flag read/compute bathymetry nn_bathy = ', nn_bathy 209 WRITE(numout,*) ' Depth (if =0 bathy=jpkm1) rn_bathy = ', rn_bathy 209 210 WRITE(numout,*) ' min depth of the ocean (>0) or rn_hmin = ', rn_hmin 210 211 WRITE(numout,*) ' min number of ocean level (<0) ' -
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r4006 r4228 368 368 IF(lwp) WRITE(numout,*) 369 369 IF(lwp) WRITE(numout,*) ' bathymetry field: flat basin' 370 idta(:,:) = jpkm1 ! before last level 371 zdta(:,:) = gdepw_0(jpk) ! last w-point depth 372 h_oce = gdepw_0(jpk) 370 IF( rn_bathy > 0.01 ) THEN 371 IF(lwp) WRITE(numout,*) ' Depth = rn_bathy read in namelist' 372 zdta(:,:) = rn_bathy 373 IF( ln_sco ) THEN ! s-coordinate (zsc ): idta()=jpk 374 idta(:,:) = jpkm1 375 ELSE ! z-coordinate (zco or zps): step-like topography 376 idta(:,:) = jpkm1 377 DO jk = 1, jpkm1 378 WHERE( gdept_0(jk) < zdta(:,:) .AND. zdta(:,:) <= gdept_0(jk+1) ) idta(:,:) = jk 379 END DO 380 ENDIF 381 ELSE 382 IF(lwp) WRITE(numout,*) ' Depth = depthw(jpkm1)' 383 idta(:,:) = jpkm1 ! before last level 384 zdta(:,:) = gdepw_0(jpk) ! last w-point depth 385 h_oce = gdepw_0(jpk) 386 ENDIF 373 387 ELSE ! bump centered in the basin 374 388 IF(lwp) WRITE(numout,*) -
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90
r3764 r4228 180 180 END SUBROUTINE istate_t_s 181 181 182 183 182 SUBROUTINE istate_eel 184 183 !!---------------------------------------------------------------------- … … 404 403 405 404 END SUBROUTINE istate_gyre 406 407 405 408 406 SUBROUTINE istate_uvg -
branches/2013/dev_MERCATOR_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/par_oce.F90
r3294 r4228 86 86 !!--------------------------------------------------------------------- 87 87 # include "par_AMM_12km.h90" 88 #elif defined key_c1d_papa 89 !!--------------------------------------------------------------------- 90 !! 'key_c1d_papa': 1D conf. based on PAPA station 91 !!--------------------------------------------------------------------- 92 # include "par_C1D_PAPA.h90" 88 93 #else 89 94 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.