- Timestamp:
- 2017-09-18T16:54:04+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90
r8517 r8534 2 2 !!====================================================================== 3 3 !! *** MODULE icecor *** 4 !! LIM-3 : Update of sea-ice globalvariables at the end of the time step4 !! ESIM : Corrections on sea-ice variables at the end of the time step 5 5 !!====================================================================== 6 6 !! History : 3.0 ! 2006-04 (M. Vancoppenolle) Original code … … 9 9 #if defined key_lim3 10 10 !!---------------------------------------------------------------------- 11 !! 'key_lim3' LIM3sea-ice model11 !! 'key_lim3' ESIM sea-ice model 12 12 !!---------------------------------------------------------------------- 13 !! ice_cor : co mputes update of sea-ice global variables from trend terms13 !! ice_cor : corrections on sea-ice variables 14 14 !!---------------------------------------------------------------------- 15 15 USE dom_oce ! ocean domain … … 22 22 ! 23 23 USE in_out_manager ! I/O manager 24 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 25 USE lbclnk ! lateral boundary condition - MPP link 24 USE iom ! I/O manager library 26 25 USE lib_mpp ! MPP library 26 USE lib_fortran ! fortran utilities (glob_sum + no signed zero) 27 USE lbclnk ! lateral boundary conditions (or mpp links) 27 28 USE timing ! Timing 28 USE iom !29 29 30 30 IMPLICIT NONE … … 47 47 !! 48 48 !! ** Purpose : Computes corrections on sea-ice global variables at 49 !! the end of the dynamics .49 !! the end of the dynamics (kn=1) and thermodynamics (kn=2) 50 50 !!---------------------------------------------------------------------- 51 51 INTEGER, INTENT(in) :: kt ! number of iteration … … 184 184 #else 185 185 !!---------------------------------------------------------------------- 186 !! Default option Dummy module NO LIM 3.0sea-ice model186 !! Default option Dummy module NO ESIM sea-ice model 187 187 !!---------------------------------------------------------------------- 188 188 #endif
Note: See TracChangeset
for help on using the changeset viewer.