Changeset 3491 for LMDZ6/trunk/libf


Ignore:
Timestamp:
May 2, 2019, 3:03:32 PM (6 years ago)
Author:
idelkadi
Message:

Integration of version 2 of the COSP simulator in LMDZ
This line, and those below, will be ignored--

M makegcm
M makelmdz
M makelmdz_fcm
M libf/phylmd/physiq_mod.F90
A libf/phylmd/cospv2
A libf/phylmd/cospv2/mo_rng.F90
A libf/phylmd/cospv2/quickbeam_optics.F90
A libf/phylmd/cospv2/cosp_cloudsat_interface.F90
A libf/phylmd/cospv2/cosp_config.F90
A libf/phylmd/cospv2/lidar_simulator.F90
A libf/phylmd/cospv2/prec_scops.F90
A libf/phylmd/cospv2/mrgrnk.F90
A libf/phylmd/cospv2/lmdz_cosp_read_outputkeys.F90
A libf/phylmd/cospv2/cosp_atlid_interface.F90
A libf/phylmd/cospv2/lmdz_cosp_subsample_and_optics_mod.F90
A libf/phylmd/cospv2/cosp_math_constants.F90
A libf/phylmd/cospv2/MISR_simulator.F90
A libf/phylmd/cospv2/modis_simulator.F90
A libf/phylmd/cospv2/math_lib.F90
A libf/phylmd/cospv2/cosp_grLidar532_interface.F90
A libf/phylmd/cospv2/cosp_errorHandling.F90
A libf/phylmd/cospv2/cosp_stats.F90
A libf/phylmd/cospv2/lmdz_cosp_output_write_mod.F90
A libf/phylmd/cospv2/cosp_utils.F90
A libf/phylmd/cospv2/cosp_optics.F90
A libf/phylmd/cospv2/icarus.F90
A libf/phylmd/cospv2/scops.F90
A libf/phylmd/cospv2/optics_lib.F90
A libf/phylmd/cospv2/cosp_kinds.F90
A libf/phylmd/cospv2/cosp_calipso_interface.F90
A libf/phylmd/cospv2/quickbeam.F90
A libf/phylmd/cospv2/parasol.F90
A libf/phylmd/cospv2/cosp_phys_constants.F90
A libf/phylmd/cospv2/cosp.F90
A libf/phylmd/cospv2/array_lib.F90
A libf/phylmd/cospv2/cosp_isccp_interface.F90
A libf/phylmd/cospv2/cosp_parasol_interface.F90
A libf/phylmd/cospv2/lmdz_cosp_construct_destroy_mod.F90
A libf/phylmd/cospv2/lmdz_cosp_output_mod.F90
A libf/phylmd/cospv2/lmdz_cosp_interface.F90
A libf/phylmd/cospv2/cosp_misr_interface.F90
A libf/phylmd/cospv2/cosp_modis_interface.F90

Location:
LMDZ6/trunk/libf/phylmd
Files:
38 added
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3490 r3491  
    45824582#endif
    45834583
     4584#ifdef CPP_COSPV2
     4585       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
     4586
     4587          IF (prt_level .GE.10) THEN
     4588             print*,'freq_cosp',freq_cosp
     4589          ENDIF
     4590          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
     4591                 print*,'Dans physiq.F avant appel '
     4592          !     s        ref_liq,ref_ice
     4593          CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
     4594               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     4595               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     4596               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
     4597               JrNt,ref_liq,ref_ice, &
     4598               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
     4599               zu10m,zv10m,pphis, &
     4600               zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
     4601               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
     4602               prfl(:,1:klev),psfl(:,1:klev), &
     4603               pmflxr(:,1:klev),pmflxs(:,1:klev), &
     4604               mr_ozone,cldtau, cldemi)
     4605       ENDIF
     4606#endif
     4607
    45844608    ENDIF  !ok_cosp
    45854609
Note: See TracChangeset for help on using the changeset viewer.