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

    r11317 r11320  
    119119      ! 
    120120      zh  = (kpk-1)*rn_dz 
    121       !                             ! control print 
    122       WRITE(numout,*) '   ' 
    123       WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
    124       WRITE(numout,*) '~~~~~~~~~~~ ' 
    125       WRITE(numout,*) '   Namelist namusr_def : EW_CANAL test case' 
    126       WRITE(numout,*) '      horizontal domain size-x          rn_domszx  = ', rn_domszx, ' km' 
    127       WRITE(numout,*) '      horizontal domain size-y          rn_domszy  = ', rn_domszy, ' km' 
    128       WRITE(numout,*) '      vertical   domain size-z          rn_domszz  = ', rn_domszz, '  m' 
    129       WRITE(numout,*) '      horizontal x-resolution           rn_dx      = ',     rn_dx, ' km' 
    130       WRITE(numout,*) '      horizontal y-resolution           rn_dy      = ',     rn_dy, ' km' 
    131       WRITE(numout,*) '      vertical resolution               rn_dz      = ',     rn_dz, '  m' 
    132       WRITE(numout,*) '      x-domain ratio of the 0           rn_0xratio = ', rn_0xratio 
    133       WRITE(numout,*) '      y-domain ratio of the 0           rn_0yratio = ', rn_0yratio 
    134       WRITE(numout,*) '          H [m] : ', zh 
    135       WRITE(numout,*) '      F computation                     nn_fcase   = ',   nn_fcase 
    136       WRITE(numout,*) '      Reference latitude                rn_ppgphi0 = ', rn_ppgphi0 
    137       WRITE(numout,*) '      10m wind speed                    rn_u10     = ',     rn_u10, ' m/s' 
    138       WRITE(numout,*) '         wind latitudinal extension     rn_windszy = ', rn_windszy, ' km' 
    139       WRITE(numout,*) '         wind longitudinal extension    rn_windszx = ', rn_windszx, ' km' 
    140       WRITE(numout,*) '         Uoce multiplicative factor     rn_uofac   = ',   rn_uofac 
    141       WRITE(numout,*) '      initial Canal max current        rn_vtxmax  = ',  rn_vtxmax, ' m/s' 
    142       WRITE(numout,*) '      initial zonal current             rn_uzonal  = ',  rn_uzonal, ' m/s' 
    143       WRITE(numout,*) '         Jet latitudinal extension      rn_ujetszy = ', rn_ujetszy, ' km' 
    144       WRITE(numout,*) '         Jet longitudinal extension     rn_ujetszx = ', rn_ujetszx, ' km' 
    145       WRITE(numout,*) '      bottom definition (0:flat)        nn_botcase = ', nn_botcase 
    146       WRITE(numout,*) '      initial condition case            nn_initcase= ', nn_initcase 
    147       WRITE(numout,*) '                   (0:rest, 1:zonal current, 10:shear)' 
    148       WRITE(numout,*) '      add random noise on initial ssh   ln_sshnoise= ', ln_sshnoise 
    149       WRITE(numout,*) '      Gaussian lambda parameter          rn_lambda = ', rn_lambda 
    150       ! 
    151121      !                             ! Set the lateral boundary condition of the global domain 
    152122      kperio = 1                    ! EW_CANAL configuration : closed basin 
    153       ! 
    154       WRITE(numout,*) '   ' 
    155       WRITE(numout,*) '   Lateral boundary condition of the global domain' 
    156       WRITE(numout,*) '      EW_CANAL : closed basin            jperio = ', kperio 
     123      !                             ! control print 
     124      IF(lwp) THEN 
     125         WRITE(numout,*) '   ' 
     126         WRITE(numout,*) 'usr_def_nam  : read the user defined namelist (namusr_def) in namelist_cfg' 
     127         WRITE(numout,*) '~~~~~~~~~~~ ' 
     128         WRITE(numout,*) '   Namelist namusr_def : EW_CANAL test case' 
     129         WRITE(numout,*) '      horizontal domain size-x          rn_domszx  = ', rn_domszx, ' km' 
     130         WRITE(numout,*) '      horizontal domain size-y          rn_domszy  = ', rn_domszy, ' km' 
     131         WRITE(numout,*) '      vertical   domain size-z          rn_domszz  = ', rn_domszz, '  m' 
     132         WRITE(numout,*) '      horizontal x-resolution           rn_dx      = ',     rn_dx, ' km' 
     133         WRITE(numout,*) '      horizontal y-resolution           rn_dy      = ',     rn_dy, ' km' 
     134         WRITE(numout,*) '      vertical resolution               rn_dz      = ',     rn_dz, '  m' 
     135         WRITE(numout,*) '      x-domain ratio of the 0           rn_0xratio = ', rn_0xratio 
     136         WRITE(numout,*) '      y-domain ratio of the 0           rn_0yratio = ', rn_0yratio 
     137         WRITE(numout,*) '          H [m] : ', zh 
     138         WRITE(numout,*) '      F computation                     nn_fcase   = ',   nn_fcase 
     139         WRITE(numout,*) '      Reference latitude                rn_ppgphi0 = ', rn_ppgphi0 
     140         WRITE(numout,*) '      10m wind speed                    rn_u10     = ',     rn_u10, ' m/s' 
     141         WRITE(numout,*) '         wind latitudinal extension     rn_windszy = ', rn_windszy, ' km' 
     142         WRITE(numout,*) '         wind longitudinal extension    rn_windszx = ', rn_windszx, ' km' 
     143         WRITE(numout,*) '         Uoce multiplicative factor     rn_uofac   = ',   rn_uofac 
     144         WRITE(numout,*) '      initial Canal max current         rn_vtxmax  = ',  rn_vtxmax, ' m/s' 
     145         WRITE(numout,*) '      initial zonal current             rn_uzonal  = ',  rn_uzonal, ' m/s' 
     146         WRITE(numout,*) '         Jet latitudinal extension      rn_ujetszy = ', rn_ujetszy, ' km' 
     147         WRITE(numout,*) '         Jet longitudinal extension     rn_ujetszx = ', rn_ujetszx, ' km' 
     148         WRITE(numout,*) '      bottom definition (0:flat)        nn_botcase = ', nn_botcase 
     149         WRITE(numout,*) '      initial condition case            nn_initcase= ', nn_initcase 
     150         WRITE(numout,*) '                   (0:rest, 1:zonal current, 10:shear)' 
     151         WRITE(numout,*) '      add random noise on initial ssh   ln_sshnoise= ', ln_sshnoise 
     152         WRITE(numout,*) '      Gaussian lambda parameter          rn_lambda = ', rn_lambda 
     153         WRITE(numout,*) '   ' 
     154         WRITE(numout,*) '   Lateral boundary condition of the global domain' 
     155         WRITE(numout,*) '      EW_CANAL : closed basin               jperio = ', kperio 
     156      ENDIF 
    157157      ! 
    158158   END SUBROUTINE usr_def_nam 
Note: See TracChangeset for help on using the changeset viewer.