Changeset 3370


Ignore:
Timestamp:
Jul 14, 2018, 9:00:34 PM (6 years ago)
Author:
idelkadi
Message:

Implementation de COSPv2 dans LMDZ.

File:
1 edited

Legend:

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

    r3351 r3370  
    11031103    ! Declarations pour Simulateur COSP
    11041104    !============================================================
    1105 #ifdef CPP_COSP
    11061105    real :: mr_ozone(klon,klev)
    1107 #endif
     1106
    11081107    !IM stations CFMIP
    11091108    INTEGER, SAVE :: nCFMIP
     
    44304429
    44314430       ENDIF
    4432 
    44334431#endif
     4432
     4433#ifdef CPP_COSP2
     4434       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
     4435
     4436          IF (prt_level .GE.10) THEN
     4437             print*,'freq_cosp',freq_cosp
     4438          ENDIF
     4439          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
     4440                 print*,'Dans physiq.F avant appel '
     4441          !     s        ref_liq,ref_ice
     4442          CALL phys_cosp2(itap,dtime,freq_cosp, &
     4443               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     4444               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     4445               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
     4446               JrNt,ref_liq,ref_ice, &
     4447               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
     4448               zu10m,zv10m,pphis, &
     4449               zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
     4450               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
     4451               prfl(:,1:klev),psfl(:,1:klev), &
     4452               pmflxr(:,1:klev),pmflxs(:,1:klev), &
     4453               mr_ozone,cldtau, cldemi)
     4454       ENDIF
     4455#endif
     4456
    44344457    ENDIF  !ok_cosp
    44354458
Note: See TracChangeset for help on using the changeset viewer.