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

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

@@ -116 +116 @@
             ENDIF
             ALLOCATE( sf_sst(1)%fnow(jpi,jpj,1) )
-            ALLOCATE( sf_sst(1)%fdta(jpi,jpj,1,2) )
             !
             ! fill sf_sst with sn_sst and control print
             CALL fld_fill( sf_sst, (/ sn_sst /), cn_dir, 'sbc_ssr', 'SST restoring term toward SST data', 'namsbc_ssr' )
+            IF( sf_sst(1)%ln_tint ) ALLOCATE( sf_sst(1)%fdta(jpi,jpj,1,2) )
          ENDIF
          !
@@ -129 +129 @@
             ENDIF
             ALLOCATE( sf_sss(1)%fnow(jpi,jpj,1) )
-            ALLOCATE( sf_sss(1)%fdta(jpi,jpj,1,2) )
             !
             ! fill sf_sss with sn_sss and control print
             CALL fld_fill( sf_sss, (/ sn_sss /), cn_dir, 'sbc_ssr', 'SSS restoring term toward SSS data', 'namsbc_ssr' )
+            IF( sf_sss(1)%ln_tint )ALLOCATE( sf_sss(1)%fdta(jpi,jpj,1,2) )
          ENDIF
          !