Changeset 11383 for NEMO/branches/2019
- Timestamp:
- 2019-07-31T17:59:01+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DIA/diadct.F90
r11365 r11383 11 11 !! 3.4 ! 09/2011 (C Bricaud) 12 12 !!---------------------------------------------------------------------- 13 !! 13 !! does not work with agrif 14 #if ! defined key_agrif 14 15 !!---------------------------------------------------------------------- 15 16 !! dia_dct : Compute the transport through a sec. … … 1235 1236 END FUNCTION interp 1236 1237 1238 #else 1239 !!---------------------------------------------------------------------- 1240 !! Dummy module 1241 !!---------------------------------------------------------------------- 1242 PUBLIC dia_dct ! routine called by step.F90 1243 PUBLIC dia_dct_init ! routine called by nemogcm.F90 1244 LOGICAL, PUBLIC :: ln_diadct = .FALSE. 1245 ! 1246 CONTAINS 1247 ! 1248 SUBROUTINE dia_dct_init 1249 END SUBROUTINE dia_dct_init 1250 ! 1251 SUBROUTINE dia_dct( kt ) 1252 INTEGER, INTENT(in) :: kt 1253 END SUBROUTINE dia_dct 1254 ! 1255 #endif 1256 1237 1257 !!====================================================================== 1238 1258 END MODULE diadct
Note: See TracChangeset
for help on using the changeset viewer.