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

Ticket #2320 print levels in ICE/OCE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_text_output/src/SAS/nemogcm.F90

    r11536 r11782  
    9696      CALL mpp_max( 'nemogcm', nstop ) 
    9797 
    98       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     98      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
    9999 
    100100      !                            !-----------------------! 
     
    148148      !                            !==  finalize the run  ==! 
    149149      !                            !------------------------! 
    150       IF(lwp) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
     150      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)        ! Flag AAAAAAA 
    151151      ! 
    152152      IF( nstop /= 0 .AND. lwp ) THEN        ! error print 
     
    234234                     CALL ctl_opn( numnam_ref,        'namelist_sas_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    235235                     CALL ctl_opn( numnam_cfg,        'namelist_sas_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    236          IF( lwm )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     236         IF( lwm .AND. nprint > 2 )   CALL ctl_opn(     numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    237237      ELSE 
    238238         IF( lwm )   CALL ctl_opn(     numout,            'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     
    240240                     CALL ctl_opn( numnam_ref,            'namelist_ref',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    241241                     CALL ctl_opn( numnam_cfg,            'namelist_cfg',     'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    242          IF( lwm )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
     242         IF( lwm .AND. nprint > 2  )   CALL ctl_opn(     numond,     'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 
    243243      ENDIF 
    244244      ! open /dev/null file to be able to supress output write easily 
     
    288288         WRITE(numout,*) 
    289289         ! 
    290          WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
     290         IF(nprint > 1) WRITE(numout,cform_aaa)                                        ! Flag AAAAAAA 
    291291         ! 
    292292      ENDIF 
     
    305305      ENDIF 
    306306      ! 
    307       IF(lwm) WRITE( numond, namctl ) 
     307      IF(lwm .AND. nprint > 2) WRITE( numond, namctl ) 
    308308      ! 
    309309      !                             !------------------------------------! 
     
    324324      ENDIF 
    325325      ! 
    326       IF(lwm)   WRITE( numond, namcfg ) 
     326      nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
     327      ! 
     328      IF(lwm .AND. nprint > 2)   WRITE( numond, namcfg ) 
    327329      ! 
    328330      !                             !-----------------------------------------! 
     
    362364                           CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
    363365      ! 
    364       IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
     366      IF(lwp .AND. nprint > 1) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
    365367      ! 
    366368      IF( ln_timing    )   CALL timing_stop( 'nemo_init') 
     
    406408      ENDIF 
    407409      ! 
    408       nprint    = nn_print          ! convert DOCTOR namelist names into OLD names 
    409410      nictls    = nn_ictls 
    410411      nictle    = nn_ictle 
Note: See TracChangeset for help on using the changeset viewer.