Changeset 10425 for NEMO/trunk/src/OCE/TRD/trdmxl_rst.F90

Timestamp:

2018-12-19T22:54:16+01:00 (5 years ago)

Author:

smasson

Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:

• NEMO/trunk/src/OCE/TRD/trdmxl_rst.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/TRD/trdmxl_rst.F90

@@ -61 +61 @@
          IF(lwp) THEN
             WRITE(numout,*)
-            SELECT CASE ( jprstlib )
-            CASE DEFAULT         ;   WRITE(numout,*) '             open ocean restart_mxl NetCDF file: '//clname
-            END SELECT
+            WRITE(numout,*) '             open ocean restart_mxl NetCDF file: '//clname
             IF( kt == nitrst - 1 ) THEN   ;   WRITE(numout,*) '             kt = nitrst - 1 = ', kt,' date= ', ndastp
             ELSE                          ;   WRITE(numout,*) '             kt = '             , kt,' date= ', ndastp
@@ -69 +67 @@
          ENDIF
 
-         CALL iom_open( TRIM(clpath)//TRIM(clname), nummxlw, ldwrt = .TRUE., kiolib = jprstlib )
+         CALL iom_open( TRIM(clpath)//TRIM(clname), nummxlw, ldwrt = .TRUE. )
       ENDIF
 
@@ -133 +131 @@
       CHARACTER (len=35) :: charout
       INTEGER ::   jk         ! loop indice
-      INTEGER ::   jlibalt = jprstlib
       LOGICAL ::   llok
       CHARACTER(LEN=256)  ::   clpath   ! full path to restart file
@@ -146 +143 @@
       clpath = TRIM(cn_ocerst_indir)
       IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/'
-      CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 
+      CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum ) 
 
       IF( ln_trdmxl_instant ) THEN