- Timestamp:
- 2015-12-04T17:05:58+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r5845 r6004 18 18 USE phycst ! physical constants 19 19 USE dom_oce ! ocean space and time domain variables 20 USE domvvl 21 USE lbclnk 20 USE domvvl ! ocean domain 21 USE ice_2 ! LIM sea-ice variables 22 USE sbc_oce ! surface boundary condition: ocean 23 USE sbc_ice ! surface boundary condition: sea-ice 24 USE thd_ice_2 ! LIM thermodynamic sea-ice variables 25 USE dom_ice_2 ! LIM sea-ice domain 26 USE limthd_zdf_2 ! 27 USE limthd_lac_2 ! 28 USE limtab_2 ! 29 ! 22 30 USE in_out_manager ! I/O manager 23 USE lib_mpp 31 USE lbclnk ! 32 USE lib_mpp ! 24 33 USE wrk_nemo ! work arrays 25 34 USE iom ! IOM library 26 USE ice_2 ! LIM sea-ice variables27 USE sbc_oce !28 USE sbc_ice !29 USE thd_ice_2 ! LIM thermodynamic sea-ice variables30 USE dom_ice_2 ! LIM sea-ice domain31 USE limthd_zdf_232 USE limthd_lac_233 USE limtab_234 35 USE prtctl ! Print control 35 36 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) … … 43 44 REAL(wp) :: epsi16 = 1.e-16 ! 44 45 REAL(wp) :: epsi04 = 1.e-04 ! 45 REAL(wp) :: rzero = 0. e0!46 REAL(wp) :: rone = 1. e0!46 REAL(wp) :: rzero = 0._wp ! 47 REAL(wp) :: rone = 1._wp ! 47 48 48 49 !! * Substitutions … … 74 75 !!--------------------------------------------------------------------- 75 76 INTEGER, INTENT(in) :: kt ! number of iteration 76 ! !77 ! 77 78 INTEGER :: ji, jj ! dummy loop indices 78 79 INTEGER :: nbpb ! nb of icy pts for thermo. cal.
Note: See TracChangeset
for help on using the changeset viewer.