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 2466 – NEMO

Changeset 2466


Ignore:
Timestamp:
2010-12-08T15:14:32+01:00 (14 years ago)
Author:
cetlod
Message:

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

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DYN/dynhpg.F90

    r1601 r2466  
    5151   REAL(wp), PUBLIC ::   rn_gamma      = 0.e0      !: weighting coefficient 
    5252   LOGICAL , PUBLIC ::   ln_dynhpg_imp = .FALSE.   !: semi-implicite hpg flag 
    53    INTEGER , PUBLIC ::   nn_dynhpg_rst = 0         !: add dynhpg implicit variables in restart ot not 
    5453 
    5554   INTEGER  ::   nhpg  =  0   ! = 0 to 6, type of pressure gradient scheme used ! (deduced from ln_hpg_... flags) 
     
    124123!     NAMELIST/namdyn_hpg/ ln_hpg_zco   , ln_hpg_zps   , ln_hpg_sco, ln_hpg_hel,   & 
    125124!        &                 ln_hpg_wdj   , ln_hpg_djc   , ln_hpg_rot, rn_gamma  ,   & 
    126 !        &                 ln_dynhpg_imp, nn_dynhpg_rst 
     125!        &                 ln_dynhpg_imp 
    127126      !!---------------------------------------------------------------------- 
    128127 
     
    144143         WRITE(numout,*) '      weighting coeff. (wdj scheme)                     rn_gamma      = ', rn_gamma 
    145144         WRITE(numout,*) '      time stepping: centered (F) or semi-implicit (T)  ln_dynhpg_imp = ', ln_dynhpg_imp 
    146          WRITE(numout,*) '      add in restart dynhpg semi-implicit variable      nn_dynhpg_rst = ', nn_dynhpg_rst 
    147145      ENDIF 
    148  
    149       IF( .NOT. ln_dynhpg_imp )   nn_dynhpg_rst = 0      ! force no adding dynhpg implicit variables in restart 
    150146 
    151147      IF( lk_vvl .AND. .NOT. ln_hpg_sco )   THEN 
  • trunk/NEMO/OPA_SRC/opa.F90

    r2170 r2466  
    290290      NAMELIST/namdyn_hpg/ ln_hpg_zco   , ln_hpg_zps   , ln_hpg_sco, ln_hpg_hel,   & 
    291291         &                 ln_hpg_wdj   , ln_hpg_djc   , ln_hpg_rot, rn_gamma  ,   & 
    292          &                 ln_dynhpg_imp, nn_dynhpg_rst 
     292         &                 ln_dynhpg_imp 
    293293      !!---------------------------------------------------------------------- 
    294294 
Note: See TracChangeset for help on using the changeset viewer.