Changeset 5726 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2015-09-10T18:48:32+02:00 (9 years ago)

Author:

jpalmier

Message:

JPALM -- 10-09-2015 -- add MEDUSA in the branch ; adapted TOP_SRC to MEDUSA ; remove some svn keywords in the branch

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (3 diffs, 1 prop)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -21 +21 @@
    USE trcwri_c14b
    USE trcwri_my_trc
+   USE trcwri_medusa
 
    IMPLICIT NONE
@@ -57 +58 @@
       ! ---------------------------------------
       IF( lk_pisces  )   CALL trc_wri_pisces     ! PISCES 
+      !
+# if defined key_debug_medusa
+      CALL flush(numout)
+      IF (lwp) write (numout,*) '------------------------------'
+      IF (lwp) write (numout,*) 'Jpalm - debug'
+      IF (lwp) write (numout,*) 'Just before call trc_wri_medusa'
+      IF (lwp) write (numout,*) ' '
+      CALL flush(numout)
+# endif
+      !
+      IF( lk_medusa  )   CALL trc_wri_medusa     ! MESDUSA
+      !
+# if defined key_debug_medusa
+      CALL flush(numout)
+      IF (lwp) write (numout,*) '------------------------------'
+      IF (lwp) write (numout,*) 'Jpalm - debug'
+      IF (lwp) write (numout,*) 'CALL trc_wri_medusa -- OK'
+      IF (lwp) write (numout,*) ' '
+      CALL flush(numout)
+# endif
+      !
+      !!! JPALM
+      !!! don't forget to add idtra 
       IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC
       IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14
@@ -78 +102 @@
    !!----------------------------------------------------------------------
    !! NEMO/TOP 3.3 , NEMO Consortium (2010)
-   !! $Id$ 
+   !! $Id$
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!======================================================================