Changeset 5022 for LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
- Timestamp:
- Jul 5, 2024, 4:38:48 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
r3815 r5022 21 21 z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, & 22 22 tsurf_new, dflux_s, dflux_l, & 23 flux_u1, flux_v1) 23 flux_u1, flux_v1 & 24 #ifdef ISO 25 & ,xtprecip_rain, xtprecip_snow,xtspechum,Roce, & 26 & xtsnow,xtsol,xtevap,Rland_ice & 27 #endif 28 & ) 24 29 25 30 USE dimphy … … 29 34 USE ocean_slab_mod, ONLY : ocean_slab_ice 30 35 USE indice_sol_mod 36 #ifdef ISO 37 USE infotrac_phy, ONLY : ntiso,niso 38 #endif 31 39 32 40 ! … … 62 70 REAL, DIMENSION(klon), INTENT(IN) :: u1, v1, gustiness 63 71 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf 72 #ifdef ISO 73 REAL, DIMENSION(ntiso,klon), INTENT(IN) :: xtprecip_rain, xtprecip_snow 74 REAL, DIMENSION(klon), INTENT(IN) :: xtspechum 75 REAL, DIMENSION(niso,klon), INTENT(IN) :: Roce 76 REAL, DIMENSION(niso,klon), INTENT(IN) :: Rland_ice 77 #endif 64 78 65 79 ! In/Output arguments … … 68 82 REAL, DIMENSION(klon), INTENT(INOUT) :: agesno 69 83 REAL, DIMENSION(klon, nsoilmx), INTENT(INOUT) :: tsoil 84 #ifdef ISO 85 REAL, DIMENSION(niso,klon), INTENT(INOUT) :: xtsnow 86 REAL, DIMENSION(niso,klon), INTENT(IN) :: xtsol 87 #endif 70 88 71 89 ! Output arguments … … 82 100 REAL, DIMENSION(klon), INTENT(OUT) :: dflux_s, dflux_l 83 101 REAL, DIMENSION(klon), INTENT(OUT) :: flux_u1, flux_v1 102 #ifdef ISO 103 REAL, DIMENSION(ntiso,klon), INTENT(OUT) :: xtevap 104 #endif 84 105 85 106 ! Local arguments 86 107 !**************************************************************************************** 87 108 REAL, DIMENSION(klon) :: radsol 109 #ifdef ISO 110 #ifdef ISOVERIF 111 INTEGER :: j 112 #endif 113 #endif 88 114 89 115 !albedo SB >>> … … 145 171 radsol, snow, qsol, agesno, tsoil, & 146 172 qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, & 147 tsurf_new, dflux_s, dflux_l, rhoa) 173 tsurf_new, dflux_s, dflux_l, rhoa & 174 #ifdef ISO 175 ,xtprecip_rain, xtprecip_snow, xtspechum,Roce, & 176 xtsnow, xtsol,xtevap,Rland_ice & 177 #endif 178 ) 148 179 149 180 END IF
Note: See TracChangeset
for help on using the changeset viewer.