Changeset 547 for trunk/NEMO/OPA_SRC/IOM/iom.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.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -57 +57 @@
       LOGICAL         , INTENT(in   ), OPTIONAL ::   ldwrt    ! open in write modeb          (default = .FALSE.)
       INTEGER         , INTENT(in   ), OPTIONAL ::   kdom     ! Type of domain to be written (default = jpdom_local_noovlap)
-      INTEGER         , INTENT(in   ), OPTIONAL ::   kiolib   ! library used to open the file (default = jpioipsl) 
+      INTEGER         , INTENT(in   ), OPTIONAL ::   kiolib   ! library used to open the file (default = jpnf90) 
 
       CHARACTER(LEN=100)    ::   clname    ! the name of the file based on cdname [[+clcpu]+clcpu]
@@ -94 +94 @@
       ! what library do we use to open the file?
       IF( PRESENT(kiolib) ) THEN   ;   iolib = kiolib
-      ELSE                         ;   iolib = jpioipsl
+      ELSE                         ;   iolib = jpnf90
       ENDIF
       ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix)