Changeset 989 for trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

Timestamp:

Jun 14, 2013, 9:17:44 AM (12 years ago)

Author:

emillour

Message:

Generic GCM:

• Some minor changes so that gcm compiles with gfortran:
  • Added option to compile "long lines" (>132 characters) in makegcm_gfortran
  • Removed use of isnan() in physiq.F90 (it is not a standard function)
  • Avoid possible underflow of psat in watercommon_h.F90
  • Adapted the checks on the *IR and *VI band files to be more strict

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/setspv.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

@@ -44 +44 @@
 
       real*8 STELLAR(L_NSPECTV)
-      real*8 sum
+      real*8 sum, dummy
 
       !! used to count lines
-      integer :: nb=-1  !because first line is not an actual value
+      integer :: nb=0 
       integer :: ierr=0
 
@@ -72 +72 @@
       ! check that the file contains the right number of bands 
       open(131,file=file_path,form='formatted')
+      read(131,*,iostat=ierr) file_entries
       do while (ierr==0)
-        read(131,*,iostat=ierr) file_entries
+        read(131,*,iostat=ierr) dummy
         if (ierr==0) nb=nb+1
       enddo
       close(131)
+
       write(*,*) 'setspv: L_NSPECTV = ',L_NSPECTV, 'in the model '
       write(*,*) '        there are   ',nb, 'entries in ',TRIM(file_path)