Changeset 9991 for branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

Timestamp:

2018-07-24T14:58:18+02:00 (6 years ago)

Author:

frrh

Message:

Fixes to allow MEDUSA to compile with C1D without
the need for multiple (apparently) unrelated CPP keys
merely to satisfy spurious code interdependencies.

File:

• branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

@@ -33 +33 @@
    USE wrk_nemo       ! Memory Allocation
    USE timing         ! Timing
+   USE phycst         ! Physical constants
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
    USE iom
@@ -71 +72 @@
       !!----------------------------------------------------------------------
       USE oce     , ONLY:   zwx => ua        , zwy => va          ! (ua,va) used as workspace
+      IMPLICIT NONE
       !
       INTEGER                              , INTENT(in   ) ::   kt              ! ocean time-step index
@@ -341 +343 @@
       USE oce     , ONLY:   zwx => ua        , zwy => va          ! (ua,va) used as workspace
       !
+      IMPLICIT NONE
       INTEGER                              , INTENT(in   ) ::   kt              ! ocean time-step index
       INTEGER                              , INTENT(in   ) ::   kit000          ! first time step index
@@ -652 +655 @@
       !!       in-space based differencing for fluid
       !!----------------------------------------------------------------------
+      IMPLICIT NONE
       REAL(wp), DIMENSION(jpk)         , INTENT(in   ) ::   p2dt            ! vertical profile of tracer time-step
       REAL(wp), DIMENSION (jpi,jpj,jpk), INTENT(in   ) ::   pbef, paft      ! before & after field