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/TOP_SRC/PISCES/p4zrem.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/TOP_SRC/PISCES/p4zrem.F90

    r1073 r1119  
    1616   USE trc 
    1717   USE oce_trc         ! 
    18    USE trp_trc         !  
    1918   USE sms_pisces      !  
    2019   USE prtctl_trc 
     
    409408      !! ** Purpose :   Initialization of remineralization parameters 
    410409      !! 
    411       !! ** Method  :   Read the natrem namelist and check the parameters 
     410      !! ** Method  :   Read the nampisrem namelist and check the parameters 
    412411      !!      called at the first timestep (nittrc000) 
    413412      !! 
    414       !! ** input   :   Namelist natrem 
     413      !! ** input   :   Namelist nampisrem 
    415414      !! 
    416415      !!---------------------------------------------------------------------- 
    417416 
    418       NAMELIST/natrem/ xremik, xremip, nitrif, xsirem, xlam1, oxymin 
     417      NAMELIST/nampisrem/ xremik, xremip, nitrif, xsirem, xlam1, oxymin 
    419418 
    420419      REWIND( numnat )                     ! read numnat 
    421       READ  ( numnat, natrem ) 
     420      READ  ( numnat, nampisrem ) 
    422421 
    423422      IF(lwp) THEN                         ! control print 
    424423         WRITE(numout,*) ' ' 
    425          WRITE(numout,*) ' Namelist parameters for remineralization, natrem' 
     424         WRITE(numout,*) ' Namelist parameters for remineralization, nampisrem' 
    426425         WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 
    427426         WRITE(numout,*) '    remineralisation rate of POC              xremip    =', xremip 
Note: See TracChangeset for help on using the changeset viewer.