- Timestamp:
- 2015-06-19T17:18:00+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90
r5234 r5443 24 24 ! !!* namicerun read in iceini * 25 25 CHARACTER(len=32) , PUBLIC :: cn_icerst_in !: suffix of ice restart name (input) 26 CHARACTER(len=256) , PUBLIC :: cn_icerst_indir !: ice restart in directory 26 27 CHARACTER(len=32) , PUBLIC :: cn_icerst_out !: suffix of ice restart name (output) 28 CHARACTER(len=256) , PUBLIC :: cn_icerst_outdir !: ice restart out directory 27 29 LOGICAL , PUBLIC :: ln_limdyn !: flag for ice dynamics (T) or not (F) 28 30 LOGICAL , PUBLIC :: ln_limdmp !: Ice damping … … 35 37 INTEGER , PUBLIC :: nbiter !: number of sub-time steps for relaxation 36 38 INTEGER , PUBLIC :: nbitdr !: maximum number of iterations for relaxation 37 INTEGER , PUBLIC :: n evp!: number of EVP subcycling iterations39 INTEGER , PUBLIC :: nn_nevp !: number of EVP subcycling iterations 38 40 INTEGER , PUBLIC :: telast !: timescale for EVP elastic waves 39 41 REAL(wp), PUBLIC :: epsd !: tolerance parameter for dynamic … … 47 49 REAL(wp), PUBLIC :: c_rhg !: second bulk-rhelogy parameter 48 50 REAL(wp), PUBLIC :: etamn !: minimun value for viscosity 49 REAL(wp), PUBLIC :: creepl!: creep limit50 REAL(wp), PUBLIC :: ecc!: eccentricity of the elliptical yield curve51 REAL(wp), PUBLIC :: rn_creepl !: creep limit 52 REAL(wp), PUBLIC :: rn_ecc !: eccentricity of the elliptical yield curve 51 53 REAL(wp), PUBLIC :: ahi0 !: sea-ice hor. eddy diffusivity coeff. (m2/s) 52 54 REAL(wp), PUBLIC :: alphaevp !: coefficient for the solution of EVP int. stresses 53 REAL(wp), PUBLIC :: hminrhg = 0.001_wp !: clem : ice volume (a*h in m) below which ice velocity is set to ocean velocity 54 55 REAL(wp), PUBLIC :: usecc2 !: = 1.0 / ( ecc * ecc ) 55 56 REAL(wp), PUBLIC :: usecc2 !: = 1.0 / ( rn_ecc * rn_ecc ) 56 57 REAL(wp), PUBLIC :: rhoco !: = rau0 * cw 57 58 REAL(wp), PUBLIC :: sangvg, cangvg !: sin and cos of the turning angle for ocean stress … … 66 67 67 68 !!* Ice Rheology 68 69 LOGICAL , PUBLIC:: ltrcdm2dc_ice = .FALSE. !: In case of Diurnal Cycle short wave, compute a Daily Mean short waves flux70 71 69 # if defined key_lim2_vp 72 70 ! !!* VP rheology * … … 114 112 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: qdtcn !: energy from the ice to the ocean point (at a factor 2) 115 113 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: thcm !: part of the solar energy used in the lead heat budget 116 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fstric_ daymean!: Solar flux transmitted trough the ice, for day mean of qsr ( PISCES, with dirunal cycle )114 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fstric_mean !: Solar flux transmitted trough the ice, for day mean of qsr ( PISCES, with dirunal cycle ) 117 115 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fstric !: Solar flux transmitted trough the ice 118 116 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ffltbif !: linked with the max heat contained in brine pockets (?) … … 174 172 & tbif (jpi,jpj,jplayersp1) , STAT=ierr(5)) 175 173 176 IF( ltrcdm2dc_ice ) ALLOCATE(fstric_daymean(jpi,jpj), STAT=ierr(6) )177 178 174 !* moment used in the advection scheme 179 175 ALLOCATE(sxice (jpi,jpj) , syice (jpi,jpj) , sxxice(jpi,jpj) , & … … 202 198 !! Default option Empty module NO LIM 2.0 sea-ice model 203 199 !!---------------------------------------------------------------------- 204 LOGICAL , PUBLIC:: ltrcdm2dc_ice = .FALSE. !: In case of Diurnal Cycle short wave, compute a Daily Mean short waves flux205 200 #endif 206 201 !!-----------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.