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/OCE/USR/usrdef_nam.F90 – 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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.