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

Changeset 262 for trunk/NEMO/TOP_SRC


Ignore:
Timestamp:
2005-09-08T15:30:48+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_05:RB+OA: Update and rewritting of (part of) the TOP component

Location:
trunk/NEMO/TOP_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/oce_trc.F90

    r247 r262  
    77   !!   9.0  !  04-03  (C. Ethe)  F90: Free form and module 
    88   !!---------------------------------------------------------------------- 
    9    !!  TOP 1.0 , LOCEAN-IPSL (2005) 
    10    !! $Header$ 
    11    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     9   !!  OPA 9.0 , LODYC-IPSL (2003) 
    1210   !!---------------------------------------------------------------------- 
    1311   !! * Modules used 
    … …  
    4240      nstock   =>   nstock,  & !: frequency of restart file 
    4341      lwp      =>   lwp   ,  & !: boolean term for mpp output 
    44       l_ctl    =>   l_ctl ,  & !: = ln_ctl.AND.lwp (print control on the 1st proc) 
    45       nictl    =>   nictl ,  & !: = max i indice to make the control SUM 
    46       njctl    =>   njctl ,  & !: = max j indice to make the control SUM 
    47       numout   =>   numout,  & !: logical unit for output print 
    48       numwrs   =>   numwrs     !: logical unit for output restart 
     42      ln_ctl   =>   ln_ctl ,  & !: = ln_ctl.AND.lwp (print control on the 1st proc) 
     43      nictle   =>   nictle ,  & !: = max i indice to make the control SUM 
     44      njctle   =>   njctle ,  & !: = max j indice to make the control SUM 
     45      numout   =>   numout     !: logical unit for output print 
    4946 
    5047   !! run controm    
    … …  
    119116      lk_dynspg_fsc_tsk   =>  lk_dynspg_fsc_tsk      !: free surface constant volume flag 
    120117 
     118   USE zdf_oce,    ONLY :          & 
     119      ln_zdfnpc   =>   ln_zdfnpc      !: convection: non-penetrative convection flag 
     120 
    121121#if defined key_partial_steps 
    122122   !! Partial steps ('key_partial_steps') 
    … …  
    144144      hbatu   =>   hbatu  ,  & !: ocean depth at the vertical of  u-point (m) 
    145145      hbatv   =>   hbatv  ,  & !: ocean depth at the vertical of w-point (m) 
    146       hbatf   =>   hbatw  ,  & !: ocean depth at the vertical of f-point (m) 
    147146      gsigt   =>   gsigt  ,  & !: model level depth coefficient at t-,  & w-levelsvertical scale factors at u- 
    148147      gsigw   =>   gsigw  ,  & !: model level depth coefficient at t-,  & w-levelsvertical scale factors v- 
    … …  
    155154   USE dom_oce , ONLY :             &     
    156155      mbathy   =>   mbathy,  & !: number of ocean level (=0,  & 1, ... , jpk-1)  
     156      tmask_i  =>   tmask_i, & !: Interior mask at t-points 
    157157      tmask    =>   tmask ,  & !: land/ocean mask at t-points 
    158158      umask    =>   umask ,  & !: land/ocean mask at u-points    
    … …  
    172172 
    173173   USE daymod , ONLY :                 & 
    174       ndastp    =>   ndastp,  & !: time step date in year/month/day aammjj 
    175       nday_year =>   nday_year  !: curent day counted from jan 1st of the current year 
     174      ndastp    =>   ndastp,  &    !: time step date in year/month/day aammjj 
     175      nday_year =>   nday_year, &  !: curent day counted from jan 1st of the current year 
     176      nyear     =>   nyear,   &  !: Current year 
     177      nmonth    =>   nmonth,  &  !: Current month 
     178      nday      =>   nday        !: Current day 
    176179 
    177180   !! physical constants 
    … …  
    230233   USE zdf_oce , ONLY :      &     
    231234      avt     =>   avt    ,  & !: vert. diffusivity coef. at w-point for temp   
    232       avm0    =>   avm0   ,  & !: vertical eddy viscosity for the dynamic (m2/s) 
    233235      avt0    =>   avt0        !: vertical eddy diffusivity for tracers (m2/s) 
    234236 

  • trunk/NEMO/TOP_SRC/par_trc.F90

    r247 r262  
    1010   !!   9.0  !  04-03  (C. Ethe)  Free form and module 
    1111   !!---------------------------------------------------------------------- 
    12    !!  TOP 1.0 , LOCEAN-IPSL (2005) 
    13    !! $Header$ 
    14    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     12   !!  OPA 9.0, LODYC-IPSL (2004) 
    1513   !!---------------------------------------------------------------------- 
    1614   !! * Modules used 

  • trunk/NEMO/TOP_SRC/par_trc_trp.F90

    r247 r262  
    1212   !!--------------------------------------------------------------------- 
    1313   !!---------------------------------------------------------------------- 
    14    !!  TOP 1.0 , LOCEAN-IPSL (2005) 
    15    !! $Header$ 
    16    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     14   !!  OPA 9.0, LODYC-IPSL (2004) 
    1715   !!---------------------------------------------------------------------- 
    1816 

  • trunk/NEMO/TOP_SRC/passivetrc_substitute.h90

    r247 r262  
    66   !! ---------------------------------------------------------------------- 
    77   !! 
    8    !!---------------------------------------------------------------------- 
    9    !!  TOP 1.0 , LOCEAN-IPSL (2005) 
    10    !! $Header$ 
    11    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    12    !!---------------------------------------------------------------------- 
     8 
    139    ! Lateral eddy diffusivity coefficient for passive tracer: 
    1410    ! ======================================================== 
Note: See TracChangeset for help on using the changeset viewer.