Changeset 9323


Ignore:
Timestamp:
2018-02-12T14:48:39+01:00 (2 years ago)
Author:
jpalmier
Message:

update atm xCO2 check print

File:
1 edited

Legend:

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

    r9310 r9323  
    116116      USE bio_medusa_diag_slice_mod,  ONLY: bio_medusa_diag_slice 
    117117      USE bio_medusa_fin_mod,         ONLY: bio_medusa_fin 
     118      USE trcstat,                    ONLY: trc_rst_dia_stat 
    118119 
    119120      IMPLICIT NONE 
     
    348349         ENDIF 
    349350      ENDIF 
    350       IF ( ( kt == nittrc000 ) .AND. lwp )   &  
    351             WRITE(numout,*) ' final atm xCO2   =', f_xco2a(1,1) 
     351      IF ( lwp .AND. ( ( kt == nittrc000 ) .OR.                   & 
     352              ((86400*mod(nn_date0,100) + mod(kt*rdt,2592000.)) == rdt) ) ) THEN 
     353            WRITE(numout,*) ' *** final atm xCO2 ***' 
     354            call trc_rst_dia_stat(f_xco2a(:,:), 'atm xCO2') 
     355      ENDIF 
    352356# endif 
    353357 
Note: See TracChangeset for help on using the changeset viewer.