Ignore:
Timestamp:
Mar 27, 2023, 4:25:12 PM (18 months ago)
Author:
evignon
Message:

commission sur le melange turbulent et les cdrag suite au dernier atelier tke

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3839 r4478  
    103103      REAL, dimension(klon) :: te_zref_con, q_zref_con
    104104      REAL, dimension(klon) :: u_zref_c, te_zref_c, temp_c, q_zref_c
    105       REAL, dimension(klon) :: ok_pred, ok_corr
     105      REAL, dimension(klon) :: ok_pred, ok_corr, zri_zero
    106106!     REAL, dimension(klon) :: conv_te, conv_q
    107107!-------------------------------------------------------------------------
    … …  
    121121 &                   speed, t1, q1, z1, &
    122122 &                   psol, ts1, qsurf, z0m, z0h, &
     123 &                   zri_zero, 0, &
    123124 &                   cdram, cdrah, zri1, pref)
    124125
    … …  
    413414      REAL, dimension(klon) :: cdrm10m, cdrh10m, ri10m
    414415      REAL, dimension(klon) :: cdmn10m, cdhn10m, fm10m, fh10m
    415       REAL, dimension(klon) :: cdn2m, cdn1
     416      REAL, dimension(klon) :: cdn2m, cdn1, zri_zero
    416417      REAL :: CEPDUE,zdu2
    417418      INTEGER :: nzref, nz1
    … …  
    444445 &                   speed, t1, q1, z1, &
    445446 &                   psol, ts1, qsurf, z0m, z0h, &
     447 &                   zri_zero, 0, &
    446448 &                   cdram, cdrah, zri1, pref)
    447449
Note: See TracChangeset for help on using the changeset viewer.