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/cfgs – 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/cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90

    r11317 r11320  
    7474      kpj = 3 
    7575      kpk = 75  
    76       ! 
    77       !                             ! control print 
    78       WRITE(numout,*) '   ' 
    79       WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
    80       WRITE(numout,*) '~~~~~~~~~~~ ' 
    81       WRITE(numout,*) '   Namelist namusr_def : C1 case' 
    82       WRITE(numout,*) '      type of vertical coordinate : ' 
    83       WRITE(numout,*) '         z-coordinate flag                     ln_zco = ', ln_zco 
    84       WRITE(numout,*) '         z-partial-step coordinate flag        ln_zps = ', ln_zps 
    85       WRITE(numout,*) '         s-coordinate flag                     ln_sco = ', ln_sco 
    86       WRITE(numout,*) '      C1D domain = 3 x 3 x75 grid-points                ' 
    87       WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
    88       WRITE(numout,*) '                                               jpjglo = ', kpj 
    89       WRITE(numout,*) '                                               jpkglo = ', kpk 
    90  
    91       ! 
    9276      !                             ! Set the lateral boundary condition of the global domain 
    9377      kperio =  7                   ! C1D configuration : 3x3 basin with cyclic Est-West and Norht-South condition 
    9478      ! 
    95       WRITE(numout,*) '   Lateral boundary condition of the global domain' 
    96       WRITE(numout,*) '      C1D : closed basin                 jperio = ', kperio 
     79      !                             ! control print 
     80      IF(lwp) THEN 
     81         WRITE(numout,*) '   ' 
     82         WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
     83         WRITE(numout,*) '~~~~~~~~~~~ ' 
     84         WRITE(numout,*) '   Namelist namusr_def : C1 case' 
     85         WRITE(numout,*) '      type of vertical coordinate : ' 
     86         WRITE(numout,*) '         z-coordinate flag                     ln_zco = ', ln_zco 
     87         WRITE(numout,*) '         z-partial-step coordinate flag        ln_zps = ', ln_zps 
     88         WRITE(numout,*) '         s-coordinate flag                     ln_sco = ', ln_sco 
     89         WRITE(numout,*) '      C1D domain = 3 x 3 x75 grid-points                ' 
     90         WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
     91         WRITE(numout,*) '                                               jpjglo = ', kpj 
     92         WRITE(numout,*) '                                               jpkglo = ', kpk 
     93         WRITE(numout,*) '   Lateral boundary condition of the global domain' 
     94         WRITE(numout,*) '      C1D : closed basin                       jperio = ', kperio 
     95      ENDIF 
    9796      ! 
    9897   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.