New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2031 for trunk/NEMO/OPA_SRC/OBC/obc_par.F90 – NEMO

Ignore:
Timestamp:
2010-07-29T14:31:53+02:00 (14 years ago)
Author:
rblod
Message:

Fix issues with OBC and AGRIF, see ticket #688 and #692

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/OBC/obc_par.F90

    r1876 r2031  
    4747   !! open boundary parameter 
    4848   !!--------------------------------------------------------------------- 
    49    INTEGER ::     &  !: time dimension of the BCS fields on input 
     49   INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input 
    5050      jptobc  =         2  
    5151   !! * EAST open boundary 
    52    LOGICAL ::     &  !: 
     52   LOGICAL, PARAMETER ::     &  !: 
    5353      lp_obc_east = .FALSE.     !: to active or not the East open boundary 
    54    INTEGER ::     &  
     54     INTEGER   & 
     55#if !defined key_agrif 
     56     , PARAMETER   &  
     57#endif 
     58    ::     &  
    5559      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point) 
    5660      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point) 
    … …  
    6064 
    6165   !! * WEST open boundary 
    62    LOGICAL ::     &  !: 
     66   LOGICAL, PARAMETER ::     &  !: 
    6367      lp_obc_west = .FALSE.     !: to active or not the West open boundary 
    64    INTEGER ::     &  !: 
     68     INTEGER   & 
     69#if !defined key_agrif 
     70     , PARAMETER   &  
     71#endif 
     72    ::     &  
    6573      jpiwob  =          2,    &  !: i-localization of the West open boundary (must be ocean U-point) 
    6674      jpjwd   =          2,    &  !: j-starting indice of the West open boundary (must be land T-point) 
    … …  
    7078 
    7179   !! * NORTH open boundary 
    72    LOGICAL ::     &  !: 
     80   LOGICAL, PARAMETER ::     &  !: 
    7381      lp_obc_north = .FALSE.    !: to active or not the North open boundary 
    74    INTEGER ::     &  !: 
     82     INTEGER   & 
     83#if !defined key_agrif 
     84     , PARAMETER   &  
     85#endif 
     86    ::     &  
    7587      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point) 
    7688      jpind   =        2,    &  !: i-starting indice of the North open boundary (must be land T-point) 
    … …  
    8092 
    8193   !! * SOUTH open boundary 
    82    LOGICAL ::     &  !: 
     94   LOGICAL, PARAMETER ::     &  !: 
    8395      lp_obc_south = .FALSE.    !: to active or not the South open boundary 
    84    INTEGER ::     &  !: 
     96     INTEGER   & 
     97#if !defined key_agrif 
     98     , PARAMETER   &  
     99#endif 
     100    ::     &  
    85101      jpjsob  =        2,    &  !: j-localization of the South open boundary (must be ocean V-point) 
    86102      jpisd   =        2,    &  !: i-starting indice of the South open boundary (must be land T-point) 
Note: See TracChangeset for help on using the changeset viewer.