Changeset 2955 for LMDZ5/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

Timestamp:

Jul 17, 2017, 5:52:31 PM (7 years ago)

Author:

musat

Message:

Ajout modifs de Rodrigo Guzman et Marine Bonazolla dans la version COSP/CMIP6
IM

File:

• LMDZ5/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

@@ -41 +41 @@
              Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
              Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
-             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
+             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso,      &           !OPAQ (2)
+             Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity, & !OPAQ (5)
+             LprofSR,Lproftemp                                                                        !TIBO (2)
 
   namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
@@ -57 +59 @@
              Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
              Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
-             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
+             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso,      &           !OPAQ (2)
+             Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity, & !OPAQ (5)
+             LprofSR,Lproftemp                                                                        !TIBO (2)
    
   do i=1,N_OUT_LIST
@@ -139 +143 @@
   CALL bcast(Lcrimodis)
   CALL bcast(Lcrlmodis)
+  CALL bcast(Lclopaquecalipso)  !OPAQ
+  CALL bcast(Lclthincalipso)    !OPAQ
+  CALL bcast(Lclzopaquecalipso) !OPAQ
+  CALL bcast(Lclcalipsoopaque)  !OPAQ
+  CALL bcast(Lclcalipsothin)    !OPAQ
+  CALL bcast(Lclcalipsozopaque) !OPAQ
+  CALL bcast(Lclcalipsoopacity) !OPAQ
+  CALL bcast(LprofSR)           !TIBO
+  CALL bcast(Lproftemp)         !TIBO
 
 !$OMP BARRIER
@@ -185 +198 @@
     Lclmcalipsoun      = .false.
     Lcltcalipsoun      = .false.
-  endif
+    Lclopaquecalipso   = .false. !OPAQ
+    Lclthincalipso     = .false. !OPAQ
+    Lclzopaquecalipso  = .false. !OPAQ
+    Lclcalipsoopaque   = .false. !OPAQ
+    Lclcalipsothin     = .false. !OPAQ
+    Lclcalipsozopaque  = .false. !OPAQ
+    Lclcalipsoopacity  = .false. !OPAQ
+    LprofSR            = .false. !TIBO
+    Lproftemp          = .false. !TIBO
+  endif
+
   if (.not.Lisccp_sim) then
     Lalbisccp       = .false.
@@ -390 +413 @@
   i = i+1
   if (Lcrlmodis)         cfg%out_list(i) = 'crlmodis'
+
+  i = i+1                                                            !OPAQ
+  if (Lclopaquecalipso)         cfg%out_list(i) = 'clopaquecalipso'  !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclthincalipso)           cfg%out_list(i) = 'clthincalipso'    !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclzopaquecalipso)        cfg%out_list(i) = 'clzopaquecalipso' !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclcalipsoopaque)         cfg%out_list(i) = 'clcalipsoopaque'  !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclcalipsothin)           cfg%out_list(i) = 'clcalipsothin'    !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclcalipsozopaque)        cfg%out_list(i) = 'clcalipsozopaque' !OPAQ
+  i = i+1                                                            !OPAQ
+  if (Lclcalipsoopacity)        cfg%out_list(i) = 'clcalipsoopacity' !OPAQ
+  i = i+1                                                            !TIBO
+  if (LprofSR)                  cfg%out_list(i) = 'profSR'           !TIBO
+  i = i+1                                                            !TIBO
+  if (Lproftemp)                cfg%out_list(i) = 'proftemp'         !TIBO
     
   if (i /= N_OUT_LIST) then
@@ -441 +483 @@
   cfg%Lcltlidarradar = Lcltlidarradar
   cfg%LparasolRefl = LparasolRefl
+  cfg%Lclopaquecalipso  = Lclopaquecalipso  !OPAQ
+  cfg%Lclthincalipso    = Lclthincalipso    !OPAQ
+  cfg%Lclzopaquecalipso = Lclzopaquecalipso !OPAQ
+  cfg%Lclcalipsoopaque  = Lclcalipsoopaque  !OPAQ
+  cfg%Lclcalipsothin    = Lclcalipsothin    !OPAQ
+  cfg%Lclcalipsozopaque = Lclcalipsozopaque !OPAQ
+  cfg%Lclcalipsoopacity = Lclcalipsoopacity !OPAQ
+  cfg%LprofSR           = LprofSR           !TIBO
+  cfg%Lproftemp         = Lproftemp         !TIBO
   ! MISR simulator  
   cfg%LclMISR = LclMISR