Changeset 9656 for NEMO/trunk/src/NST/agrif_ice_interp.F90
- Timestamp:
- 2018-05-28T11:53:14+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_ice_interp.F90
r9610 r9656 3 3 !! *** MODULE agrif_ice_interp *** 4 4 !! Nesting module : interp surface ice boundary condition from a parent grid 5 !! Sea-Ice model : LIM 3.6 Sea ice model time-stepping6 5 !!===================================================================================== 7 !! History : 2.0 ! 04-2008 (F. Dupont) initial version6 !! History : 2.0 ! 04-2008 (F. Dupont) initial version 8 7 !! 3.4 ! 09-2012 (R. Benshila, C. Herbaut) update and EVP 9 !! 3.6 ! 05-2016 (C. Rousset) Add LIM3 compatibility8 !! 4.0 ! 2018 (C. Rousset) SI3 compatibility 10 9 !!---------------------------------------------------------------------- 11 10 #if defined key_agrif && defined key_si3 12 11 !!---------------------------------------------------------------------- 13 !! 'key_si3' : LIM 3.6sea-ice model14 !! 'key_agrif' :AGRIF library12 !! 'key_si3' SI3 sea-ice model 13 !! 'key_agrif' AGRIF library 15 14 !!---------------------------------------------------------------------- 16 15 !! agrif_interp_ice : interpolation of ice at "after" sea-ice time step … … 41 40 SUBROUTINE agrif_interp_ice( cd_type, kiter, kitermax ) 42 41 !!----------------------------------------------------------------------- 43 !! *** ROUTINE agrif_ rhg_lim3***42 !! *** ROUTINE agrif_interp_ice *** 44 43 !! 45 44 !! ** Method : simple call to atomic routines using stored values to
Note: See TracChangeset
for help on using the changeset viewer.