Changeset 2453 for branches/nemo_v3_3_beta/NEMOGCM/NEMO

Timestamp:

2010-12-05T13:29:09+01:00 (13 years ago)

Author:

gm

Message:

v3.3beta: #769 remove useless nn_dynhpg_rst namelist parameter

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -53 +53 @@
    REAL(wp), PUBLIC ::   rn_gamma      = 0._wp     !: weighting coefficient
    LOGICAL , PUBLIC ::   ln_dynhpg_imp = .FALSE.   !: semi-implicite hpg flag
-   INTEGER , PUBLIC ::   nn_dynhpg_rst = 0         !: add dynhpg implicit variables in restart ot not
 
    INTEGER  ::   nhpg  =  0   ! = 0 to 6, type of pressure gradient scheme used ! (deduced from ln_hpg_... flags)
@@ -121 +120 @@
       INTEGER ::   ioptio = 0      ! temporary integer
       !!
-      NAMELIST/namdyn_hpg/ ln_hpg_zco   , ln_hpg_zps   , ln_hpg_sco, ln_hpg_hel,   &
-         &                 ln_hpg_wdj   , ln_hpg_djc   , ln_hpg_rot, rn_gamma  ,   &
-         &                 ln_dynhpg_imp, nn_dynhpg_rst
+      NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco, ln_hpg_hel,    &
+         &                 ln_hpg_wdj, ln_hpg_djc, ln_hpg_rot, rn_gamma  , ln_dynhpg_imp
       !!----------------------------------------------------------------------
       !
@@ -143 +141 @@
          WRITE(numout,*) '      weighting coeff. (wdj scheme)                     rn_gamma      = ', rn_gamma
          WRITE(numout,*) '      time stepping: centered (F) or semi-implicit (T)  ln_dynhpg_imp = ', ln_dynhpg_imp
-         WRITE(numout,*) '      add in restart dynhpg semi-implicit variable      nn_dynhpg_rst = ', nn_dynhpg_rst
       ENDIF
-      !
-      IF( .NOT. ln_dynhpg_imp )   nn_dynhpg_rst = 0      ! force no additional dynhpg implicit variables in restart file
       !
       IF( lk_vvl .AND. .NOT. ln_hpg_sco )   &