Changeset 2068 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/trabbc.F90
- Timestamp:
- 2010-09-06T17:56:51+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1837_MLF/NEMO/OPA_SRC/TRA/trabbc.F90
r1601 r2068 35 35 REAL(wp) :: rn_geoflx_cst = 86.4e-3 ! Constant value of geothermal heat flux 36 36 37 INTEGER , DIMENSION(jpi,jpj) :: nbotlevt ! ocean bottom level index at T-pt38 REAL(wp), DIMENSION(jpi,jpj) :: qgh_trd0 ! geothermal heating trend37 INTEGER , PUBLIC, DIMENSION(jpi,jpj) :: nbotlevt ! ocean bottom level index at T-pt 38 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: qgh_trd0 ! geothermal heating trend 39 39 40 40 !! * Substitutions
Note: See TracChangeset
for help on using the changeset viewer.