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 11320 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src – NEMO

Ignore:
Timestamp:
2019-07-22T14:52:29+02:00 (5 years ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : add missing if(lwp) in [11317], see #2307 and #2285

Location:
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DOM/domain.F90

    r11317 r11320  
    530530      !!---------------------------------------------------------------------- 
    531531      ! 
    532       WRITE(numout,*) '           ' 
    533       WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 
    534       WRITE(numout,*) '~~~~~~~~~~ ' 
     532      IF(lwp) THEN 
     533         WRITE(numout,*) '           ' 
     534         WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 
     535         WRITE(numout,*) '~~~~~~~~~~ ' 
     536      ENDIF 
    535537      ! 
    536538      CALL iom_open( cn_domcfg, inum ) 
     
    543545         CALL iom_get( inum, 'ORCA_index', zorca_res )   ;   kk_cfg = NINT( zorca_res ) 
    544546         ! 
    545          WRITE(numout,*) '   .' 
    546          WRITE(numout,*) '   ==>>>   ORCA configuration ' 
    547          WRITE(numout,*) '   .' 
     547         IF(lwp) THEN 
     548            WRITE(numout,*) '   .' 
     549            WRITE(numout,*) '   ==>>>   ORCA configuration ' 
     550            WRITE(numout,*) '   .' 
     551         ENDIF 
    548552         ! 
    549553      ELSE                                !- cd_cfg & k_cfg are not used 
     
    566570      CALL iom_close( inum ) 
    567571      ! 
    568       WRITE(numout,*) '      cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg 
    569       WRITE(numout,*) '      jpiglo = ', kpi 
    570       WRITE(numout,*) '      jpjglo = ', kpj 
    571       WRITE(numout,*) '      jpkglo = ', kpk 
    572       WRITE(numout,*) '      type of global domain lateral boundary   jperio = ', kperio 
     572      IF(lwp) THEN 
     573         WRITE(numout,*) '      cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg 
     574         WRITE(numout,*) '      jpiglo = ', kpi 
     575         WRITE(numout,*) '      jpjglo = ', kpj 
     576         WRITE(numout,*) '      jpkglo = ', kpk 
     577         WRITE(numout,*) '      type of global domain lateral boundary   jperio = ', kperio 
     578      ENDIF 
    573579      !         
    574580   END SUBROUTINE domain_cfg 
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/USR/usrdef_nam.F90

    r11317 r11320  
    8080#endif 
    8181      kpk = jpkglo 
    82       ! 
    83       !                             ! control print 
    84       WRITE(numout,*) '   ' 
    85       WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
    86       WRITE(numout,*) '~~~~~~~~~~~ ' 
    87       WRITE(numout,*) '   Namelist namusr_def : GYRE case' 
    88       WRITE(numout,*) '      GYRE used as Benchmark (=T)                      ln_bench  = ', ln_bench 
    89       WRITE(numout,*) '      inverse resolution & implied domain size         nn_GYRE   = ', nn_GYRE 
    90 #if defined key_agrif 
    91       IF( Agrif_Root() ) THEN 
    92 #endif 
    93       WRITE(numout,*) '         jpiglo = 30*nn_GYRE+2                            jpiglo = ', kpi 
    94       WRITE(numout,*) '         jpjglo = 20*nn_GYRE+2                            jpjglo = ', kpj 
    95 #if defined key_agrif 
    96       ENDIF 
    97 #endif 
    98       WRITE(numout,*) '      number of model levels                              jpkglo = ', kpk 
    99       ! 
    10082      !                             ! Set the lateral boundary condition of the global domain 
    10183      kperio = 0                    ! GYRE configuration : closed domain 
    10284      ! 
    103       WRITE(numout,*) '   ' 
    104       WRITE(numout,*) '   Lateral b.c. of the global domain set to closed     jperio = ', kperio 
     85      !                             ! control print 
     86      IF(lwp) THEN 
     87         WRITE(numout,*) '   ' 
     88         WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
     89         WRITE(numout,*) '~~~~~~~~~~~ ' 
     90         WRITE(numout,*) '   Namelist namusr_def : GYRE case' 
     91         WRITE(numout,*) '      GYRE used as Benchmark (=T)                      ln_bench  = ', ln_bench 
     92         WRITE(numout,*) '      inverse resolution & implied domain size         nn_GYRE   = ', nn_GYRE 
     93#if defined key_agrif 
     94         IF( Agrif_Root() ) THEN 
     95#endif 
     96         WRITE(numout,*) '         jpiglo = 30*nn_GYRE+2                            jpiglo = ', kpi 
     97         WRITE(numout,*) '         jpjglo = 20*nn_GYRE+2                            jpjglo = ', kpj 
     98#if defined key_agrif 
     99         ENDIF 
     100#endif 
     101         WRITE(numout,*) '      number of model levels                              jpkglo = ', kpk 
     102         WRITE(numout,*) '   ' 
     103         WRITE(numout,*) '   Lateral b.c. of the global domain set to closed        jperio = ', kperio 
     104      ENDIF 
    105105      ! 
    106106   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.