Changeset 9 for trunk/SOURCES/dragging_hwat_contmaj_mod.f90
- Timestamp:
- 02/12/15 11:42:12 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SOURCES/dragging_hwat_contmaj_mod.f90
r4 r9 43 43 real :: tob_ile ! pour les iles 44 44 real :: cry_lim=50. ! courbure limite pour le suivi des fleuves 45 46 47 real, dimension(nx,ny) :: Vcol_x !< uniquement pour compatibilite avec spinup cat 48 real, dimension(nx,ny) :: Vcol_y !< uniquement pour compatibilite avec spinup cat 49 real, dimension(nx,ny) :: Vsl_x !< uniquement pour compatibilite avec spinup cat 50 real, dimension(nx,ny) :: Vsl_y !< uniquement pour compatibilite avec spinup cat 51 logical :: corr_def = .false. !< for deformation correction, pour compatibilite beta 52 45 53 contains 46 54 !-------------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.