Ignore:
Timestamp:
Feb 25, 2026, 5:29:50 PM (4 weeks ago)
Author:
cpetetin
Message:

TITAN PCM : ccn moment first layer correction CP

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/muphytitan/mm_clouds.f90

    r3682 r4084  
    532532    INTEGER, PARAMETER                          :: ichx  = 1
    533533    matrix = 0._mm_wp ; nz = SIZE(rad) ; ALLOCATE(puit(nz))
    534     zsurf = mm_zlev(nz)
     534    zsurf = mm_zlev(nz+1)
    535535   
    536536    ! compute exchange matrix
Note: See TracChangeset for help on using the changeset viewer.