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 12097 for NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis – NEMO

Ignore:
Timestamp:
2019-12-06T16:55:50+01:00 (4 years ago)
Author:
smueller
Message:

Addition of AGRIF directives to enable compilation with key_agrif (ticket #2175)

Location:
NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/DIA/diamlr.F90

    r12012 r12097  
    248248         CALL xios_get_handle( "diamlr_file_scalar", slxhdl_fil ) 
    249249         CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_average" ) 
     250!$AGRIF_DO_NOT_TREAT 
    250251         CALL xios_set_attr  ( slxhdl_fld, standard_name="diamlr_time",                          & 
    251252            &                  long_name="Elapsed model time at start of regression interval",   & 
    252253            &                  unit="s", operation="average", field_ref="diamlr_time",           & 
    253254            &                  grid_ref="diamlr_grid_2D_to_scalar" ) 
     255!$AGRIF_END_DO_NOT_TREAT 
    254256         CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_minimum" ) 
     257!$AGRIF_DO_NOT_TREAT 
    255258         CALL xios_set_attr  ( slxhdl_fld, standard_name="diamlr_time",                          & 
    256259            &                  long_name="Elapsed model time at start of regression interval",   & 
    257260            &                  unit="s", operation="minimum", field_ref="diamlr_time",           & 
    258261            &                  grid_ref="diamlr_grid_2D_to_scalar" ) 
     262!$AGRIF_END_DO_NOT_TREAT 
    259263         CALL xios_add_child ( slxhdl_fil, slxhdl_fld, "diamlr_time_maximum" ) 
     264!$AGRIF_DO_NOT_TREAT 
    260265         CALL xios_set_attr  ( slxhdl_fld, standard_name="diamlr_time",                          & 
    261266            &                  long_name="Elapsed model time at start of regression interval",   & 
    262267            &                  unit="s", operation="maximum", field_ref="diamlr_time",           & 
    263268            &                  grid_ref="diamlr_grid_2D_to_scalar" ) 
     269!$AGRIF_END_DO_NOT_TREAT 
    264270 
    265271         ! For each active regressor: 
  • NEMO/branches/2019/dev_r11879_ENHANCE-05_SimonM-Harmonic_Analysis/src/OCE/SBC/tide_mod.F90

    r11983 r12097  
    2727   END TYPE tide 
    2828 
     29!$AGRIF_DO_NOT_TREAT 
    2930   TYPE(tide), PUBLIC, DIMENSION(jpmax_harmo) ::   Wave   !: 
     31!$AGRIF_END_DO_NOT_TREAT 
    3032 
    3133   REAL(wp) ::   sh_T, sh_s, sh_h, sh_p, sh_p1             ! astronomic angles 
Note: See TracChangeset for help on using the changeset viewer.