Changeset 13505


Ignore:
Timestamp:
2020-09-23T11:43:55+02:00 (4 months ago)
Author:
dford
Message:

Get kd490 from spectral optical model.

Location:
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/par_fabm.F90

    r13489 r13505  
    3939                      jp_fabm_r8c,   jp_fabm_r8p,  & 
    4040                      jp_fabm_r8s,   jp_fabm_xeps, & 
    41                       jp_fabm_swr,                 & 
     41                      jp_fabm_swr,   jp_fabm_kd490, & 
    4242                      jp_fabm_pgrow, jp_fabm_ploss 
    4343 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcini_fabm.F90

    r13489 r13505  
    135135      jp_fabm_xeps  = fabm_diag_index( 'light_xEPS' ) 
    136136      jp_fabm_swr   = fabm_diag_index( 'light_swr_abs' ) 
     137      jp_fabm_kd490 = fabm_diag_index( 'light_Kd_band3' ) 
    137138      jp_fabm_pgrow = fabm_diag_index( 'p_grow_sum_result' ) 
    138139      jp_fabm_ploss = fabm_diag_index( 'p_loss_sum_result' ) 
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1_v2/NEMOGCM/NEMO/TOP_SRC/FABM/trcsms_fabm.F90

    r13489 r13505  
    577577      model%interior_diagnostic_variables(jp_fabm_o3ph)%save = .TRUE. 
    578578      model%interior_diagnostic_variables(jp_fabm_o3pc)%save = .TRUE. 
    579       model%interior_diagnostic_variables(jp_fabm_xeps)%save = .TRUE. 
    580579      model%interior_diagnostic_variables(jp_fabm_pgrow)%save = .TRUE. 
    581580      model%interior_diagnostic_variables(jp_fabm_ploss)%save = .TRUE. 
    582581      IF( ln_qsr_spec ) THEN 
    583582         model%interior_diagnostic_variables(jp_fabm_swr)%save = .TRUE. 
     583      ENDIF 
     584      IF ( jp_fabm_kd490 /= -1 ) THEN 
     585         model%interior_diagnostic_variables(jp_fabm_kd490)%save = .TRUE. 
     586      ENDIF 
     587      IF ( jp_fabm_xeps /= -1 ) THEN 
     588         model%interior_diagnostic_variables(jp_fabm_xeps)%save = .TRUE. 
    584589      ENDIF 
    585590      DO jn=1,size(model%horizontal_diagnostic_variables) 
Note: See TracChangeset for help on using the changeset viewer.