Changeset 5205 for LMDZ6


Ignore:
Timestamp:
Sep 20, 2024, 2:33:41 PM (4 hours ago)
Author:
Laurent Fairhead
Message:

Corrections to previous commit

Location:
LMDZ6/trunk/libf
Files:
2 added
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

    r5084 r5205  
    1313       ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
    1414       rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
    15        solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, rneb_ancien, &
     15       solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, &
    1616       wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
    1717       wake_deltaq, wake_deltat, wake_s, awake_s, wake_dens, &
    … …  
    921921        u_ancien(1,:)=u(:)
    922922        v_ancien(1,:)=v(:)
    923         rneb_ancien(1,:)=0.
    924923
    925924        u10m=0.

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

    r4933 r5205  
    99       ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
    1010       rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
    11        solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, rneb_ancien, &
     11       solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, &
    1212       wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
    1313       wake_deltaq, wake_deltat, wake_s, awake_s, wake_dens, &
    … …  
    679679        u_ancien(1,:)=u(:)
    680680        v_ancien(1,:)=v(:)
    681         rneb_ancien(1,:)=0.
    682681 
    683682        u10m=0.

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5204 r5205  
    15701570          abort_message='blowing snow cannot be activated with water isotopes yet'
    15711571          CALL abort_physic(modname,abort_message, 1)
    1572          IF ((ok_ice_supersat.AND.nqo .LT.6).OR.(.NOT.ok_ice_supersat.AND.nqo.LT.4)) THEN
     1572#endif
     1573         IF ((ok_ice_supersat.AND.nqo .LT.6).OR.(.NOT.ok_ice_supersat.AND.nqo.LT.5)) THEN
    15731574             WRITE (lunout, *) 'activation of blowing snow needs a specific H2O tracer', &
    15741575                               'but nqo=', nqo
    … …  
    50995100         prfl, psfl, rhcl,  &
    51005101         zqasc, fraca,ztv,zpspsk,ztla,zthl,iflag_cld_th, &
    5101          iflag_ice_thermo, distcltop, temp_cltop,
     5102         iflag_ice_thermo, distcltop, temp_cltop,  &
    51025103         pbl_tke(:,:,is_ave), pbl_eps(:,:,is_ave), &
    51035104         cell_area, &
Note: See TracChangeset for help on using the changeset viewer.