Changeset 4685


Ignore:
Timestamp:
Sep 11, 2023, 4:32:49 PM (8 months ago)
Author:
evignon
Message:

correction commit de ce matin pour les isotopes

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r4684 r4685  
    1 link ../phylmd/newmicro.F90
     1link ../phylmd/lmdz_cloud_optics_prop.F90

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

    r4671 r4685  
    7777    USE write_field_phy
    7878    USE wxios, ONLY: g_ctx, wxios_set_context, using_xios
     79    USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop
    7980    USE lmdz_lscp, ONLY : lscp
    8081    USE lmdz_lscp_old, ONLY : fisrtilp
    … …  
    55735574#endif
    55745575          ENDIF
    5575           CALL newmicro (flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
     5576          CALL cloud_optics_prop(flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
    55765577               paprs, pplay, t_seri, radocond, picefra, cldfra, &
    55775578               cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &
Note: See TracChangeset for help on using the changeset viewer.