Ignore:
Timestamp:
2019-05-22T22:44:28+02:00 (18 months ago)
Author:
rrenshaw
Message:

code fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis2/NEMOGCM/NEMO/OPA_SRC/DIA/diaregmean.F90

    r10974 r11038  
    9393      INTEGER               ::   BGC_nlevs,nBGC_output, bgci 
    9494      CHARACTER(len = 10), ALLOCATABLE, DIMENSION(:)       ::   BGC_stat_name(:),BGC_lev_name(:),BGC_output_var(:) 
    95 #endif 
    96  
    9795      ! 
    9896      NAMELIST/nam_diaregmean/ ln_diaregmean,ln_diaregmean_ascii,ln_diaregmean_bin,ln_diaregmean_nc,& 
    9997        & ln_diaregmean_karamld, ln_diaregmean_pea,ln_diaregmean_diaar5,ln_diaregmean_diasbc,ln_diaregmean_bgc 
     98      ln_diaregmean_bgc     = .FALSE.  ! don't write biogeochemistry regional means 
     99#else 
     100      NAMELIST/nam_diaregmean/ ln_diaregmean,ln_diaregmean_ascii,ln_diaregmean_bin,ln_diaregmean_nc,& 
     101        & ln_diaregmean_karamld, ln_diaregmean_pea,ln_diaregmean_diaar5,ln_diaregmean_diasbc 
     102#endif 
    100103       
    101104       
     
    105108      ! Defaults are generally negative, regional means output switched off 
    106109      ln_diaregmean         = .FALSE.  ! don't write regional means 
    107       ln_diaregmean_bgc     = .FALSE.  ! don't write biogeochemistry regional means 
    108110      ln_diaregmean_karamld = .FALSE.  ! don't write mixed layer depth 
    109111      ln_diaregmean_pea     = .FALSE.  ! don't write potential energy anomaly 
     
    133135          WRITE(numout,*) 'Switch for regmean AR5 SLR terms (T) or not (F)  ln_diaregmean_diaar5  = ', ln_diaregmean_diaar5 
    134136          WRITE(numout,*) 'Switch for regmean Surface forcing terms (T) or not (F)  ln_diaregmean_diasbc  = ', ln_diaregmean_diasbc 
    135           WRITE(numout,*) 'Switch for regmean BioGeoChemistry terms (T) or not (F)  ln_diaregmean_bgc  = ', ln_diaregmean_bgc 
     137!         WRITE(numout,*) 'Switch for regmean BioGeoChemistry terms (T) or not (F)  ln_diaregmean_bgc  = ', ln_diaregmean_bgc 
    136138      ENDIF 
    137139       
     
    275277          idmaskvar = iom_varid( inum, 'mask', kdimsz=zdimsz, kndims=zndims, ldstop = .FALSE.)           
    276278          nmasks = zdimsz(3) 
     279!         IF(lwp) WRITE(numout,*) 'dia_regmean found this many sets of regions : ', nmasks 
    277280           
    278281          ! read in the region mask (which contains floating point numbers) into a temporary array of reals. 
     
    972975 
    973976          IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean deallocated arrays for ',kt,maskno 
    974           IF(lwp)CALL FLUSH(numdct_reg_txt) 
     977          IF(lwp .AND. ln_diaregmean_ascii) CALL FLUSH(numdct_reg_txt) 
    975978          IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean flushed region mean text for ',kt,maskno 
    976979      END DO 
Note: See TracChangeset for help on using the changeset viewer.