Changeset 3194

Timestamp:

2011-12-06T17:06:53+01:00 (12 years ago)

Author:

smasson

Message:

bugfix in work array size

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

@@ -93 +93 @@
       IF( nn_timing == 1 )  CALL timing_start('div_cur')
       !
-      CALL wrk_alloc( jpi  , jpj+2, zwu, kistart = 1  )
-      CALL wrk_alloc( jpi+2, jpj  , zwv, kjstart = -1 )
+      CALL wrk_alloc( jpi  , jpj+2, zwu               )
+      CALL wrk_alloc( jpi+4, jpj  , zwv, kjstart = -1 )
       !
       IF( kt == nit000 ) THEN
@@ -231 +231 @@
       CALL lbc_lnk( hdivn, 'T', 1. )   ;   CALL lbc_lnk( rotn , 'F', 1. )    ! lateral boundary cond. (no sign change)
       !
-      CALL wrk_dealloc( jpi  , jpj+2, zwu, kistart = 1  )
-      CALL wrk_dealloc( jpi+2, jpj  , zwv, kjstart = -1 )
+      CALL wrk_dealloc( jpi  , jpj+2, zwu               )
+      CALL wrk_dealloc( jpi+4, jpj  , zwv, kjstart = -1 )
       !
       IF( nn_timing == 1 )  CALL timing_stop('div_cur')