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/tests/LOCK_EXCHANGE – 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/tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90

    r11317 r11320  
    7474      kpj = 3 
    7575      kpk = INT(  20.  / rn_dz ) + 1 
    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 : LOCK_EXCHANGE test case' 
    82       WRITE(numout,*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters' 
    83       WRITE(numout,*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters' 
    84       WRITE(numout,*) '      LOCK_EXCHANGE domain = 64 km  x  3 grid-points  x  20 m' 
    85       WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
    86       WRITE(numout,*) '                                               jpjglo = ', kpj 
    87       WRITE(numout,*) '                                               jpkglo = ', kpk 
    88       ! 
    8976      !                             ! Set the lateral boundary condition of the global domain 
    9077      kperio = 0                    ! LOCK_EXCHANGE configuration : closed domain 
    9178      ! 
    92       WRITE(numout,*) '   ' 
    93       WRITE(numout,*) '   Lateral boundary condition of the global domain' 
    94       WRITE(numout,*) '      closed                                   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 : LOCK_EXCHANGE test case' 
     85         WRITE(numout,*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters' 
     86         WRITE(numout,*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters' 
     87         WRITE(numout,*) '      LOCK_EXCHANGE domain = 64 km  x  3 grid-points  x  20 m' 
     88         WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
     89         WRITE(numout,*) '                                               jpjglo = ', kpj 
     90         WRITE(numout,*) '                                               jpkglo = ', kpk 
     91         WRITE(numout,*) '   ' 
     92         WRITE(numout,*) '   Lateral boundary condition of the global domain' 
     93         WRITE(numout,*) '      closed                                   jperio = ', kperio 
     94      ENDIF 
    9595      ! 
    9696   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.