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 499 for trunk/NEMO/TOP_SRC – NEMO

Changeset 499 for trunk/NEMO/TOP_SRC


Ignore:
Timestamp:
2006-09-12T13:08:32+02:00 (18 years ago)
Author:
opalod
Message:

nemo_v1_update_066:CE:re-organization of coordinate definition and scale factors

Location:
trunk/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/oce_trc.F90

    r433 r499  
    3131 
    3232 
    33    !! namelist parameters       
    34    USE in_out_manager , ONLY :  &     
    35       cexper   =>   cexper,  & !: experience name for vairmer format  
    36       no       =>   no    ,  & !: job number 
    37       nrstdt   =>   nrstdt,  & !: control of the time step (0,  & 1 or 2) 
    38       nit000   =>   nit000,  & !: number of the first time step 
    39       nitend   =>   nitend,  & !: number of the last time step 
    40       nleapy   =>   nleapy,  & !: Leap year calendar (0/1) 
    41       nwrite   =>   nwrite,  & !: frequency of OUTPUT file 
    42       nstock   =>   nstock,  & !: frequency of restart file 
    43       nprint   =>   nprint,  & !: level of print (0 no print) 
    44       lwp      =>   lwp   ,  & !: boolean term for mpp output 
    45       ln_ctl   =>   ln_ctl,  & !: = ln_ctl.AND.lwp (print control on the 1st proc) 
    46       nictls   =>   nictls,  & !: Start i indice for the SUM control 
    47       nictle   =>   nictle,  & !: End   i indice for the SUM control 
    48       njctls   =>   njctls,  & !: Start j indice for the SUM control 
    49       njctle   =>   njctle,  & !: End   j indice for the SUM control 
    50       isplt    =>   isplt ,  & !: number of processors following i 
    51       jsplt    =>   jsplt ,  & !: number of processors following j 
    52       ijsplt   =>   ijsplt,  & !: nb of local domain = nb of processors 
    53       numout   =>   numout     !: logical unit for output print 
    54  
    55  
    5633   !! run controm    
    57    USE in_out_manager , ONLY :  &   
    58       nstop     =>   nstop    ,  &  !: e r r o r  flag (=number of reason for a 
    59       !                             !                   prematurely stop the run) 
    60       nwarn     =>   nwarn    ,  &  !: w a r n i n g  flag (=number of warning 
    61       !                             !                   found during the run)  
    62       cform_err =>   cform_err,  &  !: 
    63       cform_war =>   cform_war      !:   
     34 
     35   USE in_out_manager 
    6436       
    6537   USE dom_oce , ONLY :           &             
     
    7648   USE dom_oce , ONLY :       &  
    7749      nperio   =>   nperio,  & !: type of lateral boundary condition        
    78       nlci     =>   nlci  ,  & !: index i for the sub domain left bottom  
    79       nlcj     =>   nlcj  ,  & !: index j for the sub domain left bottom  
    8050      nimpp    =>   nimpp ,  & !: i index for mpp-subdomain left bottom 
    8151      njmpp    =>   njmpp ,  & !: j index for mpp-subdomain left bottom 
     
    12898   !! vertical coordinate and scale factors 
    12999   USE dom_oce , ONLY :              &    
    130       gdept    =>   gdept ,  & !: reference depth of t-points (m) 
    131       e3t      =>   e3t   ,  & !: reference depth of t-points (m)   
    132       e3w      =>   e3w   ,  & !: reference depth of w-points (m) 
    133       gdepw    =>   gdepw      !: reference depth of w-points (m) 
     100      gdept_0    =>   gdept_0 ,  & !: reference depth of t-points (m) 
     101      e3t_0      =>   e3t_0   ,  & !: reference depth of t-points (m)   
     102      e3w_0      =>   e3w_0   ,  & !: reference depth of w-points (m) 
     103      gdepw_0    =>   gdepw_0      !: reference depth of w-points (m) 
     104 
     105#if ! defined key_zco 
     106   USE dom_oce , ONLY :                & 
     107      gdep3w   =>  gdep3w  ,  & !: ??? 
     108      gdept =>  gdept,  & !: depth of t-points (m) 
     109      gdepw =>  gdepw,  & !: depth of t-points (m) 
     110      e3t   =>  e3t  ,  & !: vertical scale factors at t- 
     111      e3u   =>  e3u  ,  & !: vertical scale factors at u- 
     112      e3v   =>  e3v  ,  & !: vertical scale factors v- 
     113      e3w   =>  e3w  ,  & !: w-points (m) 
     114      e3f   =>  e3f  ,  & !: f-points (m) 
     115      e3uw  =>  e3uw ,  & !: uw-points (m) 
     116      e3vw  =>  e3vw      !: vw-points (m) 
     117#endif 
    134118 
    135119   USE dom_oce ,   ONLY :            &       
    136       lk_zps   =>  lk_zps ,  & !: partial steps flag 
    137       lk_sco   =>  lk_sco ,  & !: s-coordinate flag 
    138       lk_zco   =>  lk_zco      !: z-coordinate flag 
     120      ln_zps   =>  ln_zps ,  & !: partial steps flag 
     121      ln_sco   =>  ln_sco ,  & !: s-coordinate flag 
     122      ln_zco   =>  ln_zco ,  & !: z-coordinate flag 
     123      lk_zco   =>  lk_zco      !: z-coordinate flag (1D or 3D arrays) 
    139124 
    140125   USE lib_mpp ,   ONLY :            &      
     
    143128   USE dynspg_oce ,   ONLY :            &      
    144129      lk_dynspg_rl   =>  lk_dynspg_rl      !: rigid lid flag 
    145  
    146 #if defined key_partial_steps 
    147    !! Partial steps ('key_partial_steps') 
    148    !! ----------------------------------- 
    149    USE dom_oce , ONLY :                &  
    150       gdep3w   =>  gdep3w  ,  & !: ??? 
    151       gdept_ps =>  gdept_ps,  & !: depth of t-points (m) 
    152       gdepw_ps =>  gdepw_ps,  & !: depth of t-points (m) 
    153       e3t_ps   =>  e3t_ps  ,  & !: vertical scale factors at t- 
    154       e3u_ps   =>  e3u_ps  ,  & !: vertical scale factors at u- 
    155       e3v_ps   =>  e3v_ps  ,  & !: vertical scale factors v- 
    156       e3w_ps   =>  e3w_ps  ,  & !: w-points (m) 
    157       e3f_ps   =>  e3f_ps  ,  & !: f-points (m) 
    158       e3uw_ps  =>  e3uw_ps ,  & !: uw-points (m) 
    159       e3vw_ps  =>  e3vw_ps      !: vw-points (m) 
    160130 
    161131   USE oce , ONLY :                & 
    162132      gtu   =>  gtu  ,  & !: t- horizontal gradient at u- 
    163133      gtv   =>  gtv       !: and v-points at bottom ocean level 
    164 #endif 
    165  
    166 #if defined key_s_coord 
     134 
    167135   USE dom_oce , ONLY :              &    
    168136      hbatt   =>   hbatt  ,  & !: ocean depth at the vertical of  t-point (m) 
     
    174142      esigt   =>   esigt  ,  & !: vertical scale factor coef. at t-levels 
    175143      esigw   =>   esigw       !: vertical scale factor coef. at w-levels 
    176 #endif 
    177144 
    178145   !! masks, bathymetry 
     
    184151      vmask    =>   vmask ,  & !: land/ocean mask at v-points  
    185152      fmask    =>   fmask      !: land/ocean mask at f-points  
     153 
     154#if defined key_off_degrad 
     155   USE dom_oce , ONLY :                 & 
     156      facvol   =>   facvol     !: volume factor for degradation 
     157#endif 
    186158 
    187159   USE dom_oce , ONLY :         & 
     
    270242      avt            =>   avt          ,  & !: vert. diffusivity coef. at w-point for temp   
    271243      avt0           =>   avt0         ,  & !: vertical eddy diffusivity for tracers (m2/s) 
    272 #if ! defined key_off_tra 
    273       l_trazdf_exp   =>   l_trazdf_exp ,  & !: explicit vertical diffusion scheme flag 
    274 #endif 
    275244      ln_zdfnpc      =>   ln_zdfnpc         !: convection: non-penetrative convection flag 
    276245 
  • trunk/NEMO/TOP_SRC/passivetrc_substitute.h90

    r274 r499  
    1212    ! Lateral eddy diffusivity coefficient for passive tracer: 
    1313    ! ======================================================== 
    14 #if defined key_traldf_c3d 
     14#if defined key_traldf_c3d || defined key_off_degrad 
    1515!   'key_traldf_c3d' :                 aht: 3D coefficient 
    1616#       define fsahtrt(i,j,k)  trcrat * ahtt(i,j,k) 
     
    4040    ! Eddy induced velocity  coefficient for passive tracer: 
    4141    ! ======================================================== 
    42 #if defined key_traldf_c3d 
     42#if defined key_traldf_c3d || defined key_off_degrad 
    4343!   'key_traldf_c3d' :                 eiv: 3D coefficient 
    4444#       define fsaeitru(i,j,k)  trcrat * aeiu(i,j,k) 
Note: See TracChangeset for help on using the changeset viewer.