Changeset 9412

Timestamp:

2018-03-20T11:23:44+01:00 (7 years ago)

Author:

flavoni

Message:

cosmetics

Location:

branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL

Files:

• EXP00/namelist_cfg (modified) (1 diff)
• MY_SRC/usrdef_istate.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/EXP00/namelist_cfg

@@ -25 +25 @@
      rn_ujetszy=   4000.   !  latitudinal jet extension    [km]
    nn_botcase  =      0    !  bottom definition (0:flat, 1:bump)
-   nn_initcase =      1    !  initial condition case (0:rest, 1:zonal current, 2:vortex)
-   ln_sshnoise =  .false.  !  add random noise on initial ssh
+   nn_initcase =      1    !  initial condition case (0:rest, 1:zonal current, 2:current shear, 3: gaussian zonal current,
+                           !                          4: geostrophic zonal pulse, 5: vortex)
    ln_sshnoise =  .false.  !  add random noise on initial ssh
    rn_lambda   =     50.   ! gaussian lambda

branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_istate.F90

@@ -289 +289 @@
       END SELECT
 
-      IF (ln_sshnoise) CALL RANDOM_NUMBER(zrandom)
       IF (ln_sshnoise) THEN
          CALL RANDOM_NUMBER(zrandom)