Ignore:
Timestamp:
2012-01-27T16:43:58+01:00 (10 years ago)
Author:
rblod
Message:

Agrif for OBC/BDY

Location:
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdy_par.F90

    r3191 r3291  
    1717   PUBLIC 
    1818 
     19# if ! defined key_agrif 
    1920   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy  = .TRUE.   !: Unstructured Ocean Boundary Condition flag 
     21# else 
     22   LOGICAL, PUBLIC            ::   lk_bdy  = .TRUE.   !: Unstructured Ocean Boundary Condition flag 
     23# endif 
    2024   INTEGER, PUBLIC, PARAMETER ::   jp_bdy  = 10       !: Maximum number of bdy sets 
    2125   INTEGER, PUBLIC, PARAMETER ::   jpbtime = 1000     !: Max number of time dumps per file 
     
    3034   !!   Default option :            NO Unstructured open boundary condition 
    3135   !!---------------------------------------------------------------------- 
    32    LOGICAL, PUBLIC, PARAMETER ::   lk_bdy = .FALSE.   !: Unstructured Ocean Boundary Condition flag 
     36# if ! defined key_agrif 
     37   LOGICAL, PUBLIC, PARAMETER ::   lk_bdy  = .FALSE.   !: Unstructured Ocean Boundary Condition flag 
     38# else 
     39   LOGICAL, PUBLIC            ::   lk_bdy  = .FALSE.   !: Unstructured Ocean Boundary Condition flag 
     40# endif 
    3341#endif 
    3442 
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90

    r2715 r3291  
    101101   !!   Default option :                         NO open boundary condition 
    102102   !!---------------------------------------------------------------------- 
    103    LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.  !: Ocean Boundary Condition flag 
     103#if ! defined key_agrif 
     104   LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag 
     105#else 
     106   LOGICAL, PUBLIC            ::   lk_obc = .FALSE.     !: Ocean Boundary Condition flag 
     107#endif 
    104108#endif 
    105109 
Note: See TracChangeset for help on using the changeset viewer.