Changeset 1760 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jun 3, 2013, 11:33:05 AM (11 years ago)
Author:
musat
Message:

Add missing SAVE attribute for pref
FH

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/init_be.F90

    r1742 r1760  
    4747  INTEGER              :: nref
    4848  PARAMETER (nref=39)
    49   REAL,DIMENSION(nref) :: pref      ! grille de pression de reference (bas des couches)
     49  REAL,DIMENSION(nref), SAVE :: pref      ! grille de pression de reference (bas des couches)
    5050  DATA pref  /   &
    5151      101249.99999999994, 100387.17261011522, 99447.35334189111,  98357.43412194174,   &
Note: See TracChangeset for help on using the changeset viewer.