Changeset 392


Ignore:
Timestamp:
2006-03-10T11:55:45+01:00 (15 years ago)
Author:
opalod
Message:

RB:nemo_v1_update_038: first integration of Agrif :

  • add agrif to dynspg_flt_jki.F90
  • cosmetic change of key_AGRIF in key_agrif
Location:
trunk/NEMO/OPA_SRC
Files:
39 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r389 r392  
    8888      !! * local declarations 
    8989      INTEGER  ::   ji, jj, jk        ! dummy loop arguments 
    90 #if ! defined key_AGRIF 
     90#if ! defined key_agrif 
    9191      INTEGER  ::   ijpj = jpj        ! ??? 
    9292#else 
     
    9696         p_fval                       ! function value 
    9797      !!-------------------------------------------------------------------- 
    98 #if defined key_AGRIF 
     98#if defined key_agrif 
    9999      ijpj = jpj 
    100100#endif       
     
    136136      !! * local declarations 
    137137      INTEGER  ::   ji,jj             ! dummy loop arguments 
    138 #if ! defined key_AGRIF 
     138#if ! defined key_agrif 
    139139      INTEGER  ::   ijpj = jpj        ! ??? 
    140140#else 
     
    144144         p_fval                       ! function value 
    145145      !!-------------------------------------------------------------------- 
    146 #if defined key_AGRIF 
     146#if defined key_agrif 
    147147      ijpj = jpj 
    148148#endif       
  • trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

    r389 r392  
    197197      !                        ! parameterize exchanges through straits 
    198198 
    199 #if defined key_AGRIF 
     199#if defined key_agrif 
    200200   !!---------------------------------------------------------------------- 
    201201   !! agrif sponge layer 
  • trunk/NEMO/OPA_SRC/DOM/domain.F90

    r389 r392  
    264264      ENDIF 
    265265 
    266 #if defined key_AGRIF 
     266#if defined key_agrif 
    267267      if ( Agrif_Root() ) then 
    268268#endif 
     
    278278         IF(lwp) WRITE(numout,*) '           The IOIPSL calendar is "360d", i.e. 360 days in a year' 
    279279      END SELECT 
    280 #if defined key_AGRIF 
     280#if defined key_agrif 
    281281      endif 
    282282#endif 
  • trunk/NEMO/OPA_SRC/DOM/domhgr.F90

    r389 r392  
    236236         gphi0 = - ppe2_m * 1.e-3 
    237237          
    238 #if defined key_AGRIF && defined key_eel_r6 
     238#if defined key_agrif && defined key_eel_r6 
    239239         IF (.Not.Agrif_Root()) THEN 
    240240           glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 
     
    434434         zphi0   = ppgphi0 - FLOAT( jpjglo/2) * ppe2_m / ( ra * rad )           ! latitude of the first row F-points 
    435435          
    436 #if defined key_AGRIF && defined key_eel_r6 
     436#if defined key_agrif && defined key_eel_r6 
    437437         IF (.Not.Agrif_Root()) THEN 
    438438           zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) 
     
    513513      !!---------------------------------------------------------------------- 
    514514      clname = 'coordinates' 
    515 #if defined key_AGRIF 
     515#if defined key_agrif 
    516516      if ( .NOT. Agrif_Root() ) then 
    517517         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/DOM/domwri.F90

    r389 r392  
    104104         clnam4 = 'mesh_zgr'   ! filename (vertical   mesh informations) 
    105105 
    106 #if defined key_AGRIF 
     106#if defined key_agrif 
    107107      if ( .NOT. Agrif_Root() ) then 
    108108        clnam0 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam0) 
  • trunk/NEMO/OPA_SRC/DOM/domzgr.F90

    r389 r392  
    391391 
    392392         clname = 'bathy_level.nc'                       ! Level bathymetry 
    393 #if defined key_AGRIF 
     393#if defined key_agrif 
    394394      if ( .NOT. Agrif_Root() ) then 
    395395         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
     
    420420 
    421421         clname = 'bathy_meter.nc'                       ! meter bathymetry 
    422 #if defined key_AGRIF 
     422#if defined key_agrif 
    423423      if ( .NOT. Agrif_Root() ) then 
    424424         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/DTA/dtasal.F90

    r389 r392  
    121121          
    122122         clname = 'data_1m_salinity_nomask' 
    123 #if defined key_AGRIF 
     123#if defined key_agrif 
    124124         if ( .NOT. Agrif_Root() ) then 
    125125            clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/DTA/dtasst.F90

    r389 r392  
    9494      !!---------------------------------------------------------------------- 
    9595         clname = 'sst_1d.nc' 
    96 #if defined key_AGRIF 
     96#if defined key_agrif 
    9797      if ( .NOT. Agrif_Root() ) then 
    9898         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/DTA/dtatem.F90

    r389 r392  
    100100      cl_tdata = 'data_1m_potential_temperature_nomask ' 
    101101 
    102 #if defined key_AGRIF 
     102#if defined key_agrif 
    103103      if ( .NOT. Agrif_Root() ) then 
    104104         cl_tdata = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tdata) 
  • trunk/NEMO/OPA_SRC/DYN/divcur.F90

    r389 r392  
    130130         IF( lp_obc_south )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south 
    131131#endif          
    132 #if defined key_AGRIF 
     132#if defined key_agrif 
    133133         if ( .NOT. AGRIF_Root() ) then 
    134134            IF ((nbondi ==  1).OR.(nbondi == 2)) hdivn(nlci-1 , :     ,jk) = 0.e0      ! east 
     
    334334         IF( lp_obc_south )   hdivn(nis0  :nis1  ,njs0  :njs1  ,jk) = 0.e0      ! south 
    335335#endif          
    336 #if defined key_AGRIF 
     336#if defined key_agrif 
    337337         if ( .NOT. AGRIF_Root() ) then 
    338338            IF ((nbondi ==  1).OR.(nbondi == 2)) hdivn(nlci-1 , :     ,jk) = 0.e0      ! east 
  • trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

    r389 r392  
    135135         !                                             ! =============== 
    136136# endif 
    137 # if defined key_AGRIF 
     137# if defined key_agrif 
    138138         !                                             ! =============== 
    139139      END DO                                           !   End of slab 
     
    178178      ENDIF 
    179179 
    180 #if defined key_AGRIF 
     180#if defined key_agrif 
    181181      IF (.NOT.Agrif_Root())    CALL Agrif_Update_Dyn( kt ) 
    182182#endif       
  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r389 r392  
    171171      CALL obc_vol( kt ) 
    172172#endif 
    173 #if defined key_AGRIF 
     173#if defined key_agrif 
    174174      ! Update velocities on each coarse/fine interfaces 
    175175 
     
    239239      IF( nsolv == 4 )   CALL lbc_lnk_e( gcb, c_solver_pt, 1. )    
    240240 
    241 #if defined key_AGRIF 
     241#if defined key_agrif 
    242242 
    243243       If (.NOT.AGRIF_ROOT()) THEN 
     
    315315      END DO 
    316316 
    317 #if defined key_AGRIF       
     317#if defined key_agrif       
    318318      IF (.NOT. Agrif_Root()) THEN 
    319319      ! caution : grad D (fine) = grad D (coarse) at coarse/fine interface 
  • trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90

    r358 r392  
    3737   USE prtctl          ! Print control 
    3838   USE in_out_manager  ! I/O manager 
     39   USE agrif_opa_interp 
    3940 
    4041   IMPLICIT NONE 
     
    178179         CALL obc_vol( kt ) 
    179180#endif 
     181#if defined key_agrif 
     182      ! Update velocities on each coarse/fine interfaces 
     183 
     184      CALL Agrif_dyn( kt ) 
     185 
     186#endif 
    180187#if defined key_orca_r2 
    181188      IF( n_cla == 1 )   CALL dyn_spg_cla( kt )      ! Cross Land Advection (Update (ua,va)) 
     
    237244      ! applied the lateral boundary conditions 
    238245      IF( nsolv == 4)   CALL lbc_lnk_e( gcb, c_solver_pt, 1. )   
     246 
     247#if defined key_agrif 
     248 
     249       If (.NOT.AGRIF_ROOT()) THEN 
     250 
     251         ! add contribution of gradient of after barotropic transport divergence  
     252        IF ((nbondi == -1).OR.(nbondi == 2)) gcb(3,:) = gcb(3,:) & 
     253                        -znugdt * z2dt*laplacu(2,:)*gcdprc(3,:)*hu(2,:)*e2u(2,:) 
     254        IF ((nbondi == 1).OR.(nbondi == 2))  gcb(nlci-2,:) = gcb(nlci-2,:) & 
     255                       +znugdt * z2dt*laplacu(nlci-2,:)*gcdprc(nlci-2,:)*hu(nlci-2,:)*e2u(nlci-2,:) 
     256        IF ((nbondj == -1).OR.(nbondj == 2)) gcb(:,3) = gcb(:,3) & 
     257                       -znugdt * z2dt*laplacv(:,2)*gcdprc(:,3)*hv(:,2)*e1v(:,2) 
     258        IF ((nbondj == 1).OR.(nbondj == 2))  gcb(:,nlcj-2) = gcb(:,nlcj-2) & 
     259                       +znugdt * z2dt*laplacv(:,nlcj-2)*gcdprc(:,nlcj-2)*hv(:,nlcj-2)*e1v(:,nlcj-2) 
     260 
     261       ENDIF 
     262 
     263#endif 
    239264 
    240265      !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,synchro,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
     
    310335         END DO 
    311336          
     337#if defined key_agrif       
     338      IF (.NOT. Agrif_Root()) THEN 
     339      ! caution : grad D (fine) = grad D (coarse) at coarse/fine interface 
     340        IF ((nbondi == -1).OR.(nbondi == 2)) spgu(2,:) = znugdt * z2dt * laplacu(2,:) * umask(2,:,1) 
     341        IF ((nbondi == 1).OR.(nbondi == 2)) spgu(nlci-2,:) = znugdt * z2dt * laplacu(nlci-2,:) * umask(nlci-2,:,1) 
     342        IF ((nbondj == -1).OR.(nbondj == 2)) spgv(:,2) = znugdt * z2dt * laplacv(:,2) * vmask(:,2,1) 
     343        IF ((nbondj == 1).OR.(nbondj == 2)) spgv(:,nlcj-2) = znugdt * z2dt * laplacv(:,nlcj-2) * vmask(:,nlcj-2,1) 
     344      ENDIF 
     345#endif 
     346       
    312347         ! 7.  Add the trends multiplied by z2dt to the after velocity 
    313348         ! ----------------------------------------------------------- 
  • trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90

    r389 r392  
    132132 
    133133         ! title, dimensions and tests 
    134 #if defined key_AGRIF 
     134#if defined key_agrif 
    135135      if ( .NOT. Agrif_Root() ) then 
    136136         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/SBC/flx_forced_daily.h90

    r389 r392  
    123123         IF(lwp) WRITE (numout,*) iy 
    124124         WRITE(clname,'("flx_1d.nc")')  
    125 #if defined key_AGRIF 
     125#if defined key_agrif 
    126126      if ( .NOT. Agrif_Root() ) then 
    127127         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/SBC/tau_forced_daily.h90

    r389 r392  
    9393         ENDIF 
    9494         ! title, dimensions and tests 
    95 #if defined key_AGRIF 
     95#if defined key_agrif 
    9696      if ( .NOT. Agrif_Root() ) then 
    9797         cl_taux = TRIM(Agrif_CFixed())//'_'//TRIM(cl_taux) 
     
    117117            nstop = nstop + 1 
    118118         ENDIF 
    119 #if defined key_AGRIF 
     119#if defined key_agrif 
    120120      if ( .NOT. Agrif_Root() ) then 
    121121         cl_tauy = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tauy) 
  • trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90

    r389 r392  
    109109         ! title, dimensions and tests 
    110110 
    111 #if defined key_AGRIF 
     111#if defined key_agrif 
    112112      if ( .NOT. Agrif_Root() ) then 
    113113         cl_taux = TRIM(Agrif_CFixed())//'_'//TRIM(cl_taux) 
     
    134134            nstop = nstop + 1 
    135135         ENDIF 
    136 #if defined key_AGRIF 
     136#if defined key_agrif 
    137137      if ( .NOT. Agrif_Root() ) then 
    138138         cl_tauy = TRIM(Agrif_CFixed())//'_'//TRIM(cl_tauy) 
  • trunk/NEMO/OPA_SRC/SOL/sol_oce.F90

    r389 r392  
    6767      gccd             !: vector such that ca.gccd=a.d (ca-1=gcdprc) 
    6868 
    69 #if defined key_AGRIF 
     69#if defined key_agrif 
    7070      REAL(wp), DIMENSION(jpi,jpj) :: laplacu, laplacv 
    7171#endif 
  • trunk/NEMO/OPA_SRC/SOL/solmat.F90

    r389 r392  
    183183!!cr  ENDIF 
    184184#endif 
    185 #if defined key_AGRIF 
     185#if defined key_agrif 
    186186       IF (.NOT.AGRIF_ROOT()) THEN 
    187187        
  • trunk/NEMO/OPA_SRC/TRA/trabbc.F90

    r389 r392  
    189189         ! read the geothermal fluxes in mW/m2 
    190190         clname = 'geothermal_heating' 
    191 #if defined key_AGRIF 
     191#if defined key_agrif 
    192192      if ( .NOT. Agrif_Root() ) then 
    193193         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/TRA/tradmp.F90

    r389 r392  
    3636   !! * Shared module variables 
    3737   LOGICAL , PUBLIC & 
    38 #if ! defined key_AGRIF 
     38#if ! defined key_agrif 
    3939   , PARAMETER  & 
    4040#endif 
  • trunk/NEMO/OPA_SRC/TRA/tranxt.F90

    r389 r392  
    110110         !                                             ! =============== 
    111111#endif 
    112 #if defined key_AGRIF 
     112#if defined key_agrif 
    113113         !                                             ! =============== 
    114114      END DO                                           !   End of slab 
     
    185185      ENDIF 
    186186       
    187 #if defined key_AGRIF 
     187#if defined key_agrif 
    188188      IF (.NOT.Agrif_Root())    CALL Agrif_Update_Tra( kt ) 
    189189#endif       
  • trunk/NEMO/OPA_SRC/ctlopn.F90

    r387 r392  
    1212      !!   8.5  !  02-06  (G. Madec)  F90: Free form and module 
    1313      !!---------------------------------------------------------------------- 
    14 #if defined key_AGRIF 
     14#if defined key_agrif 
    1515      USE Agrif_Util 
    1616#endif 
     
    1818 
    1919      INTEGER, INTENT( in ) ::   & 
    20 #if !defined key_AGRIF 
     20#if !defined key_agrif 
    2121         knum,     & ! logical unit to open 
    2222#endif 
     
    3131         cdform,   & ! formatting specifier 
    3232         cdstat      ! disposition specifier 
    33 #if !defined key_AGRIF 
     33#if !defined key_agrif 
    3434      CHARACTER (len=* ), INTENT( in ) ::   & 
    3535         cdfile      ! file name to open 
     
    3838      LOGICAL ::  ldwp   ! boolean term for print 
    3939 
    40 #if defined key_AGRIF 
     40#if defined key_agrif 
    4141      LOGICAL :: op 
    4242      INTEGER, INTENT( inout ) ::   & 
     
    5151      !!---------------------------------------------------------------------- 
    5252 
    53 #if defined key_AGRIF 
     53#if defined key_agrif 
    5454      if ( .NOT. Agrif_Root() ) then 
    5555         cdfile= TRIM(Agrif_CFixed())//'_'//TRIM(cdfile) 
  • trunk/NEMO/OPA_SRC/istate.F90

    r389 r392  
    330330            itime  = 0 
    331331            clname = 'eel.initemp' 
    332 #if defined key_AGRIF 
     332#if defined key_agrif 
    333333      if ( .NOT. Agrif_Root() ) then 
    334334         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/lib_mpp.F90

    r389 r392  
    288288      CASE ( 'S' )                ! Standard mpi send (blocking) 
    289289         WRITE(numout,*) '           Standard blocking mpi send (send)' 
    290 #if defined key_AGRIF 
     290#if defined key_agrif 
    291291         IF ( Agrif_Root() ) THEN 
    292292#endif       
    293293         CALL mpi_init( ierr ) 
    294 #if defined key_AGRIF 
     294#if defined key_agrif 
    295295         ENDIF 
    296296#endif     
    297297      CASE ( 'B' )                ! Buffer mpi send (blocking) 
    298298         WRITE(numout,*) '           Buffer blocking mpi send (bsend)' 
    299 #if defined key_AGRIF 
     299#if defined key_agrif 
    300300         IF ( Agrif_Root() ) THEN 
    301301#endif       
    302302         CALL mpi_init_opa( ierr ) 
    303 #if defined key_AGRIF 
     303#if defined key_agrif 
    304304         ENDIF 
    305305#endif     
     
    307307         WRITE(numout,*) '           Immediate non-blocking send (isend)' 
    308308         l_isend = .TRUE. 
    309 #if defined key_AGRIF 
     309#if defined key_agrif 
    310310         IF ( Agrif_Root() ) THEN 
    311311#endif       
    312312         CALL mpi_init( ierr ) 
    313 #if defined key_AGRIF 
     313#if defined key_agrif 
    314314         ENDIF 
    315315#endif     
  • trunk/NEMO/OPA_SRC/mppini_2.h90

    r389 r392  
    122122            clvar = 'Bathy_level' 
    123123         ENDIF 
    124 #if defined key_AGRIF 
     124#if defined key_agrif 
    125125      if ( .NOT. Agrif_Root() ) then 
    126126         clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/opa.F90

    r389 r392  
    110110      !!---------------------------------------------------------------------- 
    111111 
    112 #if defined key_AGRIF 
     112#if defined key_agrif 
    113113 
    114114      Call Agrif_Init_Grids() 
     
    120120         istp = nit000 
    121121         DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
    122 #if defined key_AGRIF 
     122#if defined key_agrif 
    123123            CALL Agrif_Step(stp_1d) 
    124124#else 
     
    130130         istp = nit000 
    131131         DO WHILE ( istp <= nitend .AND. nstop == 0 ) 
    132 #if defined key_AGRIF 
     132#if defined key_agrif 
    133133            CALL Agrif_Step(stp) 
    134134#else 
  • trunk/NEMO/OPA_SRC/par_EEL_R2.h90

    r389 r392  
    99   !!---------------------------------------------------------------------- 
    1010   CHARACTER (len=16)      & 
    11 #if !defined key_AGRIF 
     11#if !defined key_agrif 
    1212      , PARAMETER  & 
    1313#endif 
     
    1515      cp_cfg = "eel"            !: name of the configuration 
    1616   INTEGER     & 
    17 #if !defined key_AGRIF 
     17#if !defined key_agrif 
    1818      , PARAMETER  & 
    1919#endif 
  • trunk/NEMO/OPA_SRC/par_EEL_R5.h90

    r389 r392  
    99   !!---------------------------------------------------------------------- 
    1010   CHARACTER (len=16)      & 
    11 #if !defined key_AGRIF 
     11#if !defined key_agrif 
    1212      , PARAMETER  & 
    1313#endif 
    1414      ::    &   
    1515   INTEGER     & 
    16 #if !defined key_AGRIF 
     16#if !defined key_agrif 
    1717      , PARAMETER  & 
    1818#endif 
  • trunk/NEMO/OPA_SRC/par_EEL_R6.h90

    r389 r392  
    99   !!---------------------------------------------------------------------- 
    1010   CHARACTER (len=16)      & 
    11 #if !defined key_AGRIF 
     11#if !defined key_agrif 
    1212      , PARAMETER  & 
    1313#endif 
     
    1515      cp_cfg = "eel"            !: name of the configuration 
    1616   INTEGER     & 
    17 #if !defined key_AGRIF 
     17#if !defined key_agrif 
    1818      , PARAMETER  & 
    1919#endif 
     
    6262      !   of the constraint that the equator be a T point. 
    6363   REAL(wp) & 
    64 #if !defined key_AGRIF 
     64#if !defined key_agrif 
    6565      , PARAMETER  & 
    6666#endif 
  • trunk/NEMO/OPA_SRC/par_GYRE.h90

    r389 r392  
    99   !!---------------------------------------------------------------------- 
    1010   CHARACTER (len=16)      & 
    11 #if !defined key_AGRIF 
     11#if !defined key_agrif 
    1212      , PARAMETER  & 
    1313#endif 
     
    1515      cp_cfg = "gyre"           !: name of the configuration 
    1616   INTEGER     & 
    17 #if !defined key_AGRIF 
     17#if !defined key_agrif 
    1818      , PARAMETER  & 
    1919#endif 
  • trunk/NEMO/OPA_SRC/par_ORCA_R025.h90

    r389 r392  
    1010   !!---------------------------------------------------------------------- 
    1111   CHARACTER (len=16)      & 
    12 #if !defined key_AGRIF 
     12#if !defined key_agrif 
    1313      , PARAMETER  & 
    1414#endif 
     
    1616      cp_cfg = "orca"           !: name of the configuration 
    1717   INTEGER     & 
    18 #if !defined key_AGRIF 
     18#if !defined key_agrif 
    1919      , PARAMETER  & 
    2020#endif 
  • trunk/NEMO/OPA_SRC/par_ORCA_R05.h90

    r389 r392  
    1010   !!---------------------------------------------------------------------- 
    1111   CHARACTER (len=16)      & 
    12 #if !defined key_AGRIF 
     12#if !defined key_agrif 
    1313      , PARAMETER  & 
    1414#endif 
     
    1616      cp_cfg = "orca"           !: name of the configuration 
    1717   INTEGER     & 
    18 #if !defined key_AGRIF 
     18#if !defined key_agrif 
    1919      , PARAMETER  & 
    2020#endif 
     
    3030      ! zoom domain size       !!! *  antarctic zoom  *  
    3131   INTEGER     & 
    32 #if !defined key_AGRIF 
     32#if !defined key_agrif 
    3333      , PARAMETER  & 
    3434#endif 
     
    4848      ! zoom domain size       !!! *  arctic zoom  * 
    4949   INTEGER    & 
    50 #if !defined key_AGRIF 
     50#if !defined key_agrif 
    5151      , PARAMETER  & 
    5252#endif 
     
    6767      ! global domain size     !!! *  global domain  * 
    6868   INTEGER    & 
    69 #if !defined key_AGRIF 
     69#if !defined key_agrif 
    7070      , PARAMETER  & 
    7171#endif 
  • trunk/NEMO/OPA_SRC/par_ORCA_R2.h90

    r389 r392  
    1010   !!---------------------------------------------------------------------- 
    1111   CHARACTER (len=16)      & 
    12 #if !defined key_AGRIF 
     12#if !defined key_agrif 
    1313      , PARAMETER  & 
    1414#endif 
     
    1616      cp_cfg = "orca"           !: name of the configuration  
    1717   INTEGER     & 
    18 #if !defined key_AGRIF 
     18#if !defined key_agrif 
    1919      , PARAMETER  & 
    2020#endif 
     
    3030      ! zoom domain size       !!! *  antarctic zoom  *  
    3131   INTEGER     & 
    32 #if !defined key_AGRIF 
     32#if !defined key_agrif 
    3333      , PARAMETER  & 
    3434#endif 
     
    4848      ! zoom domain size       !!! *  arctic zoom  * 
    4949   INTEGER    & 
    50 #if !defined key_AGRIF 
     50#if !defined key_agrif 
    5151      , PARAMETER  & 
    5252#endif 
     
    6666      ! global domain size     !!! *  global domain  * 
    6767   INTEGER    & 
    68 #if !defined key_AGRIF 
     68#if !defined key_agrif 
    6969      , PARAMETER  & 
    7070#endif 
     
    9595      ! global domain size     !!! *  global domain  * 
    9696   INTEGER    & 
    97 #if !defined key_AGRIF 
     97#if !defined key_agrif 
    9898      , PARAMETER  & 
    9999#endif 
  • trunk/NEMO/OPA_SRC/par_ORCA_R4.h90

    r389 r392  
    1010   !!---------------------------------------------------------------------- 
    1111   CHARACTER (len=16)      & 
    12 #if !defined key_AGRIF 
     12#if !defined key_agrif 
    1313      , PARAMETER  & 
    1414#endif 
     
    1616     cp_cfg = "orca"           !: name of the configuration 
    1717   INTEGER     & 
    18 #if !defined key_AGRIF 
     18#if !defined key_agrif 
    1919      , PARAMETER  & 
    2020#endif 
  • trunk/NEMO/OPA_SRC/par_oce.F90

    r389 r392  
    169169   !!--------------------------------------------------------------------- 
    170170   INTEGER  &  !: 
    171 #if !defined key_AGRIF 
     171#if !defined key_agrif 
    172172      ,PARAMETER  & 
    173173#endif 
     
    180180      jpij  = jpi*jpj                                               !:  jpi x jpj 
    181181 
    182 #if defined key_AGRIF 
     182#if defined key_agrif 
    183183   !!--------------------------------------------------------------------- 
    184184   !! Agrif variables 
  • trunk/NEMO/OPA_SRC/restart.F90

    r389 r392  
    8888      REAL(wp), DIMENSION(10) ::   zinfo(10) 
    8989      REAL(wp), DIMENSION(jpi,jpj) :: ztab  
    90 #if defined key_AGRIF 
     90#if defined key_agrif 
    9191       Integer :: knum 
    9292#endif 
     
    127127         INQUIRE( FILE=crestart, EXIST=llbon ) 
    128128         IF(llbon) THEN 
    129 #if defined key_AGRIF 
     129#if defined key_agrif 
    130130       knum =Agrif_Get_Unit() 
    131131            OPEN( UNIT=knum, FILE=crestart, STATUS='old' ) 
     
    275275      !!---------------------------------------------------------------------- 
    276276      clname = 'restart' 
    277 #if defined key_AGRIF        
     277#if defined key_agrif        
    278278       inum = Agrif_Get_Unit() 
    279279       If(.NOT. Agrif_root() ) clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) 
  • trunk/NEMO/OPA_SRC/restart_dimg.h90

    r389 r392  
    6262       irecl8= jpi * jpj * wp 
    6363       WRITE(clres,'(a,i3.3)') 'restart.output.',narea 
    64 #if defined key_AGRIF  
     64#if defined key_agrif  
    6565       inum = Agrif_Get_Unit()       
    6666       If(.NOT. Agrif_root() ) clres = TRIM(Agrif_CFixed())//'_'//TRIM(clres) 
     
    273273    ! Open direct access file, with reclength for 2D wp fields 
    274274    WRITE(clres,'(a,i3.3)') 'restart.',narea 
    275 #if defined key_AGRIF        
     275#if defined key_agrif        
    276276    inum = Agrif_Get_Unit() 
    277277    If(.NOT. Agrif_root() ) clres = TRIM(Agrif_CFixed())//'_'//TRIM(clres) 
  • trunk/NEMO/OPA_SRC/step.F90

    r389 r392  
    118118   USE prtctl          ! Print control                    (prt_ctl routine) 
    119119 
    120 #if defined key_AGRIF 
     120#if defined key_agrif 
    121121   USE agrif_opa_sponge ! Momemtum and tracers sponges 
    122122#endif 
     
    140140 
    141141   SUBROUTINE stp( & 
    142 #if !defined key_AGRIF 
     142#if !defined key_agrif 
    143143   kstp & 
    144144#endif    
     
    175175      !! * Arguments 
    176176      INTEGER & 
    177 #if !defined key_AGRIF    
     177#if !defined key_agrif    
    178178      , INTENT( in ) & 
    179179#endif       
     
    184184      !! --------------------------------------------------------------------- 
    185185 
    186 #if defined key_AGRIF 
     186#if defined key_agrif 
    187187      kstp = nit000 + Agrif_Nb_Step() 
    188188      IF ( Agrif_Root() .and. lwp) Write(*,*) '---' 
     
    336336      IF( l_traldf_iso_zps )   CALL tra_ldf_iso_zps( kstp )           ! partial step iso-neutral/geopot. laplacian 
    337337 
    338 #if defined key_AGRIF 
     338#if defined key_agrif 
    339339      IF (.NOT. Agrif_Root())  CALL Agrif_Sponge_tra( kstp )          ! tracers sponge 
    340340#endif 
     
    386386      IF( l_dynldf_iso     )   CALL dyn_ldf_iso    ( kstp )          ! iso-neutral laplacian  
    387387 
    388 #if defined key_AGRIF 
     388#if defined key_agrif 
    389389      IF (.NOT. Agrif_Root())  CALL Agrif_Sponge_dyn( kstp )         ! momemtum sponge 
    390390#endif 
Note: See TracChangeset for help on using the changeset viewer.