Ignore:
Timestamp:
2014-03-17T16:25:25+01:00 (8 years ago)
Author:
flavoni
Message:

add iom_use function in limwri.F90, see ticket #1259

File:
1 edited

Legend:

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

    r4525 r4532  
    4949#endif 
    5050   PUBLIC iom_init, iom_swap, iom_open, iom_close, iom_setkt, iom_varid, iom_get, iom_gettime, iom_rstput, iom_put 
    51    PUBLIC iom_getatt 
     51   PUBLIC iom_getatt, iom_use 
    5252 
    5353   PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d 
     
    14461446 
    14471447#endif 
     1448 
     1449   LOGICAL FUNCTION iom_use( cdname ) 
     1450      CHARACTER(LEN=*), INTENT(in) ::   cdname 
     1451#if defined key_iomput 
     1452      iom_use = xios_field_is_active( cdname ) 
     1453#else 
     1454      iom_use = .FALSE. 
     1455#endif 
     1456   END FUNCTION iom_use 
    14481457    
    14491458   !!====================================================================== 
Note: See TracChangeset for help on using the changeset viewer.