Changeset 2618 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF

Timestamp:

2011-02-26T13:31:38+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; move dyn allocation from nemogcm to module when possible (continuation)

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -1315 +1315 @@
       USE trc
       USE prtctl_trc          ! Print control
-      !! * Arguments
-      INTEGER ,                         INTENT( in    )  :: kt     ! ocean time-step index
-      !! * Local declarations
+      !
+      INTEGER, INTENT(in) ::   kt   ! ocean time-step index
+      !
       INTEGER  ::   ji, jj, jk, jn      ! Dummy loop indices
       REAL(wp) ::   ztra, zflx
@@ -1359 +1359 @@
       ENDIF
       !
+   END SUBROUTINE trc_kpp
+
+#else
+   !!----------------------------------------------------------------------
+   !!   NO 'key_top'           DUMMY routine                  No TOP models
+   !!----------------------------------------------------------------------
+   SUBROUTINE trc_kpp( kt )         ! Dummy routine
+      INTEGER, INTENT(in) ::   kt   ! ocean time-step index
+      WRITE(*,*) 'tra_kpp: You should not have seen this print! error?', kt
    END SUBROUTINE trc_kpp
 #endif