Changeset 3782 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d/lmdz1d.F90

Timestamp:

Nov 4, 2020, 4:49:54 PM (4 years ago)

Author:

fhourdin

Message:

Modification cosmetique pour tourner en 1D sur des gfortran récents.

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/dyn1d/lmdz1d.F90

@@ -582 +582 @@
       call infotrac_init 
 
-      if (nqtot>nqmx) STOP'Augmenter nqmx dans lmdz1d.F'
+      if (nqtot>nqmx) STOP 'Augmenter nqmx dans lmdz1d.F'
       allocate(q(llm,nqtot)) ; q(:,:)=0.
       allocate(dq(llm,nqtot))