- Timestamp:
- 2010-12-08T15:14:32+01:00 (14 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynhpg.F90
r1601 r2466 51 51 REAL(wp), PUBLIC :: rn_gamma = 0.e0 !: weighting coefficient 52 52 LOGICAL , PUBLIC :: ln_dynhpg_imp = .FALSE. !: semi-implicite hpg flag 53 INTEGER , PUBLIC :: nn_dynhpg_rst = 0 !: add dynhpg implicit variables in restart ot not54 53 55 54 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, & 125 124 ! & ln_hpg_wdj , ln_hpg_djc , ln_hpg_rot, rn_gamma , & 126 ! & ln_dynhpg_imp , nn_dynhpg_rst125 ! & ln_dynhpg_imp 127 126 !!---------------------------------------------------------------------- 128 127 … … 144 143 WRITE(numout,*) ' weighting coeff. (wdj scheme) rn_gamma = ', rn_gamma 145 144 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_rst147 145 ENDIF 148 149 IF( .NOT. ln_dynhpg_imp ) nn_dynhpg_rst = 0 ! force no adding dynhpg implicit variables in restart150 146 151 147 IF( lk_vvl .AND. .NOT. ln_hpg_sco ) THEN -
trunk/NEMO/OPA_SRC/opa.F90
r2170 r2466 290 290 NAMELIST/namdyn_hpg/ ln_hpg_zco , ln_hpg_zps , ln_hpg_sco, ln_hpg_hel, & 291 291 & ln_hpg_wdj , ln_hpg_djc , ln_hpg_rot, rn_gamma , & 292 & ln_dynhpg_imp , nn_dynhpg_rst292 & ln_dynhpg_imp 293 293 !!---------------------------------------------------------------------- 294 294
Note: See TracChangeset
for help on using the changeset viewer.