Changeset 2466

Timestamp:

2010-12-08T15:14:32+01:00 (13 years ago)

Author:

cetlod

Message:

v3.2 : suppress useless parameter nn_dynhpg_rst, see ticket:769

Location:

trunk/NEMO/OPA_SRC

Files:

• DYN/dynhpg.F90 (modified) (3 diffs)
• opa.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -51 +51 @@
    REAL(wp), PUBLIC ::   rn_gamma      = 0.e0      !: 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)
@@ -124 +123 @@
 !     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
+!        &                 ln_dynhpg_imp
       !!----------------------------------------------------------------------
 
@@ -144 +143 @@
          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 adding dynhpg implicit variables in restart
 
       IF( lk_vvl .AND. .NOT. ln_hpg_sco )   THEN

trunk/NEMO/OPA_SRC/opa.F90

@@ -290 +290 @@
       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
+         &                 ln_dynhpg_imp
       !!----------------------------------------------------------------------