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

    r11317 r11320  
    7676      kpj = INT(  32.e3 / rn_dx ) + 2 
    7777      kpk = INT(  10.  / rn_dz ) + 1 
    78       ! 
    79       !                             ! control print 
    80       WRITE(numout,*) '   ' 
    81       WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
    82       WRITE(numout,*) '~~~~~~~~~~~ ' 
    83       WRITE(numout,*) '   Namelist namusr_def : WAD_TEST_CASES test case' 
    84       WRITE(numout,*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters' 
    85       WRITE(numout,*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters' 
    86       WRITE(numout,*) '      WAD_TEST_CASES domain = 52 km  x  34 km x 10 m' 
    87       WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
    88       WRITE(numout,*) '                                               jpjglo = ', kpj 
    89       WRITE(numout,*) '                                               jpkglo = ', kpk 
    90       ! 
    9178      !                             ! Set the lateral boundary condition of the global domain 
    9279      kperio = 0                    ! WAD_TEST_CASES configuration : closed domain 
    9380      IF( nn_wad_test == 8 ) kperio = 7 ! North-South cyclic test 
    9481      ! 
    95       WRITE(numout,*) '   ' 
    96       WRITE(numout,*) '   Lateral boundary condition of the global domain' 
    97       WRITE(numout,*) '      closed                                   jperio = ', kperio 
     82      !                             ! control print 
     83      IF(lwp) THEN 
     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 : WAD_TEST_CASES test case' 
     88         WRITE(numout,*) '      horizontal resolution                    rn_dx  = ', rn_dx, ' meters' 
     89         WRITE(numout,*) '      vertical   resolution                    rn_dz  = ', rn_dz, ' meters' 
     90         WRITE(numout,*) '      WAD_TEST_CASES domain = 52 km  x  34 km x 10 m' 
     91         WRITE(numout,*) '         resulting global domain size :        jpiglo = ', kpi 
     92         WRITE(numout,*) '                                               jpjglo = ', kpj 
     93         WRITE(numout,*) '                                               jpkglo = ', kpk 
     94         WRITE(numout,*) '   ' 
     95         WRITE(numout,*) '   Lateral boundary condition of the global domain' 
     96         WRITE(numout,*) '      closed                                   jperio = ', kperio 
     97      ENDIF 
    9898      ! 
    9999   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.