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

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

@@ -129 +129 @@
          &                          sn_ccov, sn_tair, sn_prec
       !!---------------------------------------------------------------------
+      write(narea+200,*)'clio : '; call flush(narea+200)
 
       !                                         ! ====================== !
@@ -160 +161 @@
             CALL ctl_stop( 'sbc_blk_clio: unable to allocate sf structure' )   ;   RETURN
          ENDIF
-
          DO ifpr= 1, jpfld
             ALLOCATE( sf(ifpr)%fnow(jpi,jpj,1) )
-            ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) )
-         END DO
-
-
+            IF( slf_i(ifpr)%ln_tint ) ALLOCATE( sf(ifpr)%fdta(jpi,jpj,1,2) )
+         END DO
          ! fill sf with slf_i and control print
          CALL fld_fill( sf, slf_i, cn_dir, 'sbc_blk_clio', 'flux formulation for ocean surface boundary condition', 'namsbc_clio' )