Changeset 9563 for branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90

Timestamp:

2018-05-08T15:48:00+02:00 (6 years ago)

Author:

stephenhaddad

Message:

MOCI #310: Update GO6 package branch to build with rigorous optimisation level compiler option.

File:

• branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_smag.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_rigorous_compile_fix/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
+        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