Changeset 2580 for LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Jun 29, 2016, 2:23:19 PM (8 years ago)

Author:

idelkadi

Message:

Implementation du simulateur AIRS:
Le but du simulateur est de permettre la comparaison de proprietes macro-et microphysiques des nuages hauts de LMDZ avec celles restituees par les observations du satellite AIRS (Atmospheric IR Sounder). La methode est decrite dans Hendricks et al. Meteorol. Z., 2010

File:

• LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -24 +24 @@
   REAL, ALLOCATABLE :: bils_latent(:) ! bilan de chaleur au sol
   !$OMP THREADPRIVATE(bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
+
+! Marine
+! Variables de sortie du simulateur AIRS
+
+  REAL, ALLOCATABLE :: map_prop_hc(:),map_prop_hist(:)
+  REAL, ALLOCATABLE :: alt_tropo(:)
+  REAL, ALLOCATABLE :: &
+     & map_emis_hc(:),map_iwp_hc(:),map_deltaz_hc(:),&
+     & map_pcld_hc(:),map_tcld_hc(:)
+  REAL, ALLOCATABLE :: map_emis_hist(:),map_iwp_hist(:),map_deltaz_hist(:),&
+     & map_rad_hist(:)
+  REAL, ALLOCATABLE :: map_ntot(:),map_hc(:),map_hist(:)
+  REAL, ALLOCATABLE :: map_Cb(:),map_ThCi(:),map_Anv(:)
+  REAL, ALLOCATABLE :: map_emis_Cb(:),map_pcld_Cb(:),map_tcld_Cb(:)
+  REAL, ALLOCATABLE :: map_emis_ThCi(:),map_pcld_ThCi(:),map_tcld_ThCi(:)
+  REAL, ALLOCATABLE :: map_emis_Anv(:),map_pcld_Anv(:),map_tcld_Anv(:)
 
 
@@ -103 +119 @@
     allocate (bils_ec(klon),bils_ech(klon),bils_tke(klon),bils_diss(klon),bils_kinetic(klon),bils_enthalp(klon),bils_latent(klon))
 
+! Marine
+! Variables de sortie simulateur AIRS
+
+      allocate (map_prop_hc(klon),map_prop_hist(klon))
+      allocate (alt_tropo(klon))
+      allocate &
+     & (map_emis_hc(klon),map_iwp_hc(klon),map_deltaz_hc(klon))
+      allocate (map_pcld_hc(klon),map_tcld_hc(klon))
+      allocate (map_emis_hist(klon),map_iwp_hist(klon),map_deltaz_hist(klon))
+      allocate (map_rad_hist(klon))
+      allocate (map_ntot(klon),map_hc(klon),map_hist(klon))
+      allocate (map_Cb(klon),map_ThCi(klon),map_Anv(klon))
+      allocate (map_emis_Cb(klon),map_pcld_Cb(klon),map_tcld_Cb(klon))
+      allocate (map_emis_ThCi(klon),map_pcld_ThCi(klon),map_tcld_ThCi(klon))
+      allocate (map_emis_Anv(klon),map_pcld_Anv(klon),map_tcld_Anv(klon))
+
     IF (ok_hines) allocate(zustr_gwd_hines(klon), zvstr_gwd_hines(klon))
     IF (.not.ok_hines.and.ok_gwd_rando) &
@@ -118 +150 @@
     deallocate (bils_ec,bils_ech,bils_tke,bils_diss,bils_kinetic,bils_enthalp,bils_latent)
 
+! Marine
+! Variables de sortie simulateur AIRS
+
+      deallocate (map_prop_hc,map_prop_hist)
+      deallocate (alt_tropo)
+      deallocate &
+     & (map_emis_hc,map_iwp_hc,map_deltaz_hc)
+      deallocate (map_pcld_hc,map_tcld_hc)
+      deallocate (map_emis_hist,map_iwp_hist,map_deltaz_hist)
+      deallocate (map_rad_hist)
+      deallocate (map_ntot,map_hc,map_hist)
+      deallocate (map_Cb,map_ThCi,map_Anv)
+      deallocate (map_emis_Cb,map_pcld_Cb,map_tcld_Cb)
+      deallocate (map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi)
+      deallocate (map_emis_Anv,map_pcld_Anv,map_tcld_Anv)
+
   END SUBROUTINE phys_output_var_end