Changeset 2125 for branches/DEV_r1784_3DF/NEMO/OPA_SRC/SBC/sbcblk_core.F90

Timestamp:

2010-09-27T12:22:04+02:00 (14 years ago)

Author:

cbricaud

Message:

modification: don't allocate fdta arrays when time-interpollation is not used

File:

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

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

@@ -165 +165 @@
          DO ifpr= 1, jfld
             ALLOCATE( sf(ifpr)%fnow(jpi,jpj,1) )
-            ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) )
+            IF( slf_i(ifpr)%ln_tint ) ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) )
          END DO
          !