Changeset 8631 for branches/2017

Timestamp:

2017-10-18T10:41:23+02:00 (7 years ago)

Author:

andmirek

Message:

change the way rst_fld is treated by AFRIF

File:

• branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom_def.F90

@@ -72 +72 @@
 
    INTEGER, PARAMETER, PUBLIC                   :: max_rst_fields = 95  
-!  CHARACTER(len=30),DIMENSION(max_rst_fields), PUBLIC   :: rst_fields ! names of variables in restart file
+
+!$AGRIF_END_DO_NOT_TREAT
 
    TYPE, PUBLIC :: RST_FIELD  
@@ -80 +81 @@
    TYPE(RST_FIELD), PUBLIC :: rst_fields(max_rst_fields)
 
-!$AGRIF_END_DO_NOT_TREAT
-
    !!=====================================================================
 END MODULE iom_def