Changeset 8316 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
- Timestamp:
- 2017-07-11T14:05:05+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 18 edited
-
limadv_umx.F90 (modified) (1 diff)
-
limdiahsb.F90 (modified) (1 diff)
-
limdyn.F90 (modified) (1 diff)
-
limistate.F90 (modified) (1 diff)
-
limitd_me.F90 (modified) (1 diff)
-
limrhg.F90 (modified) (1 diff)
-
limrst.F90 (modified) (1 diff)
-
limsbc.F90 (modified) (1 diff)
-
limthd.F90 (modified) (1 diff)
-
limthd_dh.F90 (modified) (1 diff)
-
limthd_ent.F90 (modified) (1 diff)
-
limthd_lac.F90 (modified) (1 diff)
-
limthd_sal.F90 (modified) (1 diff)
-
limtrp.F90 (modified) (1 diff)
-
limupdate1.F90 (modified) (1 diff)
-
limupdate2.F90 (modified) (1 diff)
-
limvar.F90 (modified) (1 diff)
-
limwri.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90
r7753 r8316 15 15 USE phycst ! physical constant 16 16 USE dom_oce ! ocean domain 17 USE sbc_oce 17 USE sbc_oce, ONLY: nn_fsbc ! ocean surface boundary condition 18 18 USE ice ! ice variables 19 19 ! -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90
r7646 r8316 15 15 USE ice ! LIM-3: sea-ice variable 16 16 USE dom_oce ! ocean domain 17 USE sbc_oce ! surface boundary condition: ocean fields 18 USE sbc_ice ! Surface boundary condition: sea-ice fields 17 USE sbc_oce, ONLY: sfx ! surface boundary condition: ocean fields 19 18 USE daymod ! model calendar 20 19 USE phycst ! physical constant -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90
r8313 r8316 17 17 USE phycst ! physical constants 18 18 USE dom_oce ! ocean space and time domain 19 USE sbc_ice ! Surface boundary condition: ice fields20 19 USE ice ! LIM-3 variables 21 20 USE limrhg ! LIM-3 rheology -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r8291 r8316 15 15 !! lim_istate_init : initialization of ice state and namelist read 16 16 !!---------------------------------------------------------------------- 17 USE phycst 18 USE oce 19 USE dom_oce 20 USE sbc_oce ! Surface boundary condition: ocean fields21 USE sbc_ice ! Surface boundary condition: ice fields22 USE eosbn2 23 USE ice 24 USE par_oce 25 USE limvar 17 USE phycst ! physical constant 18 USE oce ! dynamics and tracers variables 19 USE dom_oce ! ocean domain 20 USE sbc_oce , ONLY : sst_m, sss_m 21 USE sbc_ice , ONLY : tn_ice 22 USE eosbn2 ! equation of state 23 USE ice ! sea-ice variables 24 USE par_oce ! ocean parameters 25 USE limvar ! lim_var_salprof 26 26 ! 27 USE in_out_manager 28 USE lib_mpp 29 USE lib_fortran 30 USE wrk_nemo 31 USE fldread 27 USE in_out_manager ! I/O manager 28 USE lib_mpp ! MPP library 29 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 30 USE wrk_nemo ! work arrays 31 USE fldread ! read input fields 32 32 USE iom 33 33 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
r8239 r8316 15 15 USE dom_oce ! ocean domain 16 16 USE phycst ! physical constants (ocean directory) 17 USE sbc_oce ! surface boundary condition: ocean fields17 USE sbc_oce, ONLY: sss_m, sst_m ! surface boundary condition: ocean fields 18 18 USE thd_ice ! LIM thermodynamics 19 19 USE ice ! LIM variables -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90
r8313 r8316 22 22 USE par_oce ! Ocean parameters 23 23 USE dom_oce ! Ocean domain 24 USE sbc_oce ! Surface boundary condition: ocean fields25 USE sbc_ice ! Surface boundary condition: ice fields24 USE sbc_oce , ONLY : ln_ice_embd, nn_fsbc, ssh_m 25 USE sbc_ice , ONLY : utau_ice, vtau_ice 26 26 USE ice ! ice variables 27 27 USE limitd_me ! ice strength -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r8233 r8316 19 19 USE oce , ONLY : snwice_mass, snwice_mass_b 20 20 USE dom_oce ! ocean domain 21 USE sbc_oce ! Surface boundary condition: ocean fields 22 USE sbc_ice ! Surface boundary condition: ice fields 21 USE sbc_oce , ONLY : nn_fsbc 23 22 USE in_out_manager ! I/O manager 24 23 USE iom ! I/O library -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r8313 r8316 28 28 USE dom_oce ! ocean domain 29 29 USE ice ! LIM sea-ice variables 30 USE sbc_ice ! Surface boundary condition: sea-ice fields31 USE sbc_oce ! Surface boundary condition: ocean fields30 USE sbc_ice , ONLY : emp_oce, qns_oce, qsr_oce, qemp_oce, emp_ice, qsr_ice, qemp_ice, qevap_ice, alb_ice, tn_ice, cldf_ice 31 USE sbc_oce , ONLY : nn_fsbc, ln_ice_embd, sfx, fr_i, qsr_tot, qns, qsr, fmmflx, emp, taum, utau, vtau 32 32 USE sbccpl ! Surface boundary condition: coupled interface 33 33 USE albedo ! albedo parameters -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r8313 r8316 23 23 USE dom_oce ! ocean space and time domain variables 24 24 USE ice ! sea-ice variables 25 USE sbc_oce ! Surface boundary condition: ocean fields26 USE sbc_ice ! Surface boundary condition: ice fields25 USE sbc_oce , ONLY : sst_m, e3t_m, utau, vtau, ssu_m, ssv_m, frq_m, qns_tot, qsr_tot, sprecip 26 USE sbc_ice , ONLY : qsr_oce, qns_oce, qemp_oce, qsr_ice, qns_ice, dqns_ice, evap_ice, qprec_ice, qevap_ice, fr1_i0, fr2_i0 27 27 USE thd_ice ! thermodynamic sea-ice variables 28 28 USE limthd_dif ! vertical diffusion -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90
r8313 r8316 18 18 USE par_oce ! ocean parameters 19 19 USE phycst ! physical constants (OCE directory) 20 USE sbc_oce ! Surface boundary condition: ocean fields20 USE sbc_oce , ONLY : sst_m, sss_m 21 21 USE ice ! LIM variables 22 22 USE thd_ice ! LIM thermodynamics -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
r5134 r8316 23 23 USE domain ! 24 24 USE phycst ! physical constants 25 USE sbc_oce ! Surface boundary condition: ocean fields26 25 USE ice ! LIM variables 27 26 USE thd_ice ! LIM thermodynamics -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r8313 r8316 18 18 USE dom_oce ! domain variables 19 19 USE phycst ! physical constants 20 USE sbc_oce ! Surface boundary condition: ocean fields21 USE sbc_ice ! Surface boundary condition: ice fields20 USE sbc_oce , ONLY : sss_m 21 USE sbc_ice , ONLY : utau_ice, vtau_ice 22 22 USE thd_ice ! LIM thermodynamics 23 23 USE ice ! LIM variables -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
r7646 r8316 16 16 USE par_oce ! ocean parameters 17 17 USE phycst ! physical constants (ocean directory) 18 USE sbc_oce ! Surface boundary condition: ocean fields18 USE sbc_oce , ONLY : sss_m 19 19 USE ice ! LIM variables 20 20 USE thd_ice ! LIM thermodynamics -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90
r8312 r8316 16 16 USE phycst ! physical constant 17 17 USE dom_oce ! ocean domain 18 USE sbc_oce ! ocean surface boundary condition18 USE sbc_oce , ONLY : nn_fsbc 19 19 USE ice ! ice variables 20 20 USE limvar ! -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90
r8239 r8316 13 13 !! lim_update1 : computes update of sea-ice global variables from trend terms 14 14 !!---------------------------------------------------------------------- 15 USE sbc_oce ! Surface boundary condition: ocean fields16 USE sbc_ice ! Surface boundary condition: ice fields17 15 USE dom_oce 18 16 USE phycst ! physical constants -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90
r8239 r8316 13 13 !! lim_update2 : computes update of sea-ice global variables from trend terms 14 14 !!---------------------------------------------------------------------- 15 USE sbc_oce ! Surface boundary condition: ocean fields16 USE sbc_ice ! Surface boundary condition: ice fields17 15 USE dom_oce 18 16 USE phycst ! physical constants -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r8239 r8316 38 38 USE par_oce ! ocean parameters 39 39 USE phycst ! physical constants (ocean directory) 40 USE sbc_oce ! Surface boundary condition: ocean fields40 USE sbc_oce , ONLY : sss_m 41 41 USE ice ! ice variables 42 42 USE thd_ice ! ice variables (thermodynamics) -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r8313 r8316 15 15 USE phycst 16 16 USE dom_oce 17 USE sbc_oce ! Surface boundary condition: ocean fields17 USE sbc_oce 18 18 USE sbc_ice ! Surface boundary condition: ice fields 19 19 USE ice
Note: See TracChangeset
for help on using the changeset viewer.
