Ignore:
Timestamp:
May 20, 2019, 11:39:16 AM (5 years ago)
Author:
idelkadi
Message:

Implementation de la version cospv2 dans LMDZ (suite)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3511 r3512  
    16001600#ifdef CPP_COSP
    16011601      IF (ok_cosp) THEN
     1602           DO k = 1, klev
     1603             DO i = 1, klon
     1604               phicosp(i,k) = pphi(i,k) + pphis(i)
     1605             ENDDO
     1606           ENDDO
    16021607        CALL phys_cosp(itap,phys_tstep,freq_cosp, &
    16031608               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     
    16141619      ENDIF
    16151620#endif
     1621
     1622#ifdef CPP_COSP2
     1623        IF (ok_cosp) THEN
     1624           DO k = 1, klev
     1625             DO i = 1, klon
     1626               phicosp(i,k) = pphi(i,k) + pphis(i)
     1627             ENDDO
     1628           ENDDO
     1629          CALL phys_cosp2(itap,phys_tstep,freq_cosp, &
     1630               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     1631               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     1632               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
     1633               JrNt,ref_liq,ref_ice, &
     1634               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
     1635               zu10m,zv10m,pphis, &
     1636               zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
     1637               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
     1638               prfl(:,1:klev),psfl(:,1:klev), &
     1639               pmflxr(:,1:klev),pmflxs(:,1:klev), &
     1640               mr_ozone,cldtau, cldemi)
     1641       ENDIF
     1642#endif
     1643
     1644#ifdef CPP_COSPV2
     1645        IF (ok_cosp) THEN
     1646           DO k = 1, klev
     1647             DO i = 1, klon
     1648               phicosp(i,k) = pphi(i,k) + pphis(i)
     1649             ENDDO
     1650           ENDDO
     1651          CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
     1652               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     1653               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     1654               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
     1655               JrNt,ref_liq,ref_ice, &
     1656               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
     1657               zu10m,zv10m,pphis, &
     1658               phicosp,paprs(:,1:klev),pplay,zxtsol,t_seri, &
     1659               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
     1660               prfl(:,1:klev),psfl(:,1:klev), &
     1661               pmflxr(:,1:klev),pmflxs(:,1:klev), &
     1662               mr_ozone,cldtau, cldemi)
     1663       ENDIF
     1664#endif
     1665
    16161666       !
    16171667       !
Note: See TracChangeset for help on using the changeset viewer.