/[lmdze]/trunk/phylmd/clesphys.f
ViewVC logotype

Annotation of /trunk/phylmd/clesphys.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 68 - (hide annotations)
Wed Nov 14 16:59:30 2012 UTC (11 years, 6 months ago) by guez
Original Path: trunk/libf/phylmd/clesphys.f90
File size: 1529 byte(s) 
Split "flincom.f90" into "flinclo.f90", "flinfindcood.f90",
"flininfo.f90" and "flinopen_nozoom.f90", in directory
"IOIPSL/Flincom".

Renamed "etat0_lim" to "ce0l", as in LMDZ.

Split "readsulfate.f" into "readsulfate.f90", "readsulfate_preind.f90"
and "getso4fromfile.f90".

In etat0, renamed variable q3d to q, as in "dynredem1". Replaced calls
to Flicom procedures by calls to NetCDF95.

In leapfrog, added call to writehist.

Extracted ASCII art from "grid_noro" into a file
"grid_noro.txt". Transformed explicit-shape local arrays into
automatic arrays, so that test on values of iim and jjm is no longer
needed. Test on weight:
          IF (weight(ii, jj) /= 0.) THEN
is useless. There is already a test before:
    if (any(weight == 0.)) stop "zero weight in grid_noro"

In "aeropt", replaced duplicated lines with different values of inu by
a loop on inu.

Removed arguments of "conf_phys". Corresponding variables are now
defined in "physiq", in a namelist. In "conf_phys", read a namelist
instead of using getin.
1 guez 3 module clesphys
2    
3 guez 51 ! From version 1.3 2005/06/06 13:16:33
4 guez 3
5     implicit none
6    
7 guez 68 LOGICAL bug_ozone ! Pour retrouver le bug de l'ozone (IPCC)
8     REAL co2_ppm ! concentration du gaz carbonique en ppmv
9     real solaire ! Constante solaire en W/m2
10     double precision RCO2 ! Concentration du CO2
11     double precision RCH4 ! Concentration du CH4
12     double precision RN2O ! Concentration du N2O
13     double precision RCFC11 ! Concentration du CFC11
14     double precision RCFC12 ! Concentration du CFC12
15 guez 3 double precision CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
16 guez 68
17     ! Simulateur ISCCP:
18     INTEGER top_height
19     INTEGER overlap ! 1, 2 or 3
20    
21 guez 51 REAL cdmmax, cdhmax ! seuils cdrm, cdrh
22     REAL ksta, ksta_ter ! paramètres stabilité sur terres et en dehors
23     LOGICAL ok_kzmin ! calcul Kzmin dans la couche limite de surface
24 guez 68
25 guez 3 INTEGER lev_histhf ! niveau sorties 6h
26 guez 68 ! 4: histhf3d.nc champs 3d niveaux modele
27    
28 guez 3 integer lev_histday ! niveau sorties journalieres
29 guez 68 ! 3: champs 3D => F. Lott
30     ! 4: + champs sous-surfaces
31    
32 guez 3 integer lev_histmth ! niveau sorties mensuelles
33 guez 68 ! 3: albedo, rugosite sous-surfaces
34     ! 4: champs tendances 3d
35    
36     CHARACTER(len=4) type_run ! 'AMIP' ou 'ENSP'
37 guez 3 LOGICAL ok_isccp, ok_regdyn
38 guez 68
39 guez 3 REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
40 guez 68 ! longitude et latitude minimales et maximales pour la zone avec
41     ! sorties instantanées tous les pas de temps de la physique,
42     ! fichier "histbilKP_ins.nc"
43    
44 guez 3 INTEGER ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day
45     INTEGER ecrit_mth, ecrit_tra, ecrit_reg
46    
47     save
48    
49     end module clesphys
  ViewVC Help
Powered by ViewVC 1.1.21