Changeset 7403 for branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

Timestamp:

2016-11-30T17:56:53+01:00 (8 years ago)

Author:

timgraham

Message:

Merge dev_INGV_METO_merge_2016 into branch

File:

• branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90 (modified) (3 diffs)

branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

@@ -70 +70 @@
       INTEGER  ::   overlap, jn, js, sind, eind, kdir, j_id
       REAL(wp) ::   zsum, zvctl
-      CHARACTER (len=20), DIMENSION(jptra) ::   cl
+      CHARACTER (len=20), ALLOCATABLE, DIMENSION(:) ::   cl
       CHARACTER (len=10) ::   cl2
       REAL(wp), POINTER, DIMENSION(:,:,:)  :: zmask, ztab3d 
@@ -76 +76 @@
 
       CALL wrk_alloc( jpi, jpj, jpk, zmask, ztab3d )
+      ALLOCATE( cl(jptra) )
       !                                      ! Arrays, scalars initialization 
       overlap       = 0
@@ -152 +153 @@
       !
       CALL wrk_dealloc( jpi, jpj, jpk, zmask, ztab3d )
+      DEALLOCATE( cl )
       !
    END SUBROUTINE prt_ctl_trc