- Timestamp:
- 2009-06-11T09:29:51+02:00 (15 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 1 deleted
- 52 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/C1D_SRC/diawri_c1d.F90
r1334 r1465 23 23 USE zdfkpp ! KPP vertical mixing 24 24 USE sol_oce ! solver variables 25 USE ice_oce ! ice variables26 25 USE phycst ! physical constants 27 26 USE zdfmxl ! mixed layer -
trunk/NEMO/C1D_SRC/step_c1d.F90
r1334 r1465 51 51 USE zdfmxl ! Mixed-layer depth (zdf_mxl routine) 52 52 53 USE ice_oce ! sea-ice variable54 53 55 54 USE diawri ! Standard run outputs (dia_wri routine) -
trunk/NEMO/LIM_SRC_2/ice_2.F90
r1463 r1465 32 32 INTEGER , PUBLIC :: nbiter = 1 !: number of sub-time steps for relaxation 33 33 INTEGER , PUBLIC :: nbitdr = 250 !: maximum number of iterations for relaxation 34 REAL(wp), PUBLIC :: rdt_ice !: ice time step 34 35 REAL(wp), PUBLIC :: epsd = 1.0e-20 !: tolerance parameter for dynamic 35 36 REAL(wp), PUBLIC :: alpha = 0.5 !: coefficient for semi-implicit coriolis -
trunk/NEMO/LIM_SRC_2/iceini_2.F90
r1463 r1465 17 17 USE dom_oce 18 18 USE dom_ice_2 19 USE ice_oce ! ice variables20 19 USE sbc_oce ! surface boundary condition: ocean 21 20 USE sbc_ice ! surface boundary condition: ice … … 56 55 57 56 ! Louvain la Neuve Ice model 58 dtsd2 = nn_fsbc * rdttra(1) * 0.559 57 rdt_ice = nn_fsbc * rdttra(1) 60 58 -
trunk/NEMO/LIM_SRC_2/limadv_2.F90
r1156 r1465 14 14 USE dom_oce 15 15 USE dom_ice_2 16 USE ice_oce ! ice variables17 16 USE in_out_manager ! I/O manager 17 USE ice_2 18 18 USE lbclnk 19 19 USE prtctl ! Print control -
trunk/NEMO/LIM_SRC_2/limdia_2.F90
r1156 r1465 18 18 USE phycst ! 19 19 USE par_ice_2 ! ice parameters 20 USE ice_oce ! ice variables21 20 USE sbc_oce ! surface boundary condition variables 22 21 USE daymod ! -
trunk/NEMO/LIM_SRC_2/limdmp_2.F90
r1156 r1465 17 17 USE phycst ! physical constants 18 18 USE ice_2 19 USE ice_oce20 19 USE tradmp 21 20 USE dom_oce -
trunk/NEMO/LIM_SRC_2/limdyn_2.F90
r1347 r1465 20 20 USE phycst ! 21 21 USE ice_2 ! 22 USE ice_oce !23 22 USE dom_ice_2 ! 24 23 USE limistate_2 ! -
trunk/NEMO/LIM_SRC_2/limhdf_2.F90
r1156 r1465 12 12 !! * Modules used 13 13 USE dom_oce 14 USE ice_oce ! ice variables15 14 USE in_out_manager 16 15 USE ice_2 -
trunk/NEMO/LIM_SRC_2/limistate_2.F90
r1228 r1465 20 20 USE phycst 21 21 USE par_ice_2 ! ice parameters 22 USE ice_oce ! ice variables23 22 USE dom_ice_2 24 23 USE eosbn2 ! equation of state -
trunk/NEMO/LIM_SRC_2/limrhg_2.F90
r1347 r1465 18 18 !!---------------------------------------------------------------------- 19 19 USE par_oce ! ocean parameter 20 USE ice_oce ! ice variables21 20 USE sbc_ice ! surface boundary condition: ice variables 22 21 USE dom_ice_2 ! domaine: ice variables -
trunk/NEMO/LIM_SRC_2/limsbc_2.F90
r1463 r1465 20 20 USE sbc_oce ! surface boundary condition 21 21 USE phycst ! physical constants 22 USE ice_oce ! sea-ice variable23 22 USE ice_2 ! LIM sea-ice variables 24 23 USE dynspg_oce ! choice of the surface pressure gradient scheme -
trunk/NEMO/LIM_SRC_2/limthd_2.F90
r1463 r1465 21 21 USE in_out_manager ! I/O manager 22 22 USE ice_2 ! LIM sea-ice variables 23 USE ice_oce ! sea-ice/ocean variables24 23 USE sbc_oce ! 25 24 USE sbc_ice ! -
trunk/NEMO/LIM_SRC_2/limthd_lac_2.F90
r1228 r1465 11 11 USE par_oce ! ocean parameters 12 12 USE phycst 13 USE ice_oce ! ice variables14 13 USE thd_ice_2 15 14 USE ice_2 -
trunk/NEMO/LIM_SRC_2/limthd_zdf_2.F90
r1228 r1465 17 17 USE par_oce ! ocean parameters 18 18 USE phycst ! ??? 19 USE ice_oce ! ice variables20 19 USE thd_ice_2 21 20 USE ice_2 -
trunk/NEMO/LIM_SRC_2/limtrp_2.F90
r1228 r1465 16 16 USE daymod 17 17 USE in_out_manager ! I/O manager 18 USE ice_oce ! ice variables19 18 USE dom_ice_2 20 19 USE ice_2 -
trunk/NEMO/LIM_SRC_2/limwri_2.F90
r1463 r1465 18 18 USE dom_oce 19 19 USE daymod 20 USE ice_oce ! ice variables21 20 USE sbc_oce 22 21 USE sbc_ice -
trunk/NEMO/LIM_SRC_3/ice.F90
r1229 r1465 189 189 !! * Share Module variables 190 190 !!-------------------------------------------------------------------------- 191 REAL(wp), PUBLIC :: rdt_ice !: ice time step 192 191 193 INTEGER , PUBLIC :: & !!: ** ice-dynamic namelist (namicedyn) ** 192 194 nbiter = 1 , & !: number of sub-time steps for relaxation … … 298 300 fdvolif, & !: Total variation of ice volume (only used for outputs) 299 301 rdvonif, & !: Lateral Variation of ice volume (only used for outputs) 300 sist , & !: Average Sea-Ice Surface Temperature (Kelvin ??? degree ??? I don't know) 302 sist , & !: Average Sea-Ice Surface Temperature (Kelvin) 303 icethi , & !: total ice thickness (for all categories) (only used for outputs) 301 304 t_bo , & !: Sea-Ice bottom temperature (Kelvin) 302 305 hicifp , & !: Ice production/melting -
trunk/NEMO/LIM_SRC_3/iceini.F90
r1229 r1465 12 12 USE dom_oce 13 13 USE in_out_manager 14 USE ice_oce ! ice variables15 14 USE sbc_oce ! Surface boundary condition: ocean fields 16 15 USE sbc_ice ! Surface boundary condition: ice fields … … 65 64 ! Louvain la Neuve Ice model 66 65 IF( nacc == 1 ) THEN 67 dtsd2 = nn_fsbc * rdtmin * 0.568 66 rdt_ice = nn_fsbc * rdtmin 69 67 ELSE 70 dtsd2 = nn_fsbc * rdt * 0.571 68 rdt_ice = nn_fsbc * rdt 72 69 ENDIF -
trunk/NEMO/LIM_SRC_3/limadv.F90
r1156 r1465 14 14 USE dom_oce 15 15 USE dom_ice 16 USE ice _oce ! ice variables16 USE ice 17 17 USE in_out_manager ! I/O manager 18 18 USE lbclnk -
trunk/NEMO/LIM_SRC_3/limcons.F90
r1156 r1465 24 24 USE dom_ice 25 25 USE ice 26 USE ice_oce ! ice variables27 26 USE in_out_manager ! I/O manager 28 27 -
trunk/NEMO/LIM_SRC_3/limdia.F90
r1156 r1465 19 19 USE in_out_manager 20 20 USE par_ice ! ice parameters 21 USE ice_oce ! ice variables22 21 USE daymod 23 22 USE dom_ice -
trunk/NEMO/LIM_SRC_3/limdyn.F90
r1156 r1465 20 20 USE sbc_oce ! Surface boundary condition: ocean fields 21 21 USE sbc_ice ! Surface boundary condition: ice fields 22 USE ice_oce23 22 USE iceini 24 23 USE limistate -
trunk/NEMO/LIM_SRC_3/limhdf.F90
r1156 r1465 12 12 !! * Modules used 13 13 USE dom_oce 14 USE ice_oce ! ice variables15 14 USE in_out_manager 16 15 USE ice -
trunk/NEMO/LIM_SRC_3/limistate.F90
r1156 r1465 17 17 USE sbc_oce ! Surface boundary condition: ocean fields 18 18 USE par_ice ! ice parameters 19 USE ice_oce ! ice variables20 19 USE eosbn2 ! equation of state 21 20 USE in_out_manager -
trunk/NEMO/LIM_SRC_3/limitd_me.F90
r1156 r1465 19 19 USE lbclnk 20 20 USE phycst ! physical constants (ocean directory) 21 USE ice_oce ! ice variables22 21 USE sbc_oce ! Surface boundary condition: ocean fields 23 22 USE thd_ice -
trunk/NEMO/LIM_SRC_3/limitd_th.F90
r1156 r1465 16 16 USE dom_oce 17 17 USE phycst ! physical constants (ocean directory) 18 USE ice_oce ! ice variables19 18 USE thd_ice 20 19 USE limistate -
trunk/NEMO/LIM_SRC_3/limrhg.F90
r1244 r1465 17 17 USE phycst 18 18 USE par_oce 19 USE ice_oce ! ice variables20 19 USE dom_oce 21 20 USE dom_ice -
trunk/NEMO/LIM_SRC_3/limrst.F90
r1229 r1465 17 17 USE in_out_manager 18 18 USE dom_oce 19 USE ice_oce ! ice variables20 19 USE sbc_oce ! Surface boundary condition: ocean fields 21 20 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/LIM_SRC_3/limsbc.F90
r1322 r1465 21 21 USE sbc_oce ! Surface boundary condition: ocean fields 22 22 USE phycst ! physical constants 23 USE ice_oce ! sea-ice variable24 23 USE ice ! LIM sea-ice variables 25 24 USE iceini ! ??? -
trunk/NEMO/LIM_SRC_3/limthd.F90
r1171 r1465 17 17 USE in_out_manager ! I/O manager 18 18 USE ice ! LIM sea-ice variables 19 USE ice_oce ! sea-ice/ocean variables20 19 USE sbc_oce ! Surface boundary condition: ocean fields 21 20 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/LIM_SRC_3/limthd_dh.F90
r1171 r1465 15 15 USE par_oce ! ocean parameters 16 16 USE phycst ! physical constants (OCE directory) 17 USE ice_oce ! ice variables18 17 USE sbc_oce ! Surface boundary condition: ocean fields 19 18 USE thd_ice -
trunk/NEMO/LIM_SRC_3/limthd_dif.F90
r1156 r1465 14 14 USE par_oce ! ocean parameters 15 15 USE phycst ! physical constants (ocean directory) 16 USE ice_oce ! ice variables17 16 USE thd_ice 18 17 USE iceini -
trunk/NEMO/LIM_SRC_3/limthd_ent.F90
r1156 r1465 18 18 USE in_out_manager 19 19 USE phycst 20 USE ice_oce ! ice variables21 20 USE thd_ice 22 21 USE iceini -
trunk/NEMO/LIM_SRC_3/limthd_lac.F90
r1156 r1465 15 15 USE in_out_manager 16 16 USE phycst 17 USE ice_oce ! ice variables18 17 USE sbc_oce ! Surface boundary condition: ocean fields 19 18 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/LIM_SRC_3/limthd_sal.F90
r1156 r1465 14 14 USE par_oce ! ocean parameters 15 15 USE phycst ! physical constants (ocean directory) 16 USE ice_oce ! ice variables17 16 USE sbc_oce ! Surface boundary condition: ocean fields 18 17 USE thd_ice -
trunk/NEMO/LIM_SRC_3/limtrp.F90
r1296 r1465 16 16 USE daymod 17 17 USE in_out_manager ! I/O manager 18 USE ice_oce ! ice variables19 18 USE sbc_oce ! Surface boundary condition: ocean fields 20 19 USE dom_ice -
trunk/NEMO/LIM_SRC_3/limupdate.F90
r1156 r1465 24 24 USE oce ! dynamics and tracers variables 25 25 USE in_out_manager 26 USE ice_oce ! ice variables27 26 USE sbc_oce ! Surface boundary condition: ocean fields 28 27 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/LIM_SRC_3/limvar.F90
r1156 r1465 38 38 USE par_oce ! ocean parameters 39 39 USE phycst ! physical constants (ocean directory) 40 USE ice_oce ! ice variables41 40 USE sbc_oce ! Surface boundary condition: ocean fields 42 41 USE thd_ice -
trunk/NEMO/LIM_SRC_3/limwri.F90
r1339 r1465 23 23 USE daymod 24 24 USE in_out_manager 25 USE ice_oce ! ice variables26 25 USE sbc_oce ! Surface boundary condition: ocean fields 27 26 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/LIM_SRC_3/thd_ice.F90
r1156 r1465 85 85 dqla_ice_1d , & !: " " dqla_ice 86 86 ! to reintegrate longwave flux inside the ice thermodynamics 87 qtur_ice_1d , & !: " " qtur_ice88 dqtu_ice_1d , & !: " " dqtu_ice89 catm_ice_1d , & !: " " catm_ice87 !!sm: not used qtur_ice_1d , & !: " " qtur_ice 88 !!sm: not used dqtu_ice_1d , & !: " " dqtu_ice 89 !!sm: not used catm_ice_1d , & !: " " catm_ice 90 90 tatm_ice_1d , & !: " " tatm_ice 91 evsq_ice_1d , & !: " " evsq_ice92 sbud_ice_1d , & !: " " sbud_ice91 !!sm: not used evsq_ice_1d , & !: " " evsq_ice 92 !!sm: not used sbud_ice_1d , & !: " " sbud_ice 93 93 fsup , & !: Energy flux sent from bottom to lateral ablation if |dhb|> 0.15 m 94 94 focea , & !: Remaining energy in case of total ablation … … 102 102 dsm_i_gd_1d , & !: Ice salinity variations due to gravity drainage 103 103 dsm_i_se_1d , & !: Ice salinity variations due to basal salt entrapment 104 dsm_i_la_1d , & !: Ice salinity variations due to lateral accretion104 !!sm: not used dsm_i_la_1d , & !: Ice salinity variations due to lateral accretion 105 105 dsm_i_si_1d , & !: Ice salinity variations due to lateral accretion 106 106 hicol_b !: Ice collection thickness accumulated in fleads -
trunk/NEMO/NST_SRC/agrif_user.F90
r1300 r1465 72 72 USE sol_oce 73 73 USE in_out_manager 74 #if defined key_lim3 || defined key_lim275 USE ice_oce76 #endif77 74 USE agrif_opa_update 78 75 USE agrif_opa_interp -
trunk/NEMO/OPA_SRC/DIA/diawri.F90
r1463 r1465 13 13 USE ldfdyn_oce ! ocean dynamics: lateral physics 14 14 USE sol_oce ! solver variables 15 USE ice_oce ! ice variables16 15 USE sbc_oce ! Surface boundary condition: ocean fields 17 16 USE sbc_ice ! Surface boundary condition: ice fields -
trunk/NEMO/OPA_SRC/DOM/domain.F90
r1438 r1465 21 21 USE oce ! 22 22 USE dom_oce ! ocean space and time domain 23 USE ice_oce ! ice variables24 23 USE sbc_oce ! surface boundary condition: ocean 25 24 USE phycst ! physical constants -
trunk/NEMO/OPA_SRC/SBC/sbc_ice.F90
r1463 r1465 11 11 !!---------------------------------------------------------------------- 12 12 USE par_oce ! ocean parameters 13 # if defined key_lim313 # if defined key_lim3 14 14 USE par_ice ! ice parameters 15 # endif16 # if defined key_lim215 # endif 16 # if defined key_lim2 17 17 USE par_ice_2 ! ice parameters 18 # endif18 # endif 19 19 20 20 IMPLICIT NONE 21 21 PRIVATE 22 23 # if defined key_lim2 24 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .TRUE. !: LIM-2 ice model 25 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .FALSE. !: no LIM-3 26 CHARACTER(len=1), PUBLIC :: cice_grid = 'B' !: 'B'-grid ice-velocity 27 # endif 28 # if defined key_lim3 29 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .FALSE. !: no LIM-2 30 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .TRUE. !: LIM-3 ice model 31 CHARACTER(len=1), PUBLIC :: cice_grid = 'C' !: 'C'-grid ice-velocity 32 # endif 22 33 23 34 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpl) :: qns_ice !: non solar heat flux over ice [W/m2] … … 35 46 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: emp_ice !: solid freshwater budget over ice: sublivation - snow 36 47 48 # if defined key_lim3 49 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: tatm_ice !: air temperature 50 # endif 51 37 52 #else 53 38 54 !!---------------------------------------------------------------------- 39 !! Empty module NO LIMsea-ice model55 !! Default option NO LIM 2.0 or 3.0 sea-ice model 40 56 !!---------------------------------------------------------------------- 57 LOGICAL , PUBLIC, PARAMETER :: lk_lim2 = .FALSE. !: no LIM-2 ice model 58 LOGICAL , PUBLIC, PARAMETER :: lk_lim3 = .FALSE. !: no LIM-3 ice model 59 CHARACTER(len=1), PUBLIC :: cice_grid = '-' !: no grid ice-velocity 60 41 61 #endif 42 62 -
trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r1347 r1465 31 31 #if defined key_lim3 32 32 USE ice 33 USE ice_oce ! For ice surface temperature33 USE sbc_ice ! Surface boundary condition: ice fields 34 34 #elif defined key_lim2 35 35 USE ice_2 -
trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r1414 r1465 32 32 USE prtctl ! Print control 33 33 #if defined key_lim3 34 USE ice_oce ! For ice surface temperature34 USE sbc_ice ! Surface boundary condition: ice fields 35 35 #endif 36 36 -
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1463 r1465 23 23 USE sbc_oce ! Surface boundary condition: ocean fields 24 24 USE sbc_ice ! Surface boundary condition: ice fields 25 USE ice_oce ! Shared variables between ice and ocean26 25 #if defined key_lim3 27 26 USE par_ice ! ice parameters -
trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r1270 r1465 25 25 USE ice 26 26 USE iceini 27 USE ice_oce ! ice variables28 27 USE dom_ice 29 28 -
trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90
r1463 r1465 23 23 USE par_ice_2 24 24 USE iceini_2 25 USE ice_oce ! ice variables26 25 USE dom_ice_2 27 26 -
trunk/NEMO/OPA_SRC/SBC/sbcmod.F90
r1242 r1465 17 17 USE phycst ! physical constants 18 18 19 USE ice_oce ! sea-ice model : LIM20 19 USE sbc_oce ! Surface boundary condition: ocean fields 20 USE sbc_ice ! Surface boundary condition: ice fields 21 21 USE sbcssm ! surface boundary condition: sea-surface mean variables 22 22 USE sbcana ! surface boundary condition: analytical formulation -
trunk/NEMO/OPA_SRC/step.F90
r1457 r1465 96 96 97 97 USE zpshde ! partial step: hor. derivative (zps_hde routine) 98 USE ice_oce ! sea-ice variable99 98 100 99 USE diawri ! Standard run outputs (dia_wri routine)
Note: See TracChangeset
for help on using the changeset viewer.