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

Timestamp:

Nov 24, 2016, 4:02:04 PM (8 years ago)

Author:

idelkadi

Message:

Mise a jour du simulateur COSP.
Passage de la version 1.4.0 a la version 1.4.1
(Version suggeree pour CFMIP3/CMIP6)

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
+             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
 
   namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
@@ -57 +57 @@
              Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
              Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
-             Liwpmodis,Lclmodis
+             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
    
   do i=1,N_OUT_LIST
@@ -137 +137 @@
   CALL bcast(Lclmodis)
   CALL bcast(Ltbrttov)
+  CALL bcast(Lcrimodis)
+  CALL bcast(Lcrlmodis)
+
 !$OMP BARRIER
 
@@ -223 +226 @@
     Liwpmodis=.false.
     Lclmodis=.false.
+    Lcrimodis=.false.
+    Lcrlmodis=.false.
   endif
   if (Lmodis_sim) Lisccp_sim = .true.
@@ -381 +386 @@
   i = i+1
   if (Lclmodis)         cfg%out_list(i) = 'clmodis'
+  i = i+1
+  if (Lcrimodis)         cfg%out_list(i) = 'crimodis'
+  i = i+1
+  if (Lcrlmodis)         cfg%out_list(i) = 'crlmodis'
     
   if (i /= N_OUT_LIST) then
@@ -459 +468 @@
   cfg%Liwpmodis=Liwpmodis
   cfg%Lclmodis=Lclmodis
-  
+  cfg%Lcrimodis=Lcrimodis
+  cfg%Lcrlmodis=Lcrlmodis
+
  END SUBROUTINE READ_COSP_OUTPUT_NL