Ignore:
Timestamp:
2019-02-25T15:19:53+01:00 (2 years ago)
Author:
jenniewaters
Message:

Changes to make sure original functionality works correctly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/make_dmp_file.F90

    r10199 r10722  
    3232  CHARACTER(LEN=200) :: outfile = 'resto.nc'     ! output file 
    3333  REAL(wp) :: zlat, zlat2, zlat0 
     34  LOGICAL  :: ln_distcoast_calc                  ! logical for calculating the distance 
     35                                                 ! to coast on the first depth. 
     36  REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: zdct! distance to coast field 
    3437 
    3538  ! Read namelist 
     
    4851  WRITE(numout, *) 'jpk = ',jpk 
    4952 
     53  ln_distcoast_calc=.true. 
     54 
    5055  ALLOCATE( resto(jpi, jpj) ) 
     56  ALLOCATE( zdct(jpi, jpj) ) 
    5157 
    5258  !Create output file 
     
    94100           IF (ln_coast) THEN 
    95101              ! Reduce damping in vicinity of coastlines 
    96               CALL coast_dist_weight(resto, ln_readdistcoast, jk) 
     102              CALL coast_dist_weight(resto, zdct, ln_readdistcoast, jk, ln_distcoast_calc) 
    97103           ENDIF 
    98104        ENDIF 
Note: See TracChangeset for help on using the changeset viewer.