Changeset 3242 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/read_cosp_output_nl.F90

Timestamp:

Mar 7, 2018, 10:59:04 AM (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
• Rajouter "implicit none" pour les routines ne le comportant pas
• Suppression des commentaires unitils

Corrections pour tourner en mode debug :

controle par la cles ok_debug_cosp dans mod_cosp_constants.F90
la valeur par defaut etant .false.

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/read_cosp_output_nl.F90 (modified) (5 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/read_cosp_output_nl.F90

@@ -10 +10 @@
     USE xios, ONLY: xios_field_is_active
 #endif
-
+  implicit none
   character(len=*),intent(in) :: cosp_nl
   type(cosp_config),intent(out) :: cfg
@@ -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