Ignore:
Timestamp:
2017-08-23T14:20:41+02:00 (3 years ago)
Author:
dford
Message:

Add pCO2/fCO2 assimilation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmbal.F90

    r8428 r8456  
    7474 
    7575         IF ( ln_logchlinc ) THEN 
    76 #if defined key_medusa && defined key_foam_medusa 
     76#if defined key_medusa 
    7777            CALL iom_rstput( kt, kt, inum, 'logchl_balinc_chn', logchl_balinc(:,:,:,jpchn) ) 
    7878            CALL iom_rstput( kt, kt, inum, 'logchl_balinc_chd', logchl_balinc(:,:,:,jpchd) ) 
     
    104104         ENDIF 
    105105 
     106         IF ( ln_pco2inc ) THEN 
     107#if defined key_medusa 
     108            CALL iom_rstput( kt, kt, inum, 'pco2_balinc_dic', pco2_balinc(:,:,:,jpdic) ) 
     109            CALL iom_rstput( kt, kt, inum, 'pco2_balinc_alk', pco2_balinc(:,:,:,jpalk) ) 
     110#elif defined key_hadocc 
     111            CALL iom_rstput( kt, kt, inum, 'pco2_balinc_dic', pco2_balinc(:,:,:,jp_had_dic) ) 
     112            CALL iom_rstput( kt, kt, inum, 'pco2_balinc_alk', pco2_balinc(:,:,:,jp_had_alk) ) 
     113#endif 
     114         ELSE IF ( ln_fco2inc ) THEN 
     115#if defined key_medusa 
     116            CALL iom_rstput( kt, kt, inum, 'fco2_balinc_dic', pco2_balinc(:,:,:,jpdic) ) 
     117            CALL iom_rstput( kt, kt, inum, 'fco2_balinc_alk', pco2_balinc(:,:,:,jpalk) ) 
     118#elif defined key_hadocc 
     119            CALL iom_rstput( kt, kt, inum, 'fco2_balinc_dic', pco2_balinc(:,:,:,jp_had_dic) ) 
     120            CALL iom_rstput( kt, kt, inum, 'fco2_balinc_alk', pco2_balinc(:,:,:,jp_had_alk) ) 
     121#endif 
     122         ENDIF 
     123 
    106124         CALL iom_close( inum ) 
    107125      ELSE 
Note: See TracChangeset for help on using the changeset viewer.