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 11782 for NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA – NEMO

Ignore:
Timestamp:
2019-10-24T10:30:30+02:00 (5 years ago)
Author:
andmirek
Message:

Ticket #2320 print levels in ICE/OCE

Location:
NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/dia25h.F90

    r11536 r11782  
    5959      READ  ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 
    6060902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' ) 
    61       IF(lwm) WRITE ( numond, nam_dia25h ) 
     61      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_dia25h ) 
    6262 
    6363      IF(lwp) THEN                   ! Control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diadct.F90

    r11536 r11782  
    130130     READ  ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 ) 
    131131902  IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' ) 
    132      IF(lwm) WRITE ( numond, nam_diadct ) 
     132     IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diadct ) 
    133133 
    134134     IF( lwp ) THEN 

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaharm.F90

    r11536 r11782  
    8585      READ  ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 
    8686902   IF( ios >  0 )   CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' ) 
    87       IF(lwm) WRITE ( numond, nam_diaharm ) 
     87      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diaharm ) 
    8888      ! 
    8989      IF(lwp) THEN 

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diahsb.F90

    r11536 r11782  
    310310      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    311311         !                                   ! ------------------- 
    312          IF(lwp) WRITE(numout,*) 
    313          IF(lwp) WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 
    314          IF(lwp) WRITE(numout,*) 
     312         IF(lwp .AND. nprint > 0) THEN 
     313            WRITE(numout,*) 
     314            WRITE(numout,*) '   dia_hsb_rst : write restart at it= ', kt,' date= ', ndastp 
     315            WRITE(numout,*) 
     316         ENDIF 
    315317         ! 
    316318         IF( lwxios ) CALL iom_swap(      cwxios_context          ) 
    … …  
    366368      READ  ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 
    367369902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) 
    368       IF(lwm) WRITE( numond, namhsb ) 
     370      IF(lwm .AND. nprint > 2) WRITE( numond, namhsb ) 
    369371 
    370372      IF(lwp) THEN 

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diaptr.F90

    r11536 r11782  
    398398      READ  ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 
    399399902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) 
    400       IF(lwm) WRITE ( numond, namptr ) 
     400      IF(lwm .AND. nprint > 2) WRITE ( numond, namptr ) 
    401401 
    402402      IF(lwp) THEN                     ! Control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/OCE/DIA/diatmb.F90

    r11536 r11782  
    4848      READ  ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 
    4949902   IF( ios >  0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist' ) 
    50       IF(lwm) WRITE ( numond, nam_diatmb ) 
     50      IF(lwm .AND. nprint > 2) WRITE ( numond, nam_diatmb ) 
    5151 
    5252      IF(lwp) THEN                   ! Control print 
Note: See TracChangeset for help on using the changeset viewer.