Changeset 585 for trunk/NEMO
- Timestamp:
- 2006-11-15T11:45:39+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/icestp.F90
r508 r585 217 217 218 218 ! !-------------! 219 IF( ln_limdmp ) CALL lim_dmp( kt ) ! Ice damping ! 220 ! !-------------! 221 219 IF( ln_limdmp ) THEN ! Ice damping ! 220 ! !-------------! 221 #if defined key_agrif 222 IF( Agrif_Root() ) CALL lim_dmp(kt) 223 #else 224 CALL lim_dmp(kt) 225 #endif 226 ENDIF 222 227 ! !--------------------! 223 228 CALL lim_thd( kt ) ! Ice thermodynamics !
Note: See TracChangeset
for help on using the changeset viewer.