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/module_example – 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/module_example

    r3875 r3901  
    1313   !!   'key_example'  :                brief description of the key option 
    1414   !!---------------------------------------------------------------------- 
    15    !!   exa_mpl       : liste of module subroutine (caution, never use the 
     15   !!   exa_mpl       : list of module subroutine (caution, never use the 
    1616   !!   exa_mpl_init  : name of the module for a routine) 
    1717   !!   exa_mpl_stp   : Please try to use 3 letter block for routine names 
     
    162162      !!---------------------------------------------------------------------- 
    163163      ! 
    164       sn_ex%clname ='toto'                      ! set default namelist values 
    165       sn_ex%nfreqh = 2  
    166       ! 
    167164      REWIND( numnam_ref )              ! Namelist namexa in reference namelist : Example 
    168165      READ  ( numnam_ref, namexa, IOSTAT = ios, ERR = 901) 
     
    181178         WRITE(numout,*) '   Namelist namexa : set example parameters' 
    182179         WRITE(numout,*) '      brief desciption               exa_v1  = ', exa_v1 
    183          WRITE(numout,*) '      brief desciption               exa_v1  = ', exa_v1 
     180         WRITE(numout,*) '      brief desciption               exa_v2  = ', exa_v2 
    184181         WRITE(numout,*) '      brief desciption               nexa_0  = ', nexa_0 
    185182         WRITE(numout,*) '      brief desciption          sn_ex%clname = ', sn_ex%clname 
Note: See TracChangeset for help on using the changeset viewer.