- Timestamp:
- Nov 15, 2024, 10:40:14 AM (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/misc/lmdz_cosp_wrappers.F90
r5325 r5328 84 84 85 85 #endif 86 87 #ifndef COSPV2 88 89 subroutine lmdz_cosp_interface(itap, dtime, freq_cosp, ok_mensuelCOSP, ok_journeCOSP, & 90 ok_hfCOSP, ecrit_mth, ecrit_day, ecrit_hf, ok_all_xml, & 91 missing_val, Nptslmdz, Nlevlmdz, lon, lat, presnivs, & 92 overlaplmdz, sunlit, ref_liq, ref_ice, fracTerLic, & 93 u_wind, v_wind, phis, phi, ph, p, skt, t, sh, rh, & 94 tca, cca, mr_lsliq, mr_lsice, fl_lsrainI, fl_lssnowI, & 95 fl_ccrainI, fl_ccsnowI, mr_ozone, dtau_s, dem_s) 96 97 integer :: Nptslmdz, Nlevlmdz ! Nb de points issus de physiq.F 98 real :: ecrit_day, ecrit_hf, ecrit_mth, missing_val 99 logical :: ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP, ok_all_xml 100 integer :: overlaplmdz ! overlap type: 1=max, 101 ! 2=rand, 3=max/rand 102 real, dimension(Nptslmdz,Nlevlmdz) :: phi, p, ph, T, sh, rh, tca, cca, mr_lsliq, & 103 mr_lsice, mr_ccliq, mr_ccice, fl_lsrain, & 104 fl_lssnow, fl_ccrain, fl_ccsnow, fl_lsgrpl, & 105 zlev, zlev_half, mr_ozone, radliq, radice, & 106 dtau_s, dem_s, dtau_c, dem_c, ref_liq, ref_ice 107 real, dimension(Nptslmdz,Nlevlmdz) :: fl_lsrainI, fl_lssnowI, fl_ccrainI, fl_ccsnowI 108 real, dimension(Nptslmdz) :: lon, lat, skt, fracTerLic, u_wind, v_wind, & 109 phis, sunlit 110 real, dimension(Nptslmdz) :: land ! variables intermediaire pour masque TerLic 111 real, dimension(Nlevlmdz) :: presnivs 112 integer :: itap, k, ip 113 real :: dtime, freq_cosp 114 real, dimension(2) :: time_bnds 115 116 double precision :: d_dtime 117 double precision, dimension(2) :: d_time_bnds 118 119 120 CALL lmdz_cosp_wrapper_abort 121 122 end subroutine lmdz_cosp_interface 123 124 #endif
Note: See TracChangeset
for help on using the changeset viewer.