Changeset 4026

Timestamp:

2013-09-12T15:24:58+02:00 (11 years ago)

Author:

vichi

Message:

Correct bug in deallocation of data structure

Location:

branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC

Files:

• trcdta.F90 (modified) (1 diff)
• trcini.F90 (modified) (1 diff)

branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

@@ -247 +247 @@
                WRITE(numout,*)
          ENDIF
-         IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN      !==   deallocate data structure   ==! 
-            !                                              (data used only for initialisation)
-            IF(lwp) WRITE(numout,*) 'trc_dta: deallocate data arrays as they are only use to initialize the run'
-                                      DEALLOCATE( sf_dta(1)%fnow )     !  arrays in the structure
-            IF( sf_dta(1)%ln_tint )   DEALLOCATE( sf_dta(1)%fdta )
-            !
-         ENDIF
       ENDIF
       !

branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -130 +130 @@
                   ztrcdta(:,:,:) = sf_trcdta(jl)%fnow(:,:,:)
                   trn(:,:,:,jn) = ztrcdta(:,:,:) * tmask(:,:,:)  
+                  IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN      !== deallocate data structure   ==!
+                     !                                                    (data used only for initialisation)
+                     IF(lwp) WRITE(numout,*) 'trc_dta: deallocate data arrays as they are only used to initialize the run'
+                                                  DEALLOCATE( sf_trcdta(jl)%fnow )     !  arrays in the structure
+                     IF( sf_trcdta(jl)%ln_tint )  DEALLOCATE( sf_trcdta(jl)%fdta )
+                     !
+                  ENDIF
                ENDIF
             ENDDO