Ignore:
Timestamp:
Jan 19, 2026, 4:27:07 PM (3 months ago)
Author:
Sebastien Nguyen
Message:

update branch with modifications to compile and run with ICOSA_LMDZ

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/ICOLMDZISO_SN/libf/phylmdiso/isotrac_mod.F90

    r5754 r6036  
    1 #ifdef ISO
    2 #ifdef ISOTRAC
    3 
    41MODULE isotrac_mod
    52  USE infotrac_phy, ONLY: niso, ntiso, nzone, delPhase
    … …  
    161158   modname = 'iso_traceurs_init'
    162159   lerr = iso_eau == 0
    163    IF(lerr) CALL abort_physics(TRIM(modname)//' 18', 'isotrac does not work without H216O isotope', 1)
     160   IF(lerr) CALL abort_physic(TRIM(modname)//' 18', 'isotrac does not work without H216O isotope', 1)
    164161
    165162   !--- Initialize
    … …  
    677674
    678675END MODULE isotrac_mod
    679 #endif
    680 #endif
Note: See TracChangeset for help on using the changeset viewer.