New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10077 – NEMO

Changeset 10077


Ignore:
Timestamp:
2018-08-31T17:31:58+02:00 (6 years ago)
Author:
dford
Message:

Fix for compiling with key_medusa but not key_foam_medusa.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_v3/NEMOGCM/NEMO/OPA_SRC/ASM/asmbgc.F90

    r10057 r10077  
    552552         chl_bkg(:,:,:)    = chl_bkg(:,:,:)    * tmask(:,:,:) 
    553553         cchl_p_bkg(:,:,:) = cchl_p_bkg(:,:,:) * tmask(:,:,:) 
    554 #elif defined key_medusa 
     554#elif defined key_medusa && defined key_foam_medusa 
    555555         CALL iom_get( inum, jpdom_autoglo, 'medusa_chn', tracer_bkg(:,:,:,jpchn) ) 
    556556         CALL iom_get( inum, jpdom_autoglo, 'medusa_chd', tracer_bkg(:,:,:,jpchd) ) 
     
    578578            CALL iom_get( inum, jpdom_autoglo, 'hadocc_dic', tracer_bkg(:,:,:,jp_had_dic) ) 
    579579            CALL iom_get( inum, jpdom_autoglo, 'hadocc_alk', tracer_bkg(:,:,:,jp_had_alk) ) 
    580 #elif defined key_medusa 
     580#elif defined key_medusa && defined key_foam_medusa 
    581581            CALL iom_get( inum, jpdom_autoglo, 'medusa_zmi', tracer_bkg(:,:,:,jpzmi) ) 
    582582            CALL iom_get( inum, jpdom_autoglo, 'medusa_zme', tracer_bkg(:,:,:,jpzme) ) 
     
    594594            CALL iom_get( inum, jpdom_autoglo, 'hadocc_dic', tracer_bkg(:,:,:,jp_had_dic) ) 
    595595            CALL iom_get( inum, jpdom_autoglo, 'hadocc_alk', tracer_bkg(:,:,:,jp_had_alk) ) 
    596 #elif defined key_medusa 
     596#elif defined key_medusa && defined key_foam_medusa 
    597597            CALL iom_get( inum, jpdom_autoglo, 'medusa_dic', tracer_bkg(:,:,:,jpdic) ) 
    598598            CALL iom_get( inum, jpdom_autoglo, 'medusa_alk', tracer_bkg(:,:,:,jpalk) ) 
     
    620620         CALL iom_get( inum, jpdom_autoglo, 'hadocc_dic', tracer_bkg(:,:,:,jp_had_dic) ) 
    621621         CALL iom_get( inum, jpdom_autoglo, 'hadocc_alk', tracer_bkg(:,:,:,jp_had_alk) ) 
    622 #elif defined key_medusa 
     622#elif defined key_medusa && defined key_foam_medusa 
    623623         CALL iom_get( inum, jpdom_autoglo, 'medusa_dic', tracer_bkg(:,:,:,jpdic) ) 
    624624         CALL iom_get( inum, jpdom_autoglo, 'medusa_alk', tracer_bkg(:,:,:,jpalk) ) 
     
    690690            & ln_schltotinc  .OR. ln_slphytotinc .OR. ln_slphydiainc .OR. & 
    691691            & ln_slphynoninc ) THEN 
    692 #if defined key_medusa 
     692#if defined key_medusa && defined key_foam_medusa 
    693693            CALL iom_rstput( kt, kt, inum, 'phy2d_chn', phyto2d_balinc(:,:,:,jpchn) ) 
    694694            CALL iom_rstput( kt, kt, inum, 'phy2d_chd', phyto2d_balinc(:,:,:,jpchd) ) 
     
    721721 
    722722         IF ( ln_plchltotinc .OR. ln_pchltotinc ) THEN 
    723 #if defined key_medusa 
     723#if defined key_medusa && defined key_foam_medusa 
    724724            CALL iom_rstput( kt, kt, inum, 'phy3d_chn', phyto3d_balinc(:,:,:,jpchn) ) 
    725725            CALL iom_rstput( kt, kt, inum, 'phy3d_chd', phyto3d_balinc(:,:,:,jpchd) ) 
     
    733733 
    734734         IF ( ln_spco2inc ) THEN 
    735 #if defined key_medusa 
     735#if defined key_medusa && defined key_foam_medusa 
    736736            CALL iom_rstput( kt, kt, inum, 'pco2_dic', pco2_balinc(:,:,:,jpdic) ) 
    737737            CALL iom_rstput( kt, kt, inum, 'pco2_alk', pco2_balinc(:,:,:,jpalk) ) 
     
    741741#endif 
    742742         ELSE IF ( ln_sfco2inc ) THEN 
    743 #if defined key_medusa 
     743#if defined key_medusa && defined key_foam_medusa 
    744744            CALL iom_rstput( kt, kt, inum, 'fco2_dic', pco2_balinc(:,:,:,jpdic) ) 
    745745            CALL iom_rstput( kt, kt, inum, 'fco2_alk', pco2_balinc(:,:,:,jpalk) ) 
     
    751751 
    752752         IF ( ln_pphinc ) THEN 
    753 #if defined key_medusa 
     753#if defined key_medusa && defined key_foam_medusa 
    754754            CALL iom_rstput( kt, kt, inum, 'ph_dic', ph_balinc(:,:,:,jpdic) ) 
    755755            CALL iom_rstput( kt, kt, inum, 'ph_alk', ph_balinc(:,:,:,jpalk) ) 
     
    990990         ! Select mixed layer 
    991991         IF ( ll_asmdin ) THEN 
    992 #if defined key_top 
     992#if defined key_top && ( defined key_hadocc || (defined key_medusa && defined key_foam_medusa) ) 
    993993            CALL ctl_warn( ' Doing direct initialisation with ocean colour assimilation', & 
    994994               &           ' Mixed layer depth taken to be background maximum mld_max_bkg' ) 
     
    13881388 
    13891389         IF ( ln_sfco2inc ) THEN 
    1390 #if defined key_medusa && defined key_roam 
     1390#if defined key_medusa && defined key_foam_medusa && defined key_roam 
    13911391            ! If assimilating fCO2, then convert to pCO2 using MEDUSA MOCSY subroutine 
    13921392            patm(1) = 1.0 
     
    14211421         ENDIF 
    14221422 
    1423 #if defined key_medusa 
     1423#if defined key_medusa && defined key_foam_medusa 
    14241424         ! Account for phytoplankton balancing if required 
    14251425         IF ( ln_phytobal ) THEN 
     
    18611861#if defined key_hadocc 
    18621862            it = jp_had_nut 
    1863 #elif defined key_medusa 
     1863#elif defined key_medusa && defined key_foam_medusa 
    18641864            it = jpdin 
    18651865#endif 
     
    19051905#if defined key_hadocc 
    19061906            it = jp_had_dic 
    1907 #elif defined key_medusa 
     1907#elif defined key_medusa && defined key_foam_medusa 
    19081908            it = jpdic 
    19091909#endif 
     
    19291929#if defined key_hadocc 
    19301930            it = jp_had_alk 
    1931 #elif defined key_medusa 
     1931#elif defined key_medusa && defined key_foam_medusa 
    19321932            it = jpalk 
    19331933#endif 
Note: See TracChangeset for help on using the changeset viewer.