Changeset 3316

Timestamp:

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

Author:

musat

Message:

Corrections de bugs pour gfortran72

Location:

LMDZ6/trunk/libf/phylmd/dyn1d

Files:

• 1DUTILS.h (modified) (1 diff)
• lmdz1d.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

@@ -3569 +3569 @@
         read (ilesfile,*) kmax2,nt1,nt2
         if (nt2>ntrac) then
-          stop'Augmenter le nombre de traceurs dans traceur.def'
+          stop 'Augmenter le nombre de traceurs dans traceur.def'
         endif
         if (kmax .ne. kmax2) then

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))