Changeset 3364 for LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

Timestamp:

Jul 6, 2018, 3:04:26 PM (6 years ago)

Author:

idelkadi

Message:

Implementation de COSPv2 dans LMDZ.

File:

• LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90 (modified) (9 diffs)

LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

@@ -35 +35 @@
    cfg%Llidar_sim=.false.
    cfg%Lradar_sim=.false.
+   cfg%Lparasol_sim=.false.
    cfg%Lisccp_sim=.false.
    cfg%Lmodis_sim=.false.
@@ -237 +238 @@
   integer :: i, itap
 
- logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
+ logical, save :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
              LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
@@ -255 +256 @@
              LprofSR,Lproftemp                                                                        !TIBO (2)
 
-  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
+  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
              LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
@@ -285 +286 @@
   
   CALL bcast(Lradar_sim)
+  CALL bcast(Lparasol_sim)
   CALL bcast(Llidar_sim)
   CALL bcast(Lisccp_sim)
@@ -382 +384 @@
     Lclcalipso2    = .false. ! Needs radar & lidar
   endif
+
+  if (.not.Lparasol_sim) then
+   LparasolRefl   = .false.
+  endif 
 
   if (.not.Llidar_sim) then
@@ -757 +763 @@
 #ifdef CPP_XIOS
 
- logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
+ logical :: Lradar_sim,Llidar_sim,Lparasol_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
              LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
@@ -863 +869 @@
     Lradar_sim=.false.
     Llidar_sim=.false.
+    Lparasol_sim=.false.
     Lisccp_sim=.false.
     Lmodis_sim=.false.
@@ -987 +994 @@
        xios_field_is_active("clcalipsotmpliq").OR. &
        xios_field_is_active("clcalipsotmpun").OR. &
-       xios_field_is_active("parasol_refl").OR. &
        xios_field_is_active("cfad_lidarsr532").OR. &
        xios_field_is_active("atb532").OR. &
@@ -1000 +1006 @@
        xios_field_is_active("proftemp").OR. &
        xios_field_is_active("profSR")) Llidar_sim=.TRUE.
+
+    IF (xios_field_is_active("parasol_refl")) Lparasol_sim=.TRUE.
 
     IF (xios_field_is_active("cfadDbze94").OR. &