Changeset 7741 for branches/UKMO
- Timestamp:
- 2017-02-27T14:25:47+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r7739 r7741 33 33 INTEGER , PARAMETER :: jp_vtau = 2 ! index of wind stress (j-component) file 34 34 INTEGER , PARAMETER :: jp_qtot = 3 ! index of total (non solar+solar) heat file 35 36 ! These lines are here just to allow merging with another branch 37 INTEGER, PUBLIC :: nn_drag ! type of formula to calculate wind stress from wind components 38 INTEGER, PUBLIC, PARAMETER :: jp_ukmo = 0 ! UKMO SHELF formulation 39 INTEGER, PUBLIC, PARAMETER :: jp_std = 1 ! standard formulation with forced or coupled drag coefficient 40 INTEGER, PUBLIC, PARAMETER :: jp_const = 2 ! standard formulation with constant drag coefficient 41 35 42 INTEGER , PARAMETER :: jp_qsr = 4 ! index of solar heat file 36 43 INTEGER , PARAMETER :: jp_emp = 5 ! index of evaporation-precipation file … … 38 45 LOGICAL , PUBLIC :: ln_shelf_flx = .FALSE. ! UKMO SHELF specific flux flag 39 46 INTEGER :: jpfld_local ! maximum number of files to read (locally modified depending on ln_shelf_flx) 40 41 INTEGER, PUBLIC :: nn_drag ! type of formula to calculate wind stress from wind components42 INTEGER, PUBLIC, PARAMETER :: jp_ukmo = 0 ! UKMO SHELF formulation43 INTEGER, PUBLIC, PARAMETER :: jp_std = 1 ! standard formulation with forced or coupled drag coefficient44 INTEGER, PUBLIC, PARAMETER :: jp_const = 2 ! standard formulation with constant drag coefficient45 47 46 48 !! * Substitutions
Note: See TracChangeset
for help on using the changeset viewer.