Changeset 6103


Ignore:
Timestamp:
Mar 13, 2026, 7:36:06 AM (3 days ago)
Author:
fhourdin
Message:

Correction changement appel à stratocu_if

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/calltherm_mod.F90

    r6099 r6103  
    169169#endif
    170170
    171     CALL stratocu_if(klon,klev,pctsrf,paprs, pplay,t_seri &
    172          ,seuil_inversion,weak_inversion,dthmin)
    173                                
    174 
    175171
    176172      u_seri(:,:)=u_seri_(:,:)
    … …  
    178174      t_seri(:,:)=t_seri_(:,:)
    179175      q_seri(:,:)=q_seri_(:,:)
     176
     177    CALL stratocu_if(klon,klev,pctsrf,paprs, pplay,t_seri &
     178         ,seuil_inversion,weak_inversion,dthmin)
     179                               
    180180
    181181
Note: See TracChangeset for help on using the changeset viewer.