Changeset 1045 for LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Nov 6, 2008, 5:31:39 PM (16 years ago)

Author:

lmdzadmin

Message:

On sort meantaucld dans histISCCP, car sortie simulateur (enleve du histday)
Lecture fichiers input ISCCP "debut" physiq
IM

File:

• LMDZ4/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

@@ -194 +194 @@
   integer, dimension(nfiles) , save :: flag_u10_sol      = (/ 10, 4, 10, 10 /)
   integer, dimension(nfiles) , save :: flag_v10_sol      = (/ 10, 4, 10, 10 /)
-  integer, dimension(nfiles) , save :: flag_meantaucld   = (/ 10, 5, 10, 10 /)
   integer, dimension(nfiles) , save :: flag_cldtau       = (/ 10, 5, 10, 10 /)                     
   integer, dimension(nfiles) , save :: flag_cldemi       = (/ 10, 5, 10, 10 /)
@@ -614 +613 @@
  CALL histdef2d(iff,flag_weakinv, "weakinv","Weak inversion", "-")
  CALL histdef2d(iff,flag_dthmin,"dthmin","dTheta mini", "K/m")
- if (ok_isccp) then
-   CALL histdef2d(iff,flag_meantaucld,"meantaucld","ISCCP mean cloud optical thickness","1")
- endif
  CALL histdef2d(iff,flag_rh2m,"rh2m","Relative humidity at 2m", "%" )
  CALL histdef2d(iff,flag_qsat2m,"qsat2m","Saturant humidity at 2m", "%")