Changeset 32 for trunk/NEMO/OPA_SRC/DIA/diahth.F90
- Timestamp:
- 2004-02-17T10:20:15+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diahth.F90
r3 r32 23 23 24 24 !! * Shared module variables 25 LOGICAL , PUBLIC, PARAMETER :: & 26 lk_diahth = .TRUE. ! thermocline-20d depths flag 27 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & 28 hth , & ! depth of the max vertical temperature gradient (m) 29 hd20 , & ! depth of 20 C isotherm (m) 30 hd28 , & ! depth of 28 C isotherm (m) 31 htc3 ! heat content of first 300 m 25 LOGICAL , PUBLIC, PARAMETER :: lk_diahth = .TRUE. !: thermocline-20d depths flag 26 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & !: 27 hth , & !: depth of the max vertical temperature gradient (m) 28 hd20 , & !: depth of 20 C isotherm (m) 29 hd28 , & !: depth of 28 C isotherm (m) 30 htc3 !: heat content of first 300 m 32 31 33 32 !! * Substitutions … … 210 209 !! Default option : Empty module 211 210 !!---------------------------------------------------------------------- 212 LOGICAL , PUBLIC, PARAMETER :: & 213 lk_diahth = .FALSE. ! thermocline-20d depths flag 211 LOGICAL , PUBLIC, PARAMETER :: lk_diahth = .FALSE. !: thermocline-20d depths flag 214 212 CONTAINS 215 213 SUBROUTINE dia_hth( kt ) ! Empty routine 216 WRITE(*,*) kt214 WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 217 215 END SUBROUTINE dia_hth 218 216 #endif
Note: See TracChangeset
for help on using the changeset viewer.