Changeset 9583 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF

Timestamp:

2018-05-15T11:50:19+02:00 (6 years ago)

Author:

frrh

Message:

Commit Stephen Haddad's
https://forge.ipsl.jussieu.fr/nemo/browser/branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix
revisions 9549:9582

Met Office GMED ticket 390 refers.

Location:

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF

Files:

• ldfdyn_smag.F90 (modified) (1 diff)
• ldftra_smag.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_smag.F90

@@ -294 +294 @@
 CONTAINS
    SUBROUTINE ldf_dyn_smag( kt )       ! Empty routine
+   IMPLICIT NONE
+      INTEGER :: kt                    ! timestep   
       WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt
    END SUBROUTINE ldf_dyn_smag

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90

@@ -204 +204 @@
 CONTAINS
    SUBROUTINE ldf_tra_smag( kt )       ! Empty routine
-      WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt
+   IMPLICIT NONE
+        INTEGER, INTENT( in ) ::   kt  ! ocean time-step inedx
+        WRITE(*,*) 'ldf_dyn_smag: You should not have seen this print! error? check keys ldf:c3d+smag', kt
    END SUBROUTINE ldf_tra_smag
 #endif