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/ICE – 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/ICE
Files:
20 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icealb.F90

    r11536 r11782  
    196196      READ  ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 
    197197902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namalb in configuration namelist' ) 
    198       IF(lwm) WRITE( numoni, namalb ) 
     198      IF(lwm .AND. nprint > 2) WRITE( numoni, namalb ) 
    199199      ! 
    200200      IF(lwp) THEN                      ! Control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedia.F90

    r11536 r11782  
    184184      READ  ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 
    185185902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdia in configuration namelist' ) 
    186       IF(lwm) WRITE ( numoni, namdia ) 
     186      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdia ) 
    187187      ! 
    188188      IF(lwp) THEN                  ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn.F90

    r11536 r11782  
    230230      READ  ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 
    231231902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) 
    232       IF(lwm) WRITE( numoni, namdyn ) 
     232      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn ) 
    233233      ! 
    234234      IF(lwp) THEN                     ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv.F90

    r11536 r11782  
    137137      READ  ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 
    138138902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) 
    139       IF(lwm) WRITE( numoni, namdyn_adv ) 
     139      IF(lwm .AND. nprint > 2) WRITE( numoni, namdyn_adv ) 
    140140      ! 
    141141      IF(lwp) THEN                     ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_adv_pra.F90

    r11732 r11782  
    788788      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   !==  write in the ice restart file  ==! 
    789789         !                                   !=====================================! 
    790          IF(lwp) WRITE(numout,*) '----  ice-adv-rst  ----' 
     790         IF(lwp .AND. nprint > 0) WRITE(numout,*) '----  ice-adv-rst  ----' 
    791791         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    792792         ! 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rdgrft.F90

    r11732 r11782  
    914914      READ  ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 
    915915902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' ) 
    916       IF(lwm) WRITE ( numoni, namdyn_rdgrft ) 
     916      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rdgrft ) 
    917917      ! 
    918918      IF (lwp) THEN                          ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg.F90

    r11536 r11782  
    119119      READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 
    120120902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) 
    121       IF(lwm) WRITE ( numoni, namdyn_rhg ) 
     121      IF(lwm .AND. nprint > 2) WRITE ( numoni, namdyn_rhg ) 
    122122      ! 
    123123      IF(lwp) THEN                     ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icedyn_rhg_evp.F90

    r11536 r11782  
    899899      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    900900         !                                   ! ------------------- 
    901          IF(lwp) WRITE(numout,*) '---- rhg-rst ----' 
     901         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- rhg-rst ----' 
    902902         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    903903         ! 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceistate.F90

    r11536 r11782  
    480480      READ  ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 
    481481902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namini in configuration namelist' ) 
    482       IF(lwm) WRITE ( numoni, namini ) 
     482      IF(lwm .AND. nprint > 2) WRITE ( numoni, namini ) 
    483483      ! 
    484484      slf_i(jp_hti) = sn_hti  ;  slf_i(jp_hts) = sn_hts 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceitd.F90

    r11732 r11782  
    692692      READ  ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 
    693693902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namitd in configuration namelist' ) 
    694       IF(lwm) WRITE( numoni, namitd ) 
     694      IF(lwm .AND. nprint > 2) WRITE( numoni, namitd ) 
    695695      ! 
    696696      IF(lwp) THEN                  ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icerst.F90

    r11536 r11782  
    7070            clpath = TRIM(cn_icerst_outdir)  
    7171            IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 
    72             IF(lwp) THEN 
     72            IF(lwp .AND. nprint > 0) THEN 
    7373               WRITE(numout,*) 
    7474               WRITE(numout,*) '             open ice restart NetCDF file: ',TRIM(clpath)//clname 
    … …  
    108108      iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    109109 
    110       IF( iter == nitrst ) THEN 
     110      IF( iter == nitrst .AND. nprint > 0 ) THEN 
    111111         IF(lwp) WRITE(numout,*) 
    112112         IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file  kt =', kt 
    … …  
    178178      !!---------------------------------------------------------------------- 
    179179 
    180       IF(lwp) THEN 
     180      IF(lwp .AND. nprint > 0) THEN 
    181181         WRITE(numout,*) 
    182182         WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file' 
    … …  
    196196         CALL iom_get( numrir, 'nn_fsbc', zfice ) 
    197197         CALL iom_get( numrir, 'kt_ice' , ziter )     
    198          IF(lwp) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
    199          IF(lwp) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
     198         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   read ice restart file at time step    : ', ziter 
     199         IF(lwp .AND. nprint > 0) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1 
    200200 
    201201         ! Control of date 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icesbc.F90

    r11575 r11782  
    290290      READ  ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 
    291291902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) 
    292       IF(lwm) WRITE( numoni, namsbc ) 
     292      IF(lwm .AND. nprint > 2) WRITE( numoni, namsbc ) 
    293293      ! 
    294294      IF(lwp) THEN                     ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icestp.F90

    r11536 r11782  
    235235      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    236236      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    237       IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     237      IF(lwm .AND. nprint > 2) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    238238      ! 
    239239      CALL par_init                ! set some ice run parameters 
    … …  
    307307      READ  ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 
    308308902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nampar in configuration namelist' ) 
    309       IF(lwm) WRITE( numoni, nampar ) 
     309      IF(lwm .AND. nprint > 2) WRITE( numoni, nampar ) 
    310310      ! 
    311311      IF(lwp) THEN                  ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd.F90

    r11536 r11782  
    545545      READ  ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 
    546546902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd in configuration namelist' ) 
    547       IF(lwm) WRITE( numoni, namthd ) 
     547      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd ) 
    548548      ! 
    549549      IF(lwp) THEN                          ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_da.F90

    r11536 r11782  
    183183      READ  ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 
    184184902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_da in configuration namelist' ) 
    185       IF(lwm) WRITE( numoni, namthd_da ) 
     185      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_da ) 
    186186      ! 
    187187      IF(lwp) THEN                          ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_do.F90

    r11536 r11782  
    449449      READ  ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 
    450450902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_do in configuration namelist' ) 
    451       IF(lwm) WRITE( numoni, namthd_do ) 
     451      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_do ) 
    452452      ! 
    453453      IF(lwp) THEN                          ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_pnd.F90

    r11536 r11782  
    214214      READ  ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 
    215215902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist' ) 
    216       IF(lwm) WRITE ( numoni, namthd_pnd ) 
     216      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_pnd ) 
    217217      ! 
    218218      IF(lwp) THEN                        ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_sal.F90

    r11536 r11782  
    138138      READ  ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 
    139139902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_sal in configuration namelist' ) 
    140       IF(lwm) WRITE ( numoni, namthd_sal ) 
     140      IF(lwm .AND. nprint > 2) WRITE ( numoni, namthd_sal ) 
    141141      ! 
    142142      IF(lwp) THEN                           ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/icethd_zdf.F90

    r11536 r11782  
    9494      READ  ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 
    9595902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist' ) 
    96       IF(lwm) WRITE( numoni, namthd_zdf ) 
     96      IF(lwm .AND. nprint > 2) WRITE( numoni, namthd_zdf ) 
    9797      ! 
    9898      IF(lwp) THEN                          ! control print 

  • NEMO/branches/2019/dev_r11756_text_output/src/ICE/iceupdate.F90

    r11536 r11782  
    439439      ELSEIF( TRIM(cdrw) == 'WRITE' ) THEN   ! Create restart file 
    440440         !                                   ! ------------------- 
    441          IF(lwp) WRITE(numout,*) '---- update-rst ----' 
     441         IF(lwp .AND. nprint > 0) WRITE(numout,*) '---- update-rst ----' 
    442442         iter = kt + nn_fsbc - 1             ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    443443         ! 
Note: See TracChangeset for help on using the changeset viewer.