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

Timestamp:

Mar 27, 2026, 12:43:59 PM (2 weeks ago)

Author:

evignon

Message:

suppression de la routine nuage (et des parametres associes) devenue obsolete depuis avant LMDZ4

File:

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

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -34 +34 @@
     !                  elles foivent disparaitre de physiq_mod.F90
     USE conf_phys_m, ONLY : ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES
-    USE conf_phys_m, ONLY : ok_volcan, flag_volc_surfstrat, iflag_radia, facttemps, fact_cldcon, ok_newmicro, iflag_cld_th
+    USE conf_phys_m, ONLY : ok_volcan, flag_volc_surfstrat, iflag_radia, facttemps, fact_cldcon, iflag_cld_th
     USE conf_phys_m , ONLY : ok_ade, ok_aie, ok_alw, ok_cdnc, bl95_b0, bl95_b1
     USE conf_phys_m , ONLY : aerosol_couple
@@ -73 +73 @@
     USE netcdf95, ONLY: nf95_close
     USE netcdf, ONLY: nf90_fill_real     ! IM for NMC files
-    USE nuage_mod, ONLY: nuage, diagcld1, diagcld2
+    USE nuage_mod, ONLY: diagcld1, diagcld2
     USE open_climoz_m, ONLY: open_climoz ! ozone climatology from a file
     USE orbite_mod, ONLY: angle, orbite, zenang
@@ -1840 +1840 @@
        CALL gwd_ini(klon, klev, pplay, paprs, lunout, prt_level, RCPD, RD, RG, RPI, ROMEGA, RA, RKAPPA, RLVTT, ok_strato)
        ! Test de coherence sur oc_cdnc utilisé uniquement par cloud_optics_prop
-       IF (ok_newmicro) then
-          IF (iflag_rrtm.EQ.1) THEN
+       IF (iflag_rrtm.EQ.1) THEN
 #ifdef CPP_RRTM
              IF (ok_cdnc.AND.NRADLP.NE.3) THEN
@@ -1853 +1852 @@
              CALL abort_physic(modname,abort_message,1)
 #endif
-          ENDIF
        ENDIF
        CALL cloud_optics_prop_ini(klon, klev, prt_level, lunout, flag_aerosol, &
@@ -5136 +5134 @@
 
     IF (ok_bs .AND. ok_rad_bs) THEN
-       IF (ok_new_lscp .AND. ok_icefra_lscp) THEN
+     !  IF (ok_icefra_lscp) THEN
            DO k=1,klev
              DO i=1,klon
@@ -5145 +5143 @@
              ENDDO
            ENDDO
-       ELSE
-          WRITE(lunout,*)"PAY ATTENTION, you try to activate the radiative effect of blowing snow"
-          WRITE(lunout,*)"with ok_new_lscp=false and/or ok_icefra_lscp=false"
-          abort_message='inconsistency in cloud phase for blowing snow'
-          CALL abort_physic(modname,abort_message,1)
-       ENDIF
+      !ELSE
+      !    WRITE(lunout,*)"PAY ATTENTION, you try to activate the radiative effect of blowing snow"
+      !    WRITE(lunout,*)"with ok_new_lscp=false and/or ok_icefra_lscp=false"
+      !    abort_message='inconsistency in cloud phase for blowing snow'
+      !    CALL abort_physic(modname,abort_message,1)
+      ! ENDIF
 
     ENDIF
@@ -5765 +5763 @@
 
        !Rajout appel a interface calcul proprietes optiques des nuages
-       CALL call_cloud_optics_prop(klon, klev, ok_newmicro, &
+       CALL call_cloud_optics_prop(klon, klev, &
                paprs, pplay, t_seri, radocond, picefra, cldfra, &
                cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &
@@ -5774 +5772 @@
                reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra,  &
                zfice, dNovrN, ptconv, rnebcon, clwcon)
-       CALL call_cloud_optics_prop_post(ok_newmicro)
+       CALL call_cloud_optics_prop_post()
 
        !