Changeset 6157


Ignore:
Timestamp:
Apr 3, 2026, 5:45:58 PM (9 hours ago)
Author:
Sebastien Nguyen
Message:

restore missing end of isotopes_mod.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZISOdevSN/libf/phylmdiso/isotopes_mod.F90

    r6155 r6157  
    5252   !--- Variables not depending on isotopes
    5353   REAL,    SAVE :: thumxt1
    54    !$OMP THREADPRIVATE(thumxt1)
     54!$OMP THREADPRIVATE(thumxt1)
    5555   INTEGER, SAVE :: ntot
    5656!$OMP THREADPRIVATE(ntot)
    … …  
    412412         CALL msg('69: h_land_ice = '//TRIM(num2str(h_land_ice)),    modname)
    413413         CALL msg('69:      P_veg = '//TRIM(num2str(P_veg)),         modname)
     414!==============================================================================================================================
     415      ELSE
     416!==============================================================================================================================
     417         CALL abort_physic('"isotopes_mod" is not set up yet for isotopes family "'//TRIM(isoFamilies(ii))//'"', modname, 1)
     418!==============================================================================================================================
     419      END IF
     420!==============================================================================================================================
     421   END DO
    414422
    415423END SUBROUTINE iso_init
Note: See TracChangeset for help on using the changeset viewer.