Changeset 997 for trunk/LMDZ.GENERIC/libf/phystd/setspi.F90

Timestamp:

Jun 28, 2013, 4:07:30 PM (11 years ago)

Author:

emillour

Message:

Generic GCM:

• bug fix in setspi & setspv : counters must be initialized in routine in case of multiple calls

JL

File:

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

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

@@ -48 +48 @@
 
       !! used to count lines
-      integer :: nb=0
-      integer :: ierr=0
+      integer :: nb
+      integer :: ierr
 
       logical forceEC, planckcheck
@@ -92 +92 @@
       endif
     
+      nb=0
+      ierr=0
       ! check that the file contains the right number of bands 
       open(131,file=file_path,form='formatted')