Changeset 4707 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Sep 25, 2023, 8:19:15 PM (12 months ago)

Author:

Laurent Fairhead

Message:

Continuing on from the morning's poihl workshop: getting rid of the includes in the routine

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -610 +610 @@
     !
     !
+    include "radepsi.h"
     include "radopt.h"
     !
@@ -1933 +1934 @@
        CALL cloud_optics_prop_ini(klon, prt_level, lunout, flag_aerosol, &
                                   & ok_cdnc, bl95_b0, &
-                                  & bl95_b1, latitude_deg)
+                                  & bl95_b1, latitude_deg, rpi, rg, rd, &
+                                  & zepsec, novlp, iflag_ice_thermo, ok_new_lscp)
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!