New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 32 for trunk/NEMO/OPA_SRC/DIA/diahth.F90 – NEMO

Ignore:
Timestamp:
2004-02-17T10:20:15+01:00 (20 years ago)
Author:
opalod
Message:

CT : UPDATE001 : First major NEMO update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diahth.F90

    r3 r32  
    2323 
    2424   !! * 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 
    3231 
    3332   !! * Substitutions 
     
    210209   !!   Default option :                                       Empty module 
    211210   !!---------------------------------------------------------------------- 
    212    LOGICAL , PUBLIC, PARAMETER ::   & 
    213       lk_diahth = .FALSE.   ! thermocline-20d depths flag 
     211   LOGICAL , PUBLIC, PARAMETER ::   lk_diahth = .FALSE.  !: thermocline-20d depths flag 
    214212CONTAINS 
    215213   SUBROUTINE dia_hth( kt )         ! Empty routine 
    216       WRITE(*,*) kt 
     214      WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
    217215   END SUBROUTINE dia_hth 
    218216#endif 
Note: See TracChangeset for help on using the changeset viewer.