Changeset 547 for trunk/NEMO/OPA_SRC/IOM/iom_def.F90

Timestamp:

2006-10-20T17:45:39+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_078:RB: finalization of IOM (2)

File:

• trunk/NEMO/OPA_SRC/IOM/iom_def.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom_def.F90

@@ -22 +22 @@
    INTEGER, PARAMETER, PUBLIC ::   jpnf90      = 101     !: Use nf90 library
    INTEGER, PARAMETER, PUBLIC ::   jprstdimg   = 102     !: Use restart dimgs (fortran direct acces) library
+#if defined key_dimgout
+   INTEGER, PARAMETER, PUBLIC ::   jprstlib  = jprstdimg  !: restarts io library
+#else
+   INTEGER, PARAMETER, PUBLIC ::   jprstlib  = jpnf90     !: restarts io library
+#endif
 
    INTEGER, PARAMETER, PUBLIC ::   jp_r8    = 200     !: