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 389 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90 – NEMO

Ignore:
Timestamp:
2006-03-09T18:22:04+01:00 (18 years ago)
Author:
opalod
Message:

RB:nemo_v1_update_038: first integration of Agrif :

  • configuration parameters are just integer when agrif is used
  • add call to agrif routines with key_agrif
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r352 r389  
    8888      !! * local declarations 
    8989      INTEGER  ::   ji, jj, jk        ! dummy loop arguments 
     90#if ! defined key_AGRIF 
    9091      INTEGER  ::   ijpj = jpj        ! ??? 
     92#else 
     93      INTEGER  ::   ijpj             ! ??? 
     94#endif       
    9195      REAL(wp),DIMENSION(jpj) ::   & 
    9296         p_fval                       ! function value 
    9397      !!-------------------------------------------------------------------- 
     98#if defined key_AGRIF 
     99      ijpj = jpj 
     100#endif       
    94101 
    95102      p_fval(:) = 0.e0 
    … …  
    129136      !! * local declarations 
    130137      INTEGER  ::   ji,jj             ! dummy loop arguments 
     138#if ! defined key_AGRIF 
    131139      INTEGER  ::   ijpj = jpj        ! ??? 
     140#else 
     141      INTEGER  ::   ijpj             ! ??? 
     142#endif       
    132143      REAL(wp),DIMENSION(jpj) ::   & 
    133144         p_fval                       ! function value 
    134145      !!-------------------------------------------------------------------- 
     146#if defined key_AGRIF 
     147      ijpj = jpj 
     148#endif       
    135149  
    136150      p_fval(:) = 0.e0 
Note: See TracChangeset for help on using the changeset viewer.