Changeset 8153


Ignore:
Timestamp:
2017-06-08T12:50:22+02:00 (3 years ago)
Author:
andmirek
Message:

disable restart read with XIOS for agrif configuration

Location:
branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8038 r8153  
    359359   SUBROUTINE set_rstr_active() 
    360360!sets enabled = .TRUE. for each field in restart file 
     361#if defined key_xios2 
    361362   CHARACTER(len=256) :: rst_file 
    362363   TYPE(xios_field) :: field_hdl 
     
    384385         ENDIF 
    385386        END DO 
    386  
     387#endif 
    387388   END SUBROUTINE set_rstr_active 
    388389 
  • branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8009 r8153  
    223223! can handle checking if variable is in the restart file (there will be no need to open 
    224224! restart) 
    225        
     225#if defined key_agrif 
     226      lxios_read = .FALSE. 
     227      lxios_set = .TRUE. 
     228#else 
    226229      IF(.NOT.lxios_set) lxios_read = lxios_read.AND.lxios_sini 
    227230      IF( lxios_read) THEN 
     
    232235         endif 
    233236       ENDIF 
    234        
     237#endif       
    235238      ENDIF 
    236239 
Note: See TracChangeset for help on using the changeset viewer.