Changeset 3370 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jul 14, 2018, 9:00:34 PM (6 years ago)

Author:

idelkadi

Message:

Implementation de COSPv2 dans LMDZ.

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1103 +1103 @@
     ! Declarations pour Simulateur COSP
     !============================================================
-#ifdef CPP_COSP
     real :: mr_ozone(klon,klev)
-#endif
+
     !IM stations CFMIP
     INTEGER, SAVE :: nCFMIP
@@ -4430 +4429 @@
 
        ENDIF
-
 #endif
+
+#ifdef CPP_COSP2
+       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).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,dtime,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
+#endif
+
     ENDIF  !ok_cosp