Changeset 5978 for branches

Timestamp:

2015-12-02T13:33:32+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM --02-12-2015-- iom-use debugg - move trcnam_iom_medusa call in trcbio_medusa 1st tstp

Location:

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC

Files:

• MEDUSA/trcbio_medusa.F90 (modified) (2 diffs)
• MEDUSA/trcini_medusa.F90 (modified) (1 diff)
• trcnam.F90 (modified) (1 diff)

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

@@ -69 +69 @@
 # if defined key_iomput
       USE iom
-      !!USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag
+      USE trcnam_medusa                ! JPALM 13-11-2015 -- if iom_use for diag
       !!USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag
 # endif
@@ -522 +522 @@
       !! -----------------------------
       !! Juju :: add kt condition !!
-      IF( lk_iomput .AND. .NOT.  ln_diatrc ) THEN    
+      IF( lk_iomput .AND. .NOT.  ln_diatrc ) THEN   
+      !!
+      if ( kt == nittrc000 )   CALL trc_nam_iom_medusa !! initialise iom_use test
+      !!
       CALL wrk_alloc( jpi, jpj,      zw2d )
       zw2d(:,:)      = 0.0      !!

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

@@ -38 +38 @@
    !! JPALM (14/09/15)
    LOGICAL, PUBLIC ::                  &
-      ln_ccd = .TRUE.
+      ln_ccd = .FALSE.
 
    INTEGER ::                          &

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

@@ -491 +491 @@
          trc3d(:,:,:,:) = 0._wp  ;   ctrc3d(:) = ' '   ;   ctrc3l(:) = ' '    ;    ctrc3u(:) = ' ' 
          !
-      ELSE IF  ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN
-         CALL trc_nam_iom_medusa
+      !! ELSE IF  ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN
+      !!    CALL trc_nam_iom_medusa
       ENDIF