Changeset 5978


Ignore:
Timestamp:
2015-12-02T13:33:32+01:00 (5 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:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r5941 r5978  
    6969# if defined key_iomput 
    7070      USE iom 
    71       !!USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag 
     71      USE trcnam_medusa                ! JPALM 13-11-2015 -- if iom_use for diag 
    7272      !!USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag 
    7373# endif 
     
    522522      !! ----------------------------- 
    523523      !! Juju :: add kt condition !! 
    524       IF( lk_iomput .AND. .NOT.  ln_diatrc ) THEN     
     524      IF( lk_iomput .AND. .NOT.  ln_diatrc ) THEN    
     525      !! 
     526      if ( kt == nittrc000 )   CALL trc_nam_iom_medusa !! initialise iom_use test 
     527      !! 
    525528      CALL wrk_alloc( jpi, jpj,      zw2d ) 
    526529      zw2d(:,:)      = 0.0      !! 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90

    r5841 r5978  
    3838   !! JPALM (14/09/15) 
    3939   LOGICAL, PUBLIC ::                  & 
    40       ln_ccd = .TRUE. 
     40      ln_ccd = .FALSE. 
    4141 
    4242   INTEGER ::                          & 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5939 r5978  
    491491         trc3d(:,:,:,:) = 0._wp  ;   ctrc3d(:) = ' '   ;   ctrc3l(:) = ' '    ;    ctrc3u(:) = ' '  
    492492         ! 
    493       ELSE IF  ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN 
    494          CALL trc_nam_iom_medusa 
     493      !! ELSE IF  ( lk_iomput .AND. lk_medusa .AND. .NOT. ln_diatrc) THEN 
     494      !!    CALL trc_nam_iom_medusa 
    495495      ENDIF 
    496496 
Note: See TracChangeset for help on using the changeset viewer.