Changeset 7604 for branches/2016

Timestamp:

2017-01-24T16:50:54+01:00 (7 years ago)

Author:

dkuts

Message:

fixed some typos

Location:

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC

Files:

• DIA/diafwb.F90 (modified) (1 diff)
• TRA/traadv.F90 (modified) (1 diff)

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

@@ -57 +57 @@
       REAL(wp) :: zt, zs, zu
       REAL(wp) :: zsm0, zfwfnew
-      REAL(wp), DIMENSION(:,:)     ::   ztmp      ! 2D workspace
+      REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::   ztmp      ! 2D workspace
       IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN
       !!----------------------------------------------------------------------
       IF( nn_timing == 1 )   CALL timing_start('dia_fwb')
+
+      ALLOCATE(ztmp(jpi,jpj)) 
 
       ! Mean global salinity

branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

@@ -100 +100 @@
       !
       !                                         !==  effective transport  ==!
-!$OMP PARALLEL DO schedule(static) private(jk jj, ji)
+!$OMP PARALLEL DO schedule(static) private(jk, jj, ji)
       DO jk = 1, jpkm1
          DO jj = 1, jpj