Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/init_be.F90
- Timestamp:
- Jul 18, 2013, 10:20:28 AM (11 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1747-1749,1751,1753-1767,1769,1771-1772,1774-1776,1778-1794
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/init_be.F90
r1750 r1795 7 7 USE comgeomphy 8 8 USE infotrac, ONLY : nbtr 9 USE indice_sol_mod 9 10 10 11 IMPLICIT NONE … … 21 22 INCLUDE "YOMCST.h" 22 23 INCLUDE "YOECUMF.h" 23 INCLUDE "indicesol.h"24 24 25 25 ! … … 47 47 INTEGER :: nref 48 48 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) 50 50 DATA pref / & 51 51 101249.99999999994, 100387.17261011522, 99447.35334189111, 98357.43412194174, &
Note: See TracChangeset
for help on using the changeset viewer.