Changeset 9596 for NEMO/trunk/src/NST
- Timestamp:
- 2018-05-15T17:51:07+02:00 (3 years ago)
- Location:
- NEMO/trunk/src
- Files:
-
- 2 deleted
- 1 edited
- 4 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 -
NEMO/trunk/src/NST/agrif_ice_update.F90
r9594 r9596 2 2 !!#undef TWO_WAY 3 3 4 MODULE agrif_ si3_update4 MODULE agrif_ice_update 5 5 !!===================================================================================== 6 !! *** MODULE agrif_ si3_update ***6 !! *** MODULE agrif_ice_update *** 7 7 !! Nesting module : update surface ocean boundary condition over ice from a child grid 8 8 !! Sea-Ice model : LIM 3.6 Sea ice model time-stepping … … 37 37 !!---------------------------------------------------------------------- 38 38 !! NEMO/NST 4.0 , LOCEAN-IPSL (2017) 39 !! $Id: agrif_ si3_update.F90 6204 2016-01-04 13:47:06Z cetlod $39 !! $Id: agrif_ice_update.F90 6204 2016-01-04 13:47:06Z cetlod $ 40 40 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 41 41 !!---------------------------------------------------------------------- … … 210 210 !!---------------------------------------------------------------------- 211 211 CONTAINS 212 SUBROUTINE agrif_ si3_update_empty213 WRITE(*,*) 'agrif_ si3_update : You should not have seen this print! error?'214 END SUBROUTINE agrif_ si3_update_empty212 SUBROUTINE agrif_ice_update_empty 213 WRITE(*,*) 'agrif_ice_update : You should not have seen this print! error?' 214 END SUBROUTINE agrif_ice_update_empty 215 215 #endif 216 216 217 217 !!====================================================================== 218 END MODULE agrif_ si3_update218 END MODULE agrif_ice_update -
NEMO/trunk/src/NST/agrif_user.F90
r9570 r9596 308 308 #endif 309 309 #if defined key_si3 310 USE agrif_ si3_update310 USE agrif_ice_update 311 311 #endif 312 312 ! … … 504 504 USE agrif_ice 505 505 USE in_out_manager 506 USE agrif_ si3_interp506 USE agrif_ice_interp 507 507 USE lib_mpp 508 508 !
Note: See TracChangeset
for help on using the changeset viewer.