Changeset 3316 for LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

Timestamp:

Apr 13, 2018, 5:15:57 PM (6 years ago)

Author:

musat

Message:

Corrections de bugs pour gfortran72

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ -512 +512 @@
       call ymds2ju(annee_ref,mois,day_ref,heure,day)
       day_ini = int(day)
-      day_end = day_ini + fnday
+      day_end = day_ini + int(fnday)
 
       IF (forcing_type .eq.2) THEN
@@ -585 +585 @@
       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))