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 1119 for trunk/NEMO/OFF_SRC/dtadyn.F90 – NEMO

Ignore:
Timestamp:
2008-06-20T17:17:41+02:00 (16 years ago)
Author:
cetlod
Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/dtadyn.F90

    r1032 r1119  
    147147 
    148148 
    149       NAMELIST/nam_offdyn/ ndtadyn, ndtatot, nsptint,            &  
     149      NAMELIST/namdyn/ ndtadyn, ndtatot, nsptint,            &  
    150150          &                nficdyn, lperdyn 
    151151      !!---------------------------------------------------------------------- 
     
    154154      ! ====================================== 
    155155 
    156       ! Read Namelist nam_offdyn : Lateral physics on tracers 
     156      ! Read Namelist namdyn : Lateral physics on tracers 
    157157      REWIND( numnam ) 
    158       READ  ( numnam, nam_offdyn ) 
     158      READ  ( numnam, namdyn ) 
    159159 
    160160      IF(lwp) THEN 
    161161         WRITE(numout,*) 
    162          WRITE(numout,*) 'nam_offdyn : offline dynamical selection' 
     162         WRITE(numout,*) 'namdyn : offline dynamical selection' 
    163163         WRITE(numout,*) '~~~~~~~' 
    164          WRITE(numout,*) '  Namelist nam_offdyn : set parameters for the lecture of the dynamical fields' 
     164         WRITE(numout,*) '  Namelist namdyn : set parameters for the lecture of the dynamical fields' 
    165165         WRITE(numout,*)  
    166166         WRITE(numout,*) ' number of elements in the FILE for a year  ndtadyn = ' , ndtadyn 
Note: See TracChangeset for help on using the changeset viewer.