Ignore:
Timestamp:
Mar 25, 2026, 2:01:37 PM (3 weeks ago)
Author:
aarfaux
Message:

Titan PCM:

Add a correction to the shortwave heating rates based on htrdr calculations, and
additional related modifications.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/callkeys_mod.F90

    r4047 r4153  
    44      logical,save :: callrad,corrk,calldifv,UseTurbDiff
    55!$OMP THREADPRIVATE(callrad,corrk,calldifv,UseTurbDiff)
     6      logical,save :: corrhtrdr, updatecorrhtrdr
     7!$OMP THREADPRIVATE(corrhtrdr,updatecorrhtrdr)
    68      logical,save :: calladj,callsoil
    79!$OMP THREADPRIVATE(calladj,callsoil)
Note: See TracChangeset for help on using the changeset viewer.