Ignore:
Timestamp:
2018-11-21T11:25:53+01:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/trcnam_pisces.F90

    r10068 r10345  
    4343      CHARACTER(LEN=20)::   clname 
    4444      !! 
    45       NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand 
     45      NAMELIST/nampismod/ln_p2z, ln_p4z, ln_p5z, ln_ligand, ln_sediment 
    4646      !!---------------------------------------------------------------------- 
    4747 
     
    6565      IF(lwp) THEN                  ! control print 
    6666         WRITE(numout,*) '   Namelist : nampismod ' 
    67          WRITE(numout,*) '      Flag to use LOBSTER model            ln_p2z    = ', ln_p2z 
    68          WRITE(numout,*) '      Flag to use PISCES standard model    ln_p4z    = ', ln_p4z 
    69          WRITE(numout,*) '      Flag to use PISCES quota    model    ln_p5z    = ', ln_p5z 
    70          WRITE(numout,*) '      Flag to ligand                       ln_ligand = ', ln_ligand 
     67         WRITE(numout,*) '      Flag to use LOBSTER model            ln_p2z      = ', ln_p2z 
     68         WRITE(numout,*) '      Flag to use PISCES standard model    ln_p4z      = ', ln_p4z 
     69         WRITE(numout,*) '      Flag to use PISCES quota    model    ln_p5z      = ', ln_p5z 
     70         WRITE(numout,*) '      Flag to ligand                       ln_ligand   = ', ln_ligand 
     71         WRITE(numout,*) '      Flag to use sediment                 ln_sediment = ', ln_sediment 
    7172      ENDIF 
    7273      ! 
    7374      IF(lwp) THEN                         ! control print 
    7475         WRITE(numout,*) 
    75          IF( ln_p5z    )  WRITE(numout,*) '   ==>>>   PISCES QUOTA model is used' 
    76          IF( ln_p4z    )  WRITE(numout,*) '   ==>>>   PISCES STANDARD model is used' 
    77          IF( ln_p2z    )  WRITE(numout,*) '   ==>>>   LOBSTER model is used' 
     76         IF( ln_p5z      )  WRITE(numout,*) '   ==>>>   PISCES QUOTA model is used' 
     77         IF( ln_p4z      )  WRITE(numout,*) '   ==>>>   PISCES STANDARD model is used' 
     78         IF( ln_p2z      )  WRITE(numout,*) '   ==>>>   LOBSTER model is used' 
    7879         IF( ln_ligand )  WRITE(numout,*) '   ==>>>   Compute remineralization/dissolution of organic ligands' 
     80         IF( ln_sediment )  WRITE(numout,*) '   ==>>>   Sediment module is used' 
    7981      ENDIF 
    8082     
Note: See TracChangeset for help on using the changeset viewer.