Changeset 5937 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

Timestamp:

2015-11-27T13:58:10+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM --27-11-2015 -- MEDUSA-TOP debugg in MEDUSA iom_use adapt

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

@@ -23 +23 @@
    !! AXY (10/02/09)
    USE iom
-    USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag
-    USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag
+   !! USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag
+   !! USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag
 
    USE lbclnk
@@ -42 +42 @@
    !! AXY (10/02/09)
    LOGICAL, PUBLIC ::                  &
-      bdustfer = .TRUE.
+      bdustfer = .FALSE.
    REAL(wp), PUBLIC ::                 &
       sedfeinput = 1.e-9_wp  ,         &
@@ -185 +185 @@
                ENDIF    
                 
-                  .
             END DO
          END DO