Changeset 6097 for LMDZ6/trunk/libf

Timestamp:

Mar 11, 2026, 2:22:57 PM (5 weeks ago)

Author:

idelkadi

Message:

The intermediate version Cosp2 between Cospv1 and Cospv2 is no longer used (Cleaning of physiq_mod.F90).

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -4848 +4848 @@
        END IF
 
-       IF (CPPKEY_COSP2) THEN
-          IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
-
-             IF (prt_level .GE.10) THEN
-                print*,'freq_cosp',freq_cosp
-             ENDIF
-             mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
-             print*,'Dans physiq.F avant appel '
-             !     s        ref_liq,ref_ice
-             CALL phys_cosp2(itap,phys_tstep,freq_cosp, &
-                  ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
-                  ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
-                  klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
-                  JrNt,ref_liq,ref_ice, &
-                  pctsrf(:,is_ter)+pctsrf(:,is_lic), &
-                  zu10m,zv10m,pphis, &
-                  zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
-                  qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
-                  prfl(:,1:klev),psfl(:,1:klev), &
-                  pmflxr(:,1:klev),pmflxs(:,1:klev), &
-                  mr_ozone,cldtau, cldemi)
-          ENDIF
-       END IF
-
        IF (CPPKEY_COSPV2) THEN
           IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN