Changeset 9596 for NEMO/trunk/src/NST/agrif_ice_interp.F90
- Timestamp:
- 2018-05-15T17:51:07+02:00 (6 years ago)
- Location:
- NEMO/trunk/src
- Files:
-
- 3 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/NST/agrif_ice_interp.F90
r9594 r9596 1 MODULE agrif_ si3_interp1 MODULE agrif_ice_interp 2 2 !!===================================================================================== 3 !! *** MODULE agrif_ si3_interp ***3 !! *** MODULE agrif_ice_interp *** 4 4 !! Nesting module : interp surface ice boundary condition from a parent grid 5 5 !! Sea-Ice model : LIM 3.6 Sea ice model time-stepping … … 33 33 !!---------------------------------------------------------------------- 34 34 !! NEMO/NST 3.6 , NEMO Consortium (2016) 35 !! $Id: agrif_ si3_interp.F90 6204 2016-01-04 13:47:06Z cetlod $35 !! $Id: agrif_ice_interp.F90 6204 2016-01-04 13:47:06Z cetlod $ 36 36 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 37 37 !!---------------------------------------------------------------------- … … 371 371 !!---------------------------------------------------------------------- 372 372 CONTAINS 373 SUBROUTINE agrif_ si3_interp_empty374 WRITE(*,*) 'agrif_ si3_interp : You should not have seen this print! error?'375 END SUBROUTINE agrif_ si3_interp_empty373 SUBROUTINE agrif_ice_interp_empty 374 WRITE(*,*) 'agrif_ice_interp : You should not have seen this print! error?' 375 END SUBROUTINE agrif_ice_interp_empty 376 376 #endif 377 377 378 378 !!====================================================================== 379 END MODULE agrif_ si3_interp379 END MODULE agrif_ice_interp
Note: See TracChangeset
for help on using the changeset viewer.