Changeset 251 for branches/iLoveclim/SOURCES/neffect-0.4.f90
- Timestamp:
- 01/29/19 17:25:47 (5 years ago)
- Location:
- branches/iLoveclim
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/iLoveclim
-
branches/iLoveclim/SOURCES/neffect-0.4.f90
r77 r251 25 25 26 26 ! real,dimension(nx,ny) :: table_interm 27 real :: Nefmin=1.e5 ! Pression effective minimum (~ 10 m de glace) 27 !cdc real :: Nefmin=1.e5 ! Pression effective minimum (~ 10 m de glace) 28 real :: Nefmin=0. !cdc 22/01/2019 on autorise une pression effective nulle 28 29 29 30 if (itracebug.eq.1) call tracebug(' Entree dans routine neffect')
Note: See TracChangeset
for help on using the changeset viewer.