Changeset 4099 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Mar 4, 2026, 12:13:54 PM (5 weeks ago)
Author:
cpetetin
Message:

TITAN PCM : correction for haze diagnostics CP

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4038 r4099  
    140140      ! Optical diagnostics
    141141      ! Haze
    142       REAL*8 diag_opthi(L_LEVELS,L_NSPECTI,3)
    143       REAL*8 diag_opthv(L_LEVELS,L_NSPECTV,3)
     142      REAL*8 diag_opthi(L_LEVELS,L_NSPECTI,6)
     143      REAL*8 diag_opthv(L_LEVELS,L_NSPECTV,6)
    144144      ! Clouds
    145145      REAL*8 diag_optti(L_LEVELS,L_NSPECTI,3)
Note: See TracChangeset for help on using the changeset viewer.