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

Timestamp:

Mar 6, 2018, 10:46:13 AM (7 years ago)

Author:

idelkadi

Message:

• Corrections pour tourner en mode debug, controle par la cles ok_debug_cosp dans mod_cosp_constants.F90 la valeur par defaut etant .false.
• Rajouter "implicit none" pour les routines ne le comportant pas
• Nettoyage du code (suppression des commentaires unitils)

File:

• LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90 (modified) (1 diff)

LMDZ6/trunk/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