Changeset 1457 for trunk/NEMO/OPA_SRC/IOM
- Timestamp:
- 2009-05-23T10:16:38+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom.F90
r1441 r1457 33 33 PUBLIC ! must be public to be able to access iom_def through iom 34 34 35 #if defined key_iomput 36 LOGICAL, PUBLIC, PARAMETER :: lk_iomput = .TRUE. !: iom_put flag 37 #else 38 LOGICAL, PUBLIC, PARAMETER :: lk_iomput = .FALSE. !: iom_put flag 39 #endif 35 40 PUBLIC iom_init, iom_open, iom_close, iom_setkt, iom_varid, iom_get, iom_gettime, iom_rstput, iom_put 36 41 … … 892 897 893 898 !!---------------------------------------------------------------------- 894 !! INTERFACE iom_ rstput899 !! INTERFACE iom_put 895 900 !!---------------------------------------------------------------------- 896 901 SUBROUTINE iom_p2d( cdname, pfield2d )
Note: See TracChangeset
for help on using the changeset viewer.