Changeset 2239 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/fldread.F90

Timestamp:

2010-10-13T00:03:11+02:00 (14 years ago)

Author:

rblod

Message:

First commit to compile ORCA2_LIM for next nemo v3.3

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/fldread.F90

@@ -681 +681 @@
          ! build the new filename if climatological data
          IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"_m" ,i2.2)' ) TRIM( sdjf%clrootname ), kmonth   ! add month
-      ELSE
-         ! build the new filename if climatological data
-         IF( sdjf%cltype == 'monthly' )   WRITE(sdjf%clname, '(a,"_m",i2.2)' ) TRIM( sdjf%clrootname ), kmonth   ! add month
       ENDIF
       CALL iom_open( sdjf%clname, sdjf%num, ldstop = ldstop, ldiof =  LEN(TRIM(sdjf%wgtname)) > 0 )