Changeset 1856 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2010-05-03T12:32:10+02:00 (14 years ago)

Author:

smasson

Message:

fldread_3D: small bugfix and style

File:

• branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (1 diff)

branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -75 +75 @@
                CALL ctl_stop( 'sbc_rnf: unable to allocate sf_rnf structure' )   ;   RETURN
             ENDIF
-            ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1) )
+            ALLOCATE( sf_rnf(1)%fnow(jpi,jpj,1  ) )
             ALLOCATE( sf_rnf(1)%fdta(jpi,jpj,1,2) )
          ENDIF