Changeset 7599 for branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

Timestamp:

2017-01-23T16:12:59+01:00 (8 years ago)

Author:

timgraham

Message:

Fully working version

File:

• branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90

@@ -31 +31 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE wrk_nemo        ! Memory allocation
+   USE iom
    USE timing          ! Timing
 
@@ -78 +79 @@
 
 #ifdef key_traldf_c2d
-      IF (kt == nit000) THEN
-         CALL iom_put( "aht2D", ahtw)
+      IF (kt == nit000)    CALL iom_put( "aht2D", ahtw)
 #endif