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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r3875 r3901  
    4444   PUBLIC   ptr_vjk        ! call by tra_ldf & tra_adv routines 
    4545 
    46    !                                           !!** namelist  namptr  ** 
    47    LOGICAL , PUBLIC ::   ln_diaptr  = .FALSE.   !: Poleward transport flag (T) or not (F) 
    48    LOGICAL , PUBLIC ::   ln_subbas  = .FALSE.   !: Atlantic/Pacific/Indian basins calculation 
    49    LOGICAL , PUBLIC ::   ln_diaznl  = .FALSE.   !: Add zonal means and meridional stream functions 
    50    LOGICAL , PUBLIC ::   ln_ptrcomp = .FALSE.   !: Add decomposition : overturning (and gyre, soon ...) 
    51    INTEGER , PUBLIC ::   nn_fptr    = 15        !: frequency of ptr computation  [time step] 
    52    INTEGER , PUBLIC ::   nn_fwri    = 15        !: frequency of ptr outputs      [time step] 
     46   !                                  !!** namelist  namptr  ** 
     47   LOGICAL , PUBLIC ::   ln_diaptr     !: Poleward transport flag (T) or not (F) 
     48   LOGICAL , PUBLIC ::   ln_subbas     !: Atlantic/Pacific/Indian basins calculation 
     49   LOGICAL , PUBLIC ::   ln_diaznl     !: Add zonal means and meridional stream functions 
     50   LOGICAL , PUBLIC ::   ln_ptrcomp    !: Add decomposition : overturning (and gyre, soon ...) 
     51   INTEGER , PUBLIC ::   nn_fptr       !: frequency of ptr computation  [time step] 
     52   INTEGER , PUBLIC ::   nn_fwri       !: frequency of ptr outputs      [time step] 
    5353 
    5454   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:) ::   htr_adv, htr_ldf, htr_ove   !: Heat TRansports (adv, diff, overturn.) 
Note: See TracChangeset for help on using the changeset viewer.