source: LMDZ4/trunk/libf/phylmd/surface_data.F90 @ 5423

Last change on this file since 5423 was 996, checked in by lsce, 16 years ago
  • Modifications liées au calcul des nouveau sous-fractions
  • Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
  • Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 619 bytes
RevLine 
[781]1!
2! $Header$
3!
4MODULE surface_data
5
6  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
7  REAL, PARAMETER        :: tau_gl=86400.*5.
8  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
9 
[996]10  LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
[781]11  !$OMP THREADPRIVATE(ok_veget)
12
[996]13  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
14  !$OMP THREADPRIVATE(type_ocean)
15
16  ! if type_ocean=couple : version_ocean=opa8 ou nemo
17  ! if type_ocean=slab   : version_ocean=sicOBS
18  CHARACTER(len=6), SAVE :: version_ocean
19  !$OMP THREADPRIVATE(version_ocean)
20
[781]21END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.