Changeset 1856 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcssr.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/sbcssr.F90 (modified) (2 diffs)

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

@@ -115 +115 @@
                CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sst structure' )   ;   RETURN
             ENDIF
-            ALLOCATE( sf_sst(1)%fnow(jpi,jpj,1) )
+            ALLOCATE( sf_sst(1)%fnow(jpi,jpj,1  ) )
             ALLOCATE( sf_sst(1)%fdta(jpi,jpj,1,2) )
             !
@@ -128 +128 @@
                CALL ctl_stop( 'sbc_ssr: unable to allocate sf_sss structure' )   ;   RETURN
             ENDIF
-            ALLOCATE( sf_sss(1)%fnow(jpi,jpj,1) )
+            ALLOCATE( sf_sss(1)%fnow(jpi,jpj,1  ) )
             ALLOCATE( sf_sss(1)%fdta(jpi,jpj,1,2) )
             !