Ignore:
Timestamp:
Sep 8, 2023, 9:51:45 AM (8 months ago)
Author:
fhourdin
Message:

Correction isotopes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_main.F90

    r4678 r4680  
    568568          if (iso_eau.gt.0) then
    569569              call iso_verif_egalite(xtpo(iso_eau,ig,ll), &
    570      &          po(ig,ll),'thermcell_main 594')
     570     &          p_o(ig,ll),'thermcell_main 594')
    571571              call iso_verif_egalite(xtpdoadj(iso_eau,ig,ll), &
    572572     &          pdoadj(ig,ll),'thermcell_main 596')
Note: See TracChangeset for help on using the changeset viewer.