Changeset 5989 for LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
- Timestamp:
- Dec 19, 2025, 7:10:55 PM (5 weeks ago)
- File:
-
- 1 edited
-
LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90 (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
r5965 r5989 46 46 USE dimsoil_mod_h, ONLY: nsoilmx 47 47 USE print_control_mod, ONLY: lunout 48 USE lmdz_checksum49 48 USE mod_phys_lmdz_para, ONLY : is_master 50 49 … … 179 178 ELSE ! type_ocean=force or slab +sicOBS or sicNO 180 179 181 IF (is_master) WRITE(lunout,*) "******* CHECKSUM ==> ocean_forced IN *******" 182 !$gpum nocall checksum 183 CALL checksum("itime", itime) 184 CALL checksum("dtime", dtime) 185 CALL checksum("jour", jour) 186 CALL checksum("knon", knon) 187 CALL checksum("knindex", knindex(1:knon)) 188 CALL checksum("tsurf", tsurf(1:knon)) 189 CALL checksum("p1lay", p1lay(1:knon)) 190 CALL checksum("cdragh", cdragh(1:knon)) 191 CALL checksum("cdragm", cdragm(1:knon)) 192 CALL checksum("precip_rain", precip_rain(1:knon)) 193 CALL checksum("precip_snow", precip_snow(1:knon)) 194 CALL checksum("temp_air", temp_air(1:knon)) 195 CALL checksum("spechum", spechum(1:knon)) 196 CALL checksum("AcoefH", AcoefH(1:knon)) 197 CALL checksum("AcoefQ", AcoefQ(1:knon)) 198 CALL checksum("BcoefH", BcoefH(1:knon)) 199 CALL checksum("BcoefQ", BcoefQ(1:knon)) 200 CALL checksum("AcoefU", AcoefU(1:knon)) 201 CALL checksum("AcoefV", AcoefV(1:knon)) 202 CALL checksum("BcoefU", BcoefU(1:knon)) 203 CALL checksum("BcoefV", BcoefV(1:knon)) 204 CALL checksum("ps", ps(1:knon)) 205 CALL checksum("u1", u1(1:knon)) 206 CALL checksum("v1", v1(1:knon)) 207 CALL checksum("gustiness", gustiness(1:knon)) 208 CALL checksum("pctsrf", pctsrf) 209 CALL checksum("radsol", radsol(1:knon)) 210 CALL checksum("snow", snow(1:knon)) 211 CALL checksum("qsol", qsol(1:knon)) 212 CALL checksum("agesno", agesno(1:knon)) 213 CALL checksum("tsoil", tsoil(1:knon,:)) 214 CALL checksum("qsurf", qsurf(1:knon)) 215 CALL checksum("alb1_new", alb1_new(1:knon)) 216 CALL checksum("alb2_new", alb2_new(1:knon)) 217 CALL checksum("evap", evap(1:knon)) 218 CALL checksum("fluxsens", fluxsens(1:knon)) 219 CALL checksum("fluxlat", fluxlat(1:knon)) 220 CALL checksum("flux_u1", flux_u1(1:knon)) 221 CALL checksum("flux_v1", flux_v1(1:knon)) 222 CALL checksum("tsurf_new", tsurf_new(1:knon)) 223 CALL checksum("dflux_s", dflux_s(1:knon)) 224 CALL checksum("dflux_l", dflux_l(1:knon)) 225 CALL checksum("rhoa", rhoa(1:knon)) 226 CALL checksum("swnet", swnet(1:knon)) 227 CALL checksum("hice", hice) 228 CALL checksum("tice", tice) 229 CALL checksum("bilg_cumul", bilg_cumul) 230 CALL checksum("fcds", fcds) 231 CALL checksum("fcdi", fcdi) 232 CALL checksum("dh_basal_growth", dh_basal_growth) 233 CALL checksum("dh_basal_melt", dh_basal_melt) 234 CALL checksum("dh_top_melt", dh_top_melt) 235 CALL checksum("dh_snow2sic", dh_snow2sic) 236 CALL checksum("dtice_melt", dtice_melt) 237 CALL checksum("dtice_snow2sic", dtice_snow2sic) 180 238 181 CALL ocean_forced_ice( & 239 182 itime, dtime, jour, knon, knindex, & … … 256 199 #endif 257 200 ) 258 IF (is_master) WRITE(lunout,*) "******* CHECKSUM ==> ocean_forced OUT *******"259 CALL checksum("itime", itime)260 CALL checksum("dtime", dtime)261 CALL checksum("jour", jour)262 CALL checksum("knon", knon)263 CALL checksum("knindex", knindex(1:knon))264 CALL checksum("tsurf", tsurf(1:knon))265 CALL checksum("p1lay", p1lay(1:knon))266 CALL checksum("cdragh", cdragh(1:knon))267 CALL checksum("cdragm", cdragm(1:knon))268 CALL checksum("precip_rain", precip_rain(1:knon))269 CALL checksum("precip_snow", precip_snow(1:knon))270 CALL checksum("temp_air", temp_air(1:knon))271 CALL checksum("spechum", spechum(1:knon))272 CALL checksum("AcoefH", AcoefH(1:knon))273 CALL checksum("AcoefQ", AcoefQ(1:knon))274 CALL checksum("BcoefH", BcoefH(1:knon))275 CALL checksum("BcoefQ", BcoefQ(1:knon))276 CALL checksum("AcoefU", AcoefU(1:knon))277 CALL checksum("AcoefV", AcoefV(1:knon))278 CALL checksum("BcoefU", BcoefU(1:knon))279 CALL checksum("BcoefV", BcoefV(1:knon))280 CALL checksum("ps", ps(1:knon))281 CALL checksum("u1", u1(1:knon))282 CALL checksum("v1", v1(1:knon))283 CALL checksum("gustiness", gustiness(1:knon))284 CALL checksum("pctsrf", pctsrf)285 CALL checksum("radsol", radsol(1:knon))286 CALL checksum("snow", snow(1:knon))287 CALL checksum("qsol", qsol(1:knon))288 CALL checksum("agesno", agesno(1:knon))289 CALL checksum("tsoil", tsoil(1:knon,:))290 CALL checksum("qsurf", qsurf(1:knon))291 CALL checksum("alb1_new", alb1_new(1:knon))292 CALL checksum("alb2_new", alb2_new(1:knon))293 CALL checksum("evap", evap(1:knon))294 CALL checksum("fluxsens", fluxsens(1:knon))295 CALL checksum("fluxlat", fluxlat(1:knon))296 CALL checksum("flux_u1", flux_u1(1:knon))297 CALL checksum("flux_v1", flux_v1(1:knon))298 CALL checksum("tsurf_new", tsurf_new(1:knon))299 CALL checksum("dflux_s", dflux_s(1:knon))300 CALL checksum("dflux_l", dflux_l(1:knon))301 CALL checksum("rhoa", rhoa(1:knon))302 CALL checksum("swnet", swnet(1:knon))303 CALL checksum("hice", hice)304 CALL checksum("tice", tice)305 CALL checksum("bilg_cumul", bilg_cumul)306 CALL checksum("fcds", fcds)307 CALL checksum("fcdi", fcdi)308 CALL checksum("dh_basal_growth", dh_basal_growth)309 CALL checksum("dh_basal_melt", dh_basal_melt)310 CALL checksum("dh_top_melt", dh_top_melt)311 CALL checksum("dh_snow2sic", dh_snow2sic)312 CALL checksum("dtice_melt", dtice_melt)313 CALL checksum("dtice_snow2sic", dtice_snow2sic)314 IF (is_master) WRITE(lunout,*) "******* CHECKSUM **************************"315 201 316 202 END IF
Note: See TracChangeset
for help on using the changeset viewer.
