Changeset 2568 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Oct 11, 2021, 6:31:42 PM (3 years ago)

Author:

flefevre

Message:

Fix bad integer format (detected by gfortran)

File:

• trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/inichim_newstart.F90

@@ -55 +55 @@
 
       integer :: iq, i, j, l, n
-      integer :: count, ierr, dummy
+      integer :: count, ierr, idummy
+      real    :: dummy
       real    :: mmean(nbp_lon+1,nbp_lat,nbp_lev)             ! mean molecular mass (g)
       real    :: pgcm                             ! pressure at each layer in the gcm (Pa)
@@ -560 +561 @@
       read(210,*)
       do l = 1,nalt
-         read(210,*) dummy, tinit(l), pinit(l), densinit(l), &
+         read(210,*) idummy, tinit(l), pinit(l), densinit(l), &
                      (vmrinit(l,n), n = 1,7)
          pinit(l) = pinit(l)*100.              ! conversion in Pa