Changeset 997 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Jun 28, 2013, 4:07:30 PM (12 years ago)
Author:
emillour
Message:

Generic GCM:

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

JL

Location:
trunk/LMDZ.GENERIC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r996 r997  
    979979- Added possibility to initialize temperature from a rcm1d profile (t=profile)
    980980- Added output for Ls in diagfi
     981
     982== 28/06/2013 == JL
     983- bug fix in setspi & setspv : counters must be initialized in routine in
     984  case of multiple calls

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

    r989 r997  
    4848
    4949      !! used to count lines
    50       integer :: nb=0
    51       integer :: ierr=0
     50      integer :: nb
     51      integer :: ierr
    5252
    5353      logical forceEC, planckcheck
    … …  
    9292      endif
    9393   
     94      nb=0
     95      ierr=0
    9496      ! check that the file contains the right number of bands
    9597      open(131,file=file_path,form='formatted')

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

    r989 r997  
    4747
    4848      !! used to count lines
    49       integer :: nb=0
    50       integer :: ierr=0
     49      integer :: nb
     50      integer :: ierr
    5151
    5252!=======================================================================
    … …  
    7070      endif
    7171   
     72      nb=0
     73      ierr=0
    7274      ! check that the file contains the right number of bands
    7375      open(131,file=file_path,form='formatted')
Note: See TracChangeset for help on using the changeset viewer.