Changeset 9991 for branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.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/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (6 diffs)

branches/UKMO/dev_r5518_GO6_fix_key_comp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -78 +78 @@
                                             zfer, zpds, zphd, zphn, zsil,   &
                                             zzme, zzmi
-      USE dom_oce,                    ONLY: e3t_0, e3t_n,                   &
-                                            gdept_0, gdept_n,               &
-                                            gdepw_0, gdepw_n,               &
+      USE dom_oce,                    ONLY: e3t_0,                          &
+                                            gdept_0,                        &
+                                            gdepw_0,                        &
                                             nday_year, nsec_day,            &
                                             nyear, nyear_len, ndastp,       &
@@ -87 +87 @@
                                             njmpp 
       USE in_out_manager,             ONLY: lwp, numout, nn_date0
-# if defined key_iomput
       USE iom,                        ONLY: lk_iomput
-# endif
       USE lbclnk,                     ONLY: lbc_lnk
       USE lib_mpp,                    ONLY: mpp_max, mpp_maxloc,            & 
@@ -172 +170 @@
       !!
       !! time (integer timestep)
+      IMPLICIT NONE
       INTEGER, INTENT( in ) ::    kt
       !!
@@ -797 +796 @@
       !!
       !! temporary variables
+      IMPLICIT NONE
       REAL(wp), INTENT( in ), DIMENSION(3,3) :: tiny_var, tiny_mask
       CHARACTER(25), INTENT( in )            :: var_nm
@@ -883 +883 @@
       !!                     ALK appears.
       !!-------------------------------------
+      IMPLICIT NONE
       REAL(wp)              :: zmax, zmin    ! temporary scalars
       INTEGER               :: ji,jj         ! dummy loop
@@ -1002 +1003 @@
 CONTAINS
    SUBROUTINE trc_bio_medusa( kt )                   ! Empty routine
+      IMPLICIT NONE
       INTEGER, INTENT( in ) ::   kt
       WRITE(*,*) 'trc_bio_medusa: You should not have seen this print! error?', kt