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 5411 – NEMO

Changeset 5411


Ignore:
Timestamp:
2015-06-12T19:39:14+02:00 (9 years ago)
Author:
cetlod
Message:

trunk : add missing lwp to avoid printing in the standard output file

Location:
trunk/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r5385 r5411  
    220220 
    221221      IF ( ( nn_ice_tr >= 0 ) .AND. ln_ironice ) THEN 
    222          WRITE(numout,*) ' ln_ironice incompatible with nn_ice_tr = ', nn_ice_tr 
    223          WRITE(numout,*) ' Specify your sea ice iron concentration in nampisice instead ' 
    224          WRITE(numout,*) ' ln_ironice is forced to .FALSE. ' 
    225          ln_ironice = .FALSE. 
     222         IF(lwp) THEN 
     223            WRITE(numout,*) ' ln_ironice incompatible with nn_ice_tr = ', nn_ice_tr 
     224            WRITE(numout,*) ' Specify your sea ice iron concentration in nampisice instead ' 
     225            WRITE(numout,*) ' ln_ironice is forced to .FALSE. ' 
     226            ln_ironice = .FALSE. 
     227         ENDIF 
    226228      ENDIF 
    227229 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5385 r5411  
    254254 902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist', lwp ) 
    255255 
    256       WRITE(numout,*) ' ' 
    257       WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr 
    258       WRITE(numout,*) ' ' 
     256      IF( lwp ) THEN 
     257         WRITE(numout,*) ' ' 
     258         WRITE(numout,*) ' Sea ice tracers option (nn_ice_tr) : ', nn_ice_tr 
     259         WRITE(numout,*) ' ' 
     260      ENDIF 
    259261 
    260262      ! Assign namelist stuff 
Note: See TracChangeset for help on using the changeset viewer.