Changeset 11383


Ignore:
Timestamp:
2019-07-31T17:59:01+02:00 (14 months ago)
Author:
clem
Message:

do not compile diadct with key_agrif (it fails)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DIA/diadct.F90

    r11365 r11383  
    1111   !!            3.4  ! 09/2011 (C Bricaud) 
    1212   !!---------------------------------------------------------------------- 
    13    !! 
     13   !! does not work with agrif 
     14#if ! defined key_agrif 
    1415   !!---------------------------------------------------------------------- 
    1516   !!   dia_dct      :  Compute the transport through a sec. 
     
    12351236   END FUNCTION interp 
    12361237 
     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   ! 
     1246CONTAINS 
     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 
    12371257   !!====================================================================== 
    12381258END MODULE diadct 
Note: See TracChangeset for help on using the changeset viewer.