- Timestamp:
- 2011-12-06T17:40:25+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/LIM_SRC_2/limthd_zdf_2.F90
r3186 r3195 74 74 REAL(wp), POINTER, DIMENSION(:) :: zqcmlts ! energy due to surface melting 75 75 REAL(wp), POINTER, DIMENSION(:) :: zqcmltb ! energy due to bottom melting 76 REAL(wp), POINTER, DIMENSION(:) :: & 77 ztsmlt & ! snow/ice surface melting temperature 78 ,ztbif & ! int. temp. at the mid-point of the 1st layer of the snow/ice sys. 79 ,zksn & ! effective conductivity of snow 80 ,zkic & ! effective conductivity of ice 81 ,zksndh & ! thermal cond. at the mid-point of the 1st layer of the snow/ice sys. 82 , zfcsu & ! conductive heat flux at the surface of the snow/ice system 83 , zfcsudt & ! = zfcsu * dt 84 , zi0 & ! frac. of the net SW rad. which is not absorbed at the surface 85 , z1mi0 & ! fraction of the net SW radiation absorbed at the surface 86 , zqmax & ! maximum energy stored in brine pockets 87 , zrcpdt & ! h_su*rho_su*cp_su/dt(h_su being the thick. of surf. layer) 88 , zts_old & ! previous surface temperature 89 , zidsn , z1midsn , zidsnic ! tempory variables 90 REAL(wp), POINTER, DIMENSION(:) :: & 91 zfnet & ! net heat flux at the top surface( incl. conductive heat flux) 92 , zsprecip & ! snow accumulation 93 , zhsnw_old & ! previous snow thickness 94 , zdhictop & ! change in ice thickness due to top surf ablation/accretion 95 , zdhicbot & ! change in ice thickness due to bottom surf abl/acc 96 , zqsup & ! energy transmitted to ocean (coming from top surf abl/acc) 97 , zqocea & ! energy transmitted to ocean (coming from bottom sur abl/acc) 98 , zfrl_old & ! previous sea/ice fraction 99 , zfrld_1d & ! new sea/ice fraction 100 , zep ! internal temperature of the 2nd layer of the snow/ice system 101 REAL(wp), DIMENSION(3) :: & 76 REAL(wp), POINTER, DIMENSION(:) :: ztsmlt ! snow/ice surface melting temperature 77 REAL(wp), POINTER, DIMENSION(:) :: ztbif ! int. temp. at the mid-point of the 1st layer of the snow/ice sys. 78 REAL(wp), POINTER, DIMENSION(:) :: zksn ! effective conductivity of snow 79 REAL(wp), POINTER, DIMENSION(:) :: zkic ! effective conductivity of ice 80 REAL(wp), POINTER, DIMENSION(:) :: zksndh ! thermal cond. at the mid-point of the 1st layer of the snow/ice sys. 81 REAL(wp), POINTER, DIMENSION(:) :: zfcsu ! conductive heat flux at the surface of the snow/ice system 82 REAL(wp), POINTER, DIMENSION(:) :: zfcsudt ! = zfcsu * dt 83 REAL(wp), POINTER, DIMENSION(:) :: zi0 ! frac. of the net SW rad. which is not absorbed at the surface 84 REAL(wp), POINTER, DIMENSION(:) :: z1mi0 ! fraction of the net SW radiation absorbed at the surface 85 REAL(wp), POINTER, DIMENSION(:) :: zqmax ! maximum energy stored in brine pockets 86 REAL(wp), POINTER, DIMENSION(:) :: zrcpdt ! h_su*rho_su*cp_su/dt(h_su being the thick. of surf. layer) 87 REAL(wp), POINTER, DIMENSION(:) :: zts_old ! previous surface temperature 88 REAL(wp), POINTER, DIMENSION(:) :: zidsn , z1midsn , zidsnic ! tempory variables 89 REAL(wp), POINTER, DIMENSION(:) :: zfnet ! net heat flux at the top surface( incl. conductive heat flux) 90 REAL(wp), POINTER, DIMENSION(:) :: zsprecip ! snow accumulation 91 REAL(wp), POINTER, DIMENSION(:) :: zhsnw_old ! previous snow thickness 92 REAL(wp), POINTER, DIMENSION(:) :: zdhictop ! change in ice thickness due to top surf ablation/accretion 93 REAL(wp), POINTER, DIMENSION(:) :: zdhicbot ! change in ice thickness due to bottom surf abl/acc 94 REAL(wp), POINTER, DIMENSION(:) :: zqsup ! energy transmitted to ocean (coming from top surf abl/acc) 95 REAL(wp), POINTER, DIMENSION(:) :: zqocea ! energy transmitted to ocean (coming from bottom sur abl/acc) 96 REAL(wp), POINTER, DIMENSION(:) :: zfrl_old ! previous sea/ice fraction 97 REAL(wp), POINTER, DIMENSION(:) :: zfrld_1d ! new sea/ice fraction 98 REAL(wp), POINTER, DIMENSION(:) :: zep ! internal temperature of the 2nd layer of the snow/ice system 99 REAL(wp), DIMENSION(3) :: & 102 100 zplediag & ! principle diagonal, subdiag. and supdiag. of the 103 101 , zsubdiag & ! tri-diagonal matrix coming from the computation
Note: See TracChangeset
for help on using the changeset viewer.