- Timestamp:
- 2013-10-22T14:07:21+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r4045 r4099 395 395 CHARACTER(len=32) , PUBLIC :: cn_icerst_out = "restart_ice" !: suffix of ice restart name (output) 396 396 LOGICAL , PUBLIC :: ln_limdyn = .TRUE. !: flag for ice dynamics (T) or not (F) 397 LOGICAL , PUBLIC :: ln_nicep = . TRUE. !: flag for sea-ice points output (T) or not (F)397 LOGICAL , PUBLIC :: ln_nicep = .FALSE. !: flag for sea-ice points output (T) or not (F) 398 398 REAL(wp) , PUBLIC :: cai = 1.40e-3 !: atmospheric drag over sea ice 399 399 REAL(wp) , PUBLIC :: cao = 1.00e-3 !: atmospheric drag over ocean … … 404 404 !!-------------------------------------------------------------------------- 405 405 !! Check if everything down here is necessary 406 LOGICAL , PUBLIC :: ln_limdiahsb = .TRUE. !: flag for ice diag (T) or not (F) 406 LOGICAL , PUBLIC :: ln_limdiahsb = .FALSE. !: flag for ice diag (T) or not (F) 407 LOGICAL , PUBLIC :: ln_limdiaout = .FALSE. !: flag for ice diag (T) or not (F) 407 408 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: v_newice !: volume of ice formed in the leads 408 409 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: dv_dt_thd !: thermodynamic growth rates
Note: See TracChangeset
for help on using the changeset viewer.