Ignore:
Timestamp:
2019-02-25T15:19:53+01:00 (23 months 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/coast_dist.F90

    r10199 r10722  
    99   CONTAINS 
    1010 
    11    SUBROUTINE coast_dist_weight( presto, ln_read , klev )  
     11   SUBROUTINE coast_dist_weight( presto, zdct, ln_read , klev, ln_distcoast_calc )  
    1212      !!---------------------------------------------------------------------- 
    1313      !!                 *** ROUTINE coast_dist_weight *** 
     
    2020      IMPLICIT NONE 
    2121      REAL(wp), DIMENSION(jpi,jpj), INTENT( inout ) :: presto 
     22      REAL(wp), DIMENSION(jpi,jpj), INTENT( inout ) :: zdct 
    2223      LOGICAL, INTENT( in )                         :: ln_read 
    2324      INTEGER, INTENT( in )                         :: klev 
     25      LOGICAL, INTENT( inout )                      :: ln_distcoast_calc 
    2426      REAL(wp), DIMENSION(jpi,jpj) :: zdct 
    2527      REAL(wp) :: zinfl = 1000.e3_wp  ! Distance of influence of coast line (could be 
     
    3739      ELSE 
    3840 
    39          IF (klev == 1 ) THEN ! Since only a the surface distance to coast is used, only calculate once. 
     41         IF (ln_distcoast_calc ) THEN ! Since only the surface distance to coast is used, only calculate once. 
    4042            CALL cofdis( zdct ) 
     43            ln_distcoast_calc=.false. 
    4144         ENDIF 
    4245 
Note: See TracChangeset for help on using the changeset viewer.