Changeset 4990 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
- Timestamp:
- 2014-12-15T17:42:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
r4873 r4990 43 43 PUBLIC lim_itd_me_alloc ! called by iceini.F90 44 44 45 REAL(wp) :: epsi20 = 1.e-20_wp ! constant values46 REAL(wp) :: epsi10 = 1.e-10_wp ! constant values47 REAL(wp) :: epsi06 = 1.e-06_wp ! constant values48 49 45 !----------------------------------------------------------------------- 50 46 ! Variables shared among ridging subroutines … … 851 847 INTEGER :: ij ! horizontal index, combines i and j loops 852 848 INTEGER :: icells ! number of cells with aicen > puny 853 REAL(wp) :: zindb ! local scalar854 849 REAL(wp) :: hL, hR, farea, zdummy, zdummy0, ztmelts ! left and right limits of integration 855 850 REAL(wp) :: zsstK ! SST in Kelvin
Note: See TracChangeset
for help on using the changeset viewer.