Changeset 3335 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

May 28, 2018, 2:46:59 PM (6 years ago)

Author:

idelkadi

Message:

Correction sur l'initialisation des sorties Cosp :
Definition des axes au 1er appel de Cosp (au lieu de chaque appel).

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90 (modified) (2 diffs)

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

@@ -343 +343 @@
 
 !+++++++++++++ Open output files and define output files axis !+++++++++++++
-!    if (debut_cosp) then
+    if (debut_cosp) then
 
       !$OMP MASTER
@@ -353 +353 @@
       !$OMP BARRIER
         debut_cosp=.false.
-!      endif ! debut_cosp
+     endif ! debut_cosp
 !    else
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++