Changeset 6125 for LMDZ6/trunk/libf
- Timestamp:
- Mar 24, 2026, 10:56:41 AM (8 days ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 4 edited
-
phylmd/cosp/phys_cosp.f90 (modified) (4 diffs)
-
phylmd/cospv2/lmdz/lmdz_cosp_interface.F90 (modified) (4 diffs)
-
phylmd/physiq_mod.F90 (modified) (4 diffs)
-
phylmdiso/physiq_mod.F90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.f90
r5312 r6125 5 5 !Idelkadi Abderrahmane Nov 2015 version v1.4.0 6 6 7 subroutine phys_cosp( itap,dtime,freq_cosp, & 8 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 9 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 7 subroutine phys_cosp( itap,dtime,missing_val, & 10 8 Nptslmdz,Nlevlmdz,lon,lat, presnivs,overlaplmdz,sunlit, & 11 9 ref_liq,ref_ice,fracTerLic,u_wind,v_wind,phis,phi,ph,p,skt,t, & … … 79 77 USE mod_phys_lmdz_para 80 78 USE mod_grid_phy_lmdz 81 useioipsl82 useiophy83 usecosp_output_mod84 usecosp_output_write_mod79 USE ioipsl 80 USE iophy 81 USE cosp_output_mod 82 USE cosp_output_write_mod 85 83 ! use MOD_COSP_Modis_Simulator, only : cosp_modis 86 84 USE lmdz_xios, ONLY: xios_field_is_active, using_xios 87 use cosp_read_otputkeys 85 USE cosp_read_otputkeys 86 USE conf_phys_m, ONLY : freq_cosp, ecrit_day,ecrit_hf,ecrit_mth, & 87 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml 88 88 89 89 IMPLICIT NONE … … 132 132 ! Declaration necessaires pour les sorties IOIPSL 133 133 integer :: ii 134 real :: ecrit_day,ecrit_hf,ecrit_mth, missing_val 135 logical :: ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml 134 real :: missing_val 136 135 137 136 logical, save :: debut_cosp=.true. … … 150 149 real,dimension(Nlevlmdz) :: presnivs 151 150 integer :: itap,k,ip 152 real :: dtime ,freq_cosp151 real :: dtime 153 152 real,dimension(2) :: time_bnds 154 153 -
LMDZ6/trunk/libf/phylmd/cospv2/lmdz/lmdz_cosp_interface.F90
r6056 r6125 12 12 ! Interface ecrite par A.Idelkadi (11/2025) 13 13 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 14 subroutine lmdz_cosp_interface(itap, dtime, freq_cosp, ok_mensuelCOSP, ok_journeCOSP, & 15 ok_hfCOSP, ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml, & 14 subroutine lmdz_cosp_interface(itap, dtime, & 16 15 missing_val, Nptslmdz, Nlevlmdz, lon, lat, presnivs, & 17 16 overlaplmdz, sunlit, ref_liq, ref_ice, fracTerLic, & … … 70 69 use lmdz_cosp_subsample_and_optics_mod, only : subsample_and_optics 71 70 use lmdz_cosp_construct_destroy_mod 71 USE conf_phys_m, ONLY : freq_cosp, ecrit_day,ecrit_hf,ecrit_mth, & 72 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, ok_all_xml 72 73 73 74 !!! Modules faisant partie du code source de COSPv2 … … 147 148 148 149 ! Declaration necessaires pour les sorties IOIPSL 149 real :: ecrit_day, ecrit_hf, ecrit_mth, missing_val 150 logical :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml 150 real :: missing_val 151 151 logical, save :: debut_cosp=.true. 152 152 !$OMP THREADPRIVATE(debut_cosp) … … 173 173 real, dimension(Nlevlmdz) :: presnivs 174 174 integer :: itap, k, ip 175 real :: dtime , freq_cosp175 real :: dtime 176 176 real, dimension(2) :: time_bnds 177 177 -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r6124 r6125 1641 1641 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1642 1642 1643 CALL phys_cosp(itap,phys_tstep,freq_cosp, & 1644 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1645 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1643 CALL phys_cosp(itap,phys_tstep,missing_val, & 1646 1644 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1647 1645 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & … … 1661 1659 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1662 1660 1663 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 1664 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1665 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1661 CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, & 1666 1662 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1667 1663 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & … … 4786 4782 ! print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=', 4787 4783 ! s ref_liq,ref_ice 4788 CALL phys_cosp(itap,phys_tstep,freq_cosp, & 4789 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 4790 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 4784 CALL phys_cosp(itap,phys_tstep,missing_val, & 4791 4785 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 4792 4786 JrNt,ref_liq,ref_ice, & … … 4823 4817 print*,'Dans physiq.F avant appel ' 4824 4818 ! s ref_liq,ref_ice 4825 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 4826 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 4827 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 4819 CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, & 4828 4820 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 4829 4821 JrNt,ref_liq,ref_ice, & -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r6107 r6125 1765 1765 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1766 1766 1767 CALL phys_cosp(itap,phys_tstep,freq_cosp, & 1768 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1769 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1767 CALL phys_cosp(itap,phys_tstep,missing_val, & 1770 1768 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1771 1769 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & … … 1785 1783 mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0) 1786 1784 1787 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 1788 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 1789 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 1785 CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, & 1790 1786 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 1791 1787 JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, & … … 6391 6387 ! print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=', 6392 6388 ! s ref_liq,ref_ice 6393 CALL phys_cosp(itap,phys_tstep,freq_cosp, & 6394 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 6395 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 6389 CALL phys_cosp(itap,phys_tstep,missing_val, & 6396 6390 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 6397 6391 JrNt,ref_liq,ref_ice, & … … 6422 6416 print*,'Dans physiq.F avant appel ' 6423 6417 ! s ref_liq,ref_ice 6424 CALL phys_cosp2(itap,phys_tstep,freq_cosp, & 6425 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 6426 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 6418 CALL phys_cosp2(itap,phys_tstep,missing_val, & 6427 6419 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 6428 6420 JrNt,ref_liq,ref_ice, & … … 6452 6444 print*,'Dans physiq.F avant appel ' 6453 6445 ! s ref_liq,ref_ice 6454 CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, & 6455 ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, & 6456 ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, & 6446 CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, & 6457 6447 klon,klev,longitude_deg,latitude_deg,presnivs,overlap, & 6458 6448 JrNt,ref_liq,ref_ice, &
Note: See TracChangeset
for help on using the changeset viewer.
