Changeset 2431 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/domrea.F90
- Timestamp:
- 2010-11-25T13:45:32+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/domrea.F90
r2287 r2431 86 86 inum4 ! 'mesh_zgr.nc' file 87 87 88 REAL(wp), DIMENSION(jpi,jpj) :: &89 zprt90 INTEGER :: ik88 REAL(wp), DIMENSION(jpi,jpj) :: zprt 89 REAL(wp) :: zrefdep ! depth of the reference level (~10m) 90 INTEGER :: ik 91 91 !!---------------------------------------------------------------------- 92 92 … … 260 260 ENDIF 261 261 262 !!gm BUG in s-coordinate this does not work! 263 ! deepest/shallowest W level Above/Below ~10m 264 zrefdep = 10. - ( 0.1*MINVAL(e3w_0) ) ! ref. depth with tolerance (10% of minimum layer thickness) 265 nlb10 = MINLOC( gdepw_0, mask = gdepw_0 > zrefdep, dim = 1 ) ! shallowest W level Below ~10m 266 nla10 = nlb10 - 1 ! deepest W level Above ~10m 267 !!gm end bug 262 268 263 269 ! Control printing : Grid informations (if not restart)
Note: See TracChangeset
for help on using the changeset viewer.