Changeset 8324 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
- Timestamp:
- 2017-07-12T15:36:28+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8322 r8324 302 302 CALL ice_run_init ! set some ice run parameters 303 303 ! 304 ! ! Allocate the ice arrays 304 ! ! Allocate the ice arrays (sbc_ice already allocated in sbc_init) 305 305 ierr = ice_alloc () ! ice variables 306 ierr = ierr + sbc_ice_alloc () ! surface forcing307 306 ierr = ierr + thd_ice_alloc () ! thermodynamics 308 307 IF( ln_limdyn ) ierr = ierr + lim_itd_me_alloc () ! ice thickness distribution - mechanics -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90
r8319 r8324 19 19 !!---------------------------------------------------------------------- 20 20 USE phycst ! Physical constant 21 USE oce , ONLY : snwice_mass, snwice_mass_b22 21 USE par_oce ! Ocean parameters 23 22 USE dom_oce ! Ocean domain 24 23 USE sbc_oce , ONLY : ln_ice_embd, nn_fsbc, ssh_m 25 USE sbc_ice , ONLY : utau_ice, vtau_ice 24 USE sbc_ice , ONLY : utau_ice, vtau_ice, snwice_mass, snwice_mass_b 26 25 USE ice ! ice variables 27 26 USE limitd_me ! ice strength -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r8321 r8324 17 17 !!---------------------------------------------------------------------- 18 18 USE ice ! sea-ice variables 19 USE oce, ONLY : snwice_mass, snwice_mass_b19 USE sbc_ice , ONLY : snwice_mass, snwice_mass_b 20 20 USE dom_oce ! ocean domain 21 21 USE sbc_oce , ONLY : nn_fsbc -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r8321 r8324 24 24 !!---------------------------------------------------------------------- 25 25 USE par_oce ! ocean parameters 26 USE oce , ONLY : sshn, sshb , snwice_mass, snwice_mass_b, snwice_fmass26 USE oce , ONLY : sshn, sshb 27 27 USE phycst ! physical constants 28 28 USE dom_oce ! ocean domain 29 29 USE ice ! LIM sea-ice variables 30 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 30 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 & snwice_mass, snwice_mass_b, snwice_fmass 31 32 USE sbc_oce , ONLY : nn_fsbc, ln_ice_embd, sfx, fr_i, qsr_tot, qns, qsr, fmmflx, emp, taum, utau, vtau 32 33 USE sbccpl ! Surface boundary condition: coupled interface
Note: See TracChangeset
for help on using the changeset viewer.