Ignore:
Timestamp:
2019-12-16T14:36:58+01:00 (10 months ago)
Author:
cetlod
Message:

dev_r12072_MERGE_OPTION2_2019: Cleaning PISCES diagnostics output ; fully sette tested

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zbc.F90

    r12202 r12257  
    9797         ! 
    9898         IF( lk_iomput ) THEN 
    99            IF( iom_use( "Irondep" ) )   & 
    100              &  CALL iom_put( "Irondep", zirondep(:,:,1) * 1.e+3 * rfactr * e3t_n(:,:,1) * tmask(:,:,1) ) ! surface downward dust depo of iron 
    101            IF( iom_use( "pdust" ) )   & 
    102              &  CALL iom_put( "pdust"  , dust(:,:) / ( wdust * rday ) * tmask(:,:,1) ) ! dust concentration at surface 
     99             CALL iom_put( "Irondep", zirondep(:,:,1) * 1.e+3 * rfactr * e3t_n(:,:,1) * tmask(:,:,1) ) ! surface downward dust depo of iron 
     100             CALL iom_put( "pdust"  , dust(:,:) / ( wdust * rday ) * tmask(:,:,1) ) ! dust concentration at surface 
    103101         ENDIF 
    104102         DEALLOCATE( zirondep ) 
     
    157155         tra(:,:,1,jpfer) = tra(:,:,1,jpfer) + zironice(:,:) 
    158156         ! 
    159          IF( lk_iomput .AND. iom_use( "Ironice" ) )   & 
    160             &   CALL iom_put( "Ironice", zironice(:,:) * 1.e+3 * rfactr * e3t_n(:,:,1) * tmask(:,:,1) ) ! iron flux from ice 
     157         IF( lk_iomput )  CALL iom_put( "Ironice", zironice(:,:) * 1.e+3 * rfactr * e3t_n(:,:,1) * tmask(:,:,1) ) ! iron flux from ice 
    161158         ! 
    162159         DEALLOCATE( zironice ) 
     
    169166          tra(:,:,:,jpfer) = tra(:,:,:,jpfer) + ironsed(:,:,:) * rfact 
    170167          ! 
    171           IF( lk_iomput .AND. iom_use( "Ironsed" ) )   & 
    172                &   CALL iom_put( "Ironsed", ironsed(:,:,:) * 1.e+3 * tmask(:,:,:) )  
     168          IF( lk_iomput )  CALL iom_put( "Ironsed", ironsed(:,:,:) * 1.e+3 * tmask(:,:,:) )  
    173169      ENDIF 
    174170 
     
    185181         IF( ln_ligand ) tra(:,:,:,jplgw) = tra(:,:,:,jplgw) + ( hydrofe(:,:,:) * lgw_rath ) * rfact 
    186182         ! 
    187          IF( lk_iomput .AND. iom_use( "HYDR" ) )   & 
    188             &   CALL iom_put( "HYDR", hydrofe(:,:,:) * 1.e+3 * tmask(:,:,:) ) ! hydrothermal iron input 
     183         IF( lk_iomput ) CALL iom_put( "HYDR", hydrofe(:,:,:) * 1.e+3 * tmask(:,:,:) ) ! hydrothermal iron input 
    189184      ENDIF 
    190185      IF( ln_timing )  CALL timing_stop('p4z_bc') 
Note: See TracChangeset for help on using the changeset viewer.