Changeset 5978 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

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

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (2 diffs)

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      !!