Changeset 2639 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC

Timestamp:

2011-03-02T19:23:26+01:00 (13 years ago)

Author:

cetlod

Message:

re-introduce missing allocated array

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90 (modified) (3 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

@@ -107 +107 @@
          ENDIF
 
+         ! Allocate erp and qrp array
+         ALLOCATE( qrp(jpi,jpj), erp(jpi,jpj), STAT=ierror )
+         IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp and qrp array' )
+
          IF( nn_sstr == 1 ) THEN      !* set sf_sst structure & allocate arrays
             !
@@ -119 +123 @@
             IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sst data array' )
             !
-            ALLOCATE( qrp(jpi,jpj), STAT=ierror )
-            IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate qrp array' )
          ENDIF
          !
@@ -135 +137 @@
             IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate sf_sss data array' )
             !
-            ALLOCATE( erp(jpi,jpj), STAT=ierror )
-            IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_ssr: unable to allocate erp array' )
          ENDIF
          !