Changeset 8652


Ignore:
Timestamp:
2017-10-23T13:11:32+02:00 (3 years ago)
Author:
andmirek
Message:

protect XIOS related calls in new subroutines with #if defined key_iomput

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8651 r8652  
    402402!sets enabled = .TRUE. for each field in restart file 
    403403   CHARACTER(len=*) :: rst_file 
     404#if defined key_iomput 
    404405   TYPE(xios_field) :: field_hdl 
    405406   TYPE(xios_file) :: file_hdl 
     
    442443         ENDIF 
    443444        END DO 
     445#endif 
    444446   END SUBROUTINE iom_set_rstw_active 
    445447 
Note: See TracChangeset for help on using the changeset viewer.