Changeset 1319 for trunk/NEMO/OPA_SRC/SBC/fldread.F90

Timestamp:

2009-02-17T18:58:41+01:00 (15 years ago)

Author:

rblod

Message:

First try to use IOF with AGRIF, see ticket #341

File:

• trunk/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -506 +506 @@
          IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"m",i2.2)'  ) TRIM( sdjf%clname     ), kmonth   ! add month
       ENDIF
-      CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop )
+      CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop, ldiof =  LEN(TRIM(sdjf%wgtname)) > 0 )
       !
    END SUBROUTINE fld_clopn
@@ -677 +677 @@
 
       !! open input data file (non-model grid)
-      CALL iom_open( sd%clname, inum )
+      CALL iom_open( sd%clname, inum, ldiof =  LEN(TRIM(sd%wgtname)) > 0 )
 
       !! get dimensions