New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2431 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/domrea.F90 – NEMO

Ignore:
Timestamp:
2010-11-25T13:45:32+01:00 (13 years ago)
Author:
cetlod
Message:

Improve the Offline together with the 1D vertical configuration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OFF_SRC/domrea.F90

    r2287 r2431  
    8686         inum4                      ! 'mesh_zgr.nc'  file 
    8787  
    88       REAL(wp), DIMENSION(jpi,jpj) :: & 
    89          zprt 
    90       INTEGER :: ik 
     88      REAL(wp), DIMENSION(jpi,jpj) :: zprt 
     89      REAL(wp) ::   zrefdep         ! depth of the reference level (~10m) 
     90      INTEGER  :: ik 
    9191      !!---------------------------------------------------------------------- 
    9292 
     
    260260         ENDIF 
    261261 
     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 
    262268 
    263269      ! Control printing : Grid informations (if not restart) 
Note: See TracChangeset for help on using the changeset viewer.