Changeset 420 for trunk/NEMO/LIM_SRC
- Timestamp:
- 2006-03-21T09:43:12+01:00 (18 years ago)
- Location:
- trunk/NEMO/LIM_SRC
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/dom_ice.F90
r247 r420 18 18 19 19 !! * Share module variables 20 LOGICAL, PUBLIC :: & !: 21 l_jeq = .TRUE. !: Equator inside the domain flag 20 LOGICAL, PUBLIC :: & !: 21 l_jeq = .TRUE. , & !: Equator inside the domain flag 22 ln_limini = .FALSE., & !: Ice initialization state 23 ln_limdmp = .FALSE. !: Ice damping 22 24 23 25 INTEGER, PUBLIC :: & !: -
trunk/NEMO/LIM_SRC/icestp.F90
r258 r420 31 31 USE limwri 32 32 USE limrst 33 USE limdmp ! Ice damping 33 34 USE prtctl ! Print control 34 35 … … 220 221 ENDIF 221 222 223 ! !-------------! 224 IF( ln_limdmp ) CALL lim_dmp(kt) ! Ice damping ! 225 ! !-------------! 222 226 223 227 ! !--------------------!
Note: See TracChangeset
for help on using the changeset viewer.