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 2085 – NEMO

Changeset 2085


Ignore:
Timestamp:
2010-09-11T10:45:29+02:00 (14 years ago)
Author:
cetlod
Message:

improve the vvl option for TOP models

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/oce_trc.F90

    r2082 r2085  
    114114   USE dom_oce , ONLY :   ln_zco     =>  ln_zco      !: z-coordinate flag 
    115115   USE dom_oce , ONLY :   lk_zco     =>  lk_zco      !: z-coordinate flag (1D or 3D arrays) 
    116    USE dom_oce , ONLY :   hbatt      =>  hbatt      !: ocean depth at the vertical of  t-point (m) 
    117    USE dom_oce , ONLY :   hbatu      =>  hbatu      !: ocean depth at the vertical of  u-point (m) 
    118    USE dom_oce , ONLY :   hbatv      =>  hbatv      !: ocean depth at the vertical of w-point (m) 
    119    USE dom_oce , ONLY :   gsigt      =>  gsigt      !: model level depth coefficient at T-levels 
    120    USE dom_oce , ONLY :   gsigw      =>  gsigw      !: model level depth coefficient at W-levels 
    121    USE dom_oce , ONLY :   gsi3w      =>  gsi3w      !: model level depth coef at w-levels (defined as the sum of e3w) 
    122    USE dom_oce , ONLY :   esigt      =>  esigt      !: vertical scale factor coef. at t-levels 
    123    USE dom_oce , ONLY :   esigw      =>  esigw      !: vertical scale factor coef. at w-levels 
    124    USE dom_oce , ONLY :   lk_vvl     =>  lk_vvl       !: variable grid flag 
    125  
     116   USE dom_oce , ONLY :   hbatt      =>  hbatt       !: ocean depth at the vertical of  t-point (m) 
     117   USE dom_oce , ONLY :   hbatu      =>  hbatu       !: ocean depth at the vertical of  u-point (m) 
     118   USE dom_oce , ONLY :   hbatv      =>  hbatv       !: ocean depth at the vertical of w-point (m) 
     119   USE dom_oce , ONLY :   gsigt      =>  gsigt       !: model level depth coefficient at T-levels 
     120   USE dom_oce , ONLY :   gsigw      =>  gsigw       !: model level depth coefficient at W-levels 
     121   USE dom_oce , ONLY :   gsi3w      =>  gsi3w       !: model level depth coef at w-levels (defined as the sum of e3w) 
     122   USE dom_oce , ONLY :   esigt      =>  esigt       !: vertical scale factor coef. at t-levels 
     123   USE dom_oce , ONLY :   esigw      =>  esigw       !: vertical scale factor coef. at w-levels 
     124   USE dom_oce , ONLY :   lk_vvl     =>  lk_vvl      !: variable grid flag 
     125# if defined key_vvl 
     126   USE dom_oce , ONLY :   gdep3w_1   =>  gdep3w_1    !: ??? 
     127   USE dom_oce , ONLY :   gdept_1    =>  gdept_1     !: depth of t-points (m) 
     128   USE dom_oce , ONLY :   gdepw_1    =>  gdepw_1     !: depth of t-points (m) 
     129   USE dom_oce , ONLY :   e3t_1      =>  e3t_1       !: vertical scale factors at t- 
     130   USE dom_oce , ONLY :   e3u_1      =>  e3u_1       !: vertical scale factors at u- 
     131   USE dom_oce , ONLY :   e3v_1      =>  e3v_1       !: vertical scale factors v- 
     132   USE dom_oce , ONLY :   e3w_1      =>  e3w_1       !: w-points (m) 
     133   USE dom_oce , ONLY :   e3f_1      =>  e3f_1       !: f-points (m) 
     134   USE dom_oce , ONLY :   e3uw_1     =>  e3uw_1      !: uw-points (m) 
     135   USE dom_oce , ONLY :   e3vw_1     =>  e3vw_1      !: vw-points (m) 
     136# endif 
    126137   !* masks, bathymetry * 
    127138   USE dom_oce , ONLY :   mbathy     =>   mbathy     !: number of ocean level (=0,  & 1, ... , jpk-1)  
Note: See TracChangeset for help on using the changeset viewer.