Changeset 10722 for branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/make_dmp_file.F90

Timestamp:

2019-02-25T15:19:53+01:00 (5 years ago)

Author:

jenniewaters

Message:

Changes to make sure original functionality works correctly.

File:

• branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/make_dmp_file.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/make_dmp_file.F90

@@ -32 +32 @@
   CHARACTER(LEN=200) :: outfile = 'resto.nc'     ! output file
   REAL(wp) :: zlat, zlat2, zlat0
+  LOGICAL  :: ln_distcoast_calc                  ! logical for calculating the distance
+                                                 ! to coast on the first depth.
+  REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: zdct! distance to coast field
 
   ! Read namelist
@@ -48 +51 @@
   WRITE(numout, *) 'jpk = ',jpk
 
+  ln_distcoast_calc=.true.
+
   ALLOCATE( resto(jpi, jpj) )
+  ALLOCATE( zdct(jpi, jpj) )
 
   !Create output file
@@ -94 +100 @@
            IF (ln_coast) THEN
               ! Reduce damping in vicinity of coastlines
-              CALL coast_dist_weight(resto, ln_readdistcoast, jk)
+              CALL coast_dist_weight(resto, zdct, ln_readdistcoast, jk, ln_distcoast_calc)
            ENDIF
         ENDIF