Changeset 3233 for LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

Timestamp:

Feb 28, 2018, 3:54:30 PM (7 years ago)

Author:

idelkadi

Message:

Nettoyage du code :

• changement de nomes des routines pour avoir les memes nome des modules
• corrections
• dos2unix appliquee aux fichiers

File:

• LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90 (modified) (4 diffs)

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

@@ -127 +127 @@
   CALL bcast(Lmeantbisccp)
   CALL bcast(Lmeantbclrisccp)
-  CALL bcast(Lfrac_out)
+  CALL bcast(Lfracout)
   CALL bcast(LlidarBetaMol532)
   CALL bcast(Lcltmodis)
@@ -239 +239 @@
   if ((.not.Lradar_sim).and.(.not.Llidar_sim).and. &
       (.not.Lisccp_sim).and.(.not.Lmisr_sim)) then
-    Lfrac_out = .false.
+    Lfracout = .false.
   endif
  if (.not.Lmodis_sim) then
@@ -533 +533 @@
   cfg%Lcrlmodis=Lcrlmodis
   
-    if (itap.gt.1) then
+#ifdef CPP_XIOS
+ if (itap.gt.1) then
 
 ! VEREFIER LES CHAMPS DEMANDES DANS .XML
@@ -709 +710 @@
        xios_field_is_active("crlmodis")) cfg%Lmodis_sim=.TRUE.
 
-  endif
-
+ endif
+#endif
 
  END SUBROUTINE READ_COSP_OUTPUT_NL