Changeset 8378
- Timestamp:
- 2017-07-26T15:55:59+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 24 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/albedoice.F90
r8376 r8378 16 16 USE ice, ONLY : jpl 17 17 USE phycst ! physical constants 18 ! 18 19 USE in_out_manager ! I/O manager 19 20 USE lib_mpp ! MPP library 20 USE wrk_nemo ! work arrays21 21 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 22 22 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8373 r8378 50 50 USE limmp 51 51 ! END MV MP 2016 52 53 52 USE limistate ! LIM initial state 54 53 USE limthd_sal ! LIM ice thermodynamics: salinity … … 61 60 USE lbclnk ! lateral boundary condition - MPP link 62 61 USE lib_mpp ! MPP library 63 USE wrk_nemo ! work arrays64 62 USE timing ! Timing 65 63 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limadv_prather.F90
r8373 r8378 17 17 USE dom_oce ! ocean domain 18 18 USE ice ! LIM-3 variables 19 ! 19 20 USE lbclnk ! lateral boundary condition - MPP exchanges 20 21 USE in_out_manager ! I/O manager 21 22 USE prtctl ! Print control 22 23 USE lib_mpp ! MPP library 23 USE wrk_nemo ! work arrays24 24 USE lib_fortran ! to use key_nosignedzero 25 25 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90
r8376 r8378 25 25 USE lbclnk ! lateral boundary conditions -- MPP exchanges 26 26 USE lib_mpp ! MPP library 27 USE wrk_nemo ! work arrays28 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 29 28 USE timing ! Timing -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limctl.F90
r8319 r8378 21 21 USE sbc_oce ! Surface boundary condition: ocean fields 22 22 USE sbc_ice ! Surface boundary condition: ice fields 23 24 23 USE phycst ! Define parameters for the routines 25 24 ! 26 25 USE lib_mpp ! MPP library 27 USE wrk_nemo ! work arrays28 26 USE timing ! Timing 29 27 USE in_out_manager ! I/O manager -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90
r8321 r8378 19 19 USE ice ! LIM-3 variables 20 20 USE limrhg ! LIM-3 rheology 21 USE limcons ! conservation tests 22 USE limctl ! control prints 23 USE limvar 24 ! 21 25 USE lbclnk ! lateral boundary conditions - MPP exchanges 22 26 USE lib_mpp ! MPP library 23 USE wrk_nemo ! work arrays24 27 USE in_out_manager ! I/O manager 25 28 USE lib_fortran ! glob_sum 26 29 USE timing ! Timing 27 USE limcons ! conservation tests28 USE limctl ! control prints29 USE limvar30 30 31 31 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r8373 r8378 28 28 USE lib_mpp ! MPP library 29 29 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 30 USE wrk_nemo ! work arrays31 30 USE fldread ! read input fields 32 31 USE iom -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
r8373 r8378 19 19 USE ice ! LIM variables 20 20 USE limvar ! LIM 21 USE limcons ! conservation tests 22 USE limctl ! control prints 23 ! 21 24 USE lbclnk ! lateral boundary condition - MPP exchanges 22 25 USE lib_mpp ! MPP library 23 USE wrk_nemo ! work arrays24 25 26 USE in_out_manager ! I/O manager 26 27 USE iom ! I/O manager 27 28 USE lib_fortran ! glob_sum 28 29 USE timing ! Timing 29 USE limcons ! conservation tests30 USE limctl ! control prints31 30 32 31 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90
r8369 r8378 30 30 USE in_out_manager ! I/O manager 31 31 USE lib_mpp ! MPP library 32 USE wrk_nemo ! work arrays33 32 USE lib_fortran ! to use key_nosignedzero 34 33 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90
r8373 r8378 27 27 ! USE sbc_ice ! Surface boundary condition: ice fields 28 28 USE ice ! LIM-3 variables 29 ! USE limcons ! conservation tests 30 ! USE limctl ! control prints 31 ! USE limvar 32 ! 29 33 USE lbclnk ! lateral boundary conditions - MPP exchanges 30 34 USE lib_mpp ! MPP library 31 USE wrk_nemo ! work arrays32 35 USE in_out_manager ! I/O manager 33 36 USE lib_fortran ! glob_sum 34 37 USE timing ! Timing 35 ! USE limcons ! conservation tests36 ! USE limctl ! control prints37 ! USE limvar38 38 39 39 !OLI_CODE USE ice_oce, ONLY: rdt_ice, tatm_ice -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90
r8373 r8378 25 25 USE ice ! ice variables 26 26 USE limitd_me ! ice strength 27 ! 27 28 USE lbclnk ! Lateral Boundary Condition / MPP link 28 29 USE lib_mpp ! MPP library 29 USE wrk_nemo ! work arrays30 30 USE in_out_manager ! I/O manager 31 31 USE prtctl ! Print control -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r8373 r8378 20 20 USE dom_oce ! ocean domain 21 21 USE sbc_oce , ONLY : nn_fsbc 22 USE limctl 23 ! 22 24 USE in_out_manager ! I/O manager 23 25 USE iom ! I/O library 24 26 USE lib_mpp ! MPP library 25 USE wrk_nemo ! work arrays26 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 USE limctl28 28 29 29 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r8374 r8378 43 43 USE lbclnk ! ocean lateral boundary condition - MPP exchanges 44 44 USE lib_mpp ! MPP library 45 USE wrk_nemo ! work arrays46 45 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 47 46 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r8373 r8378 42 42 USE lbclnk ! lateral boundary condition - MPP links 43 43 USE lib_mpp ! MPP library 44 USE wrk_nemo ! work arrays45 44 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 46 45 USE timing ! Timing … … 234 233 IF( nidx > 0 ) THEN ! If there is no ice, do nothing. 235 234 ! 236 s_i_new (1:nidx) = 0._wp ; dh_s_tot (1:nidx) = 0._wp ! --- some init --- !237 dh_i_surf (1:nidx) = 0._wp ; dh_i_bott(1:nidx) = 0._wp238 dh_snowice(1:nidx) = 0._wp ; dh_i_sub (1:nidx) = 0._wp239 240 235 CALL lim_thd_1d2d( jl, 1 ) ! --- Move to 1D arrays --- ! 241 236 ! … … 246 241 WHERE( ht_s_1d(1:nidx)>0._wp ) e_s_1d(1:nidx,jk) = e_s_1d(1:nidx,jk) / (ht_s_1d(1:nidx) * a_i_1d(1:nidx)) * nlay_s 247 242 ENDDO 243 ! 244 s_i_new (1:nidx) = 0._wp ; dh_s_tot (1:nidx) = 0._wp ! --- some init --- ! (important to have them here) 245 dh_i_surf (1:nidx) = 0._wp ; dh_i_bott(1:nidx) = 0._wp 246 dh_snowice(1:nidx) = 0._wp ; dh_i_sub (1:nidx) = 0._wp 248 247 ! 249 248 IF( ln_limdH ) CALL lim_thd_dif ! --- Ice/Snow Temperature profile --- ! -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_da.F90
r8371 r8378 18 18 ! 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo ! work arrays21 20 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 22 21 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90
r8373 r8378 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo ! work arrays26 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 26 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
r8373 r8378 20 20 USE ice ! LIM-3 variables 21 21 USE thd_ice ! LIM-3: thermodynamics 22 ! 22 23 USE in_out_manager ! I/O manager 23 24 USE lib_mpp ! MPP library 24 USE wrk_nemo ! work arrays25 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 26 26 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_ent.F90
r8373 r8378 26 26 USE thd_ice ! LIM thermodynamics 27 27 USE limvar ! LIM variables 28 ! 28 29 USE in_out_manager ! I/O manager 29 30 USE lib_mpp ! MPP library 30 USE wrk_nemo ! work arrays31 31 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 32 32 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90
r8373 r8378 24 24 USE limtab ! LIM 2D <==> 1D 25 25 USE limcons ! LIM conservation 26 USE limthd_ent 27 USE limvar 28 ! 26 29 USE in_out_manager ! I/O manager 27 30 USE lib_mpp ! MPP library 28 USE wrk_nemo ! work arrays29 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 30 32 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 31 USE limthd_ent32 USE limvar33 33 34 34 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
r8342 r8378 19 19 USE thd_ice ! LIM thermodynamics 20 20 USE limvar ! LIM variables 21 ! 21 22 USE in_out_manager ! I/O manager 22 23 USE lib_mpp ! MPP library 23 USE wrk_nemo ! work arrays24 24 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 25 25 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90
r8355 r8378 19 19 USE limitd_th 20 20 USE limvar 21 USE wrk_nemo ! work arrays22 USE timing ! Timing23 21 USE limcons ! conservation tests 24 22 USE limctl ! control prints 23 ! 25 24 USE lib_mpp ! MPP library 26 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 26 USE in_out_manager ! I/O manager 27 USE timing ! Timing 28 28 29 29 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limupdate2.F90
r8373 r8378 19 19 USE limitd_th 20 20 USE limvar 21 USE lbclnk ! lateral boundary condition - MPP exchanges22 USE wrk_nemo ! work arrays23 USE timing ! Timing24 21 USE limcons ! conservation tests 25 22 USE limctl 23 ! 24 USE lbclnk ! lateral boundary condition - MPP exchanges 26 25 USE lib_mpp ! MPP library 27 26 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 28 27 USE in_out_manager 28 USE timing ! Timing 29 29 30 30 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r8373 r8378 41 41 USE ice ! ice variables 42 42 USE thd_ice ! ice variables (thermodynamics) 43 ! 43 44 USE in_out_manager ! I/O manager 44 45 USE lib_mpp ! MPP library 45 USE wrk_nemo ! work arrays46 46 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 47 47 -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r8373 r8378 19 19 USE ice 20 20 USE limvar 21 ! 21 22 USE in_out_manager 22 23 USE lbclnk 23 24 USE lib_mpp ! MPP library 24 USE wrk_nemo ! work arrays25 25 USE iom 26 26 USE timing ! Timing
Note: See TracChangeset
for help on using the changeset viewer.