Changeset 541 for trunk/NEMO/OPA_SRC/DYN/dynhpg.F90
- Timestamp:
- 2006-10-20T14:21:28+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynhpg.F90
r503 r541 66 66 LOGICAL :: ln_hpg_rot = .FALSE. ! s-coordinate (ROTated axes scheme) 67 67 REAL(wp) :: gamm = 0.e0 ! weighting coefficient 68 NAMELIST/nam_dynhpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco, ln_hpg_hel, &69 & ln_hpg_wdj, ln_hpg_djc, ln_hpg_rot, gamm70 68 71 69 INTEGER :: nhpg = 0 ! = 0 to 6, type of pressure gradient scheme used … … 141 139 !!---------------------------------------------------------------------- 142 140 INTEGER :: ioptio = 0 ! temporary integer 141 142 NAMELIST/nam_dynhpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco, ln_hpg_hel, & 143 & ln_hpg_wdj, ln_hpg_djc, ln_hpg_rot, gamm 143 144 !!---------------------------------------------------------------------- 144 145
Note: See TracChangeset
for help on using the changeset viewer.