Ignore:
Timestamp:
2018-02-16T18:31:39+01:00 (2 years ago)
Author:
dford
Message:

Add balancing code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_ersem_hem08/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

    r7731 r9331  
    5151#endif 
    5252   USE asminc, ONLY: ln_avgbkg 
     53#if defined key_fabm 
     54   USE trc, ONLY:           & ! HadOCC diagnostic variables 
     55      & pgrow_avg,          & 
     56      & ploss_avg,          & 
     57      & phyt_avg,           & 
     58      & mld_max 
     59#endif 
    5360   IMPLICIT NONE 
    5461   PRIVATE 
     
    196203#endif 
    197204               CALL iom_rstput( kt, nitavgbkg_r, inum, 'avt'    , avt_tavg) 
     205#if defined key_fabm 
     206               CALL iom_rstput( kt, nitavgbkg_r, inum, 'pgrow_avg'   , pgrow_avg             ) 
     207               CALL iom_rstput( kt, nitavgbkg_r, inum, 'ploss_avg'   , ploss_avg             ) 
     208               CALL iom_rstput( kt, nitavgbkg_r, inum, 'phyt_avg'    , phyt_avg              ) 
     209               CALL iom_rstput( kt, nitavgbkg_r, inum, 'mld_max'     , mld_max               ) 
     210#endif 
    198211               ! 
    199212            ELSE 
     
    219232#endif 
    220233               CALL iom_rstput( kt, nitbkg_r, inum, 'avt'    , avt               ) 
     234#if defined key_fabm 
     235               CALL iom_rstput( kt, nitbkg_r, inum, 'pgrow_avg'   , pgrow_avg             ) 
     236               CALL iom_rstput( kt, nitbkg_r, inum, 'ploss_avg'   , ploss_avg             ) 
     237               CALL iom_rstput( kt, nitbkg_r, inum, 'phyt_avg'    , phyt_avg              ) 
     238               CALL iom_rstput( kt, nitbkg_r, inum, 'mld_max'     , mld_max               ) 
     239#endif 
    221240               ! 
    222241            ENDIF 
Note: See TracChangeset for help on using the changeset viewer.