Index: LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 =================================================================== --- LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (revision 5988) +++ LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (revision 5989) @@ -752,5 +752,4 @@ #endif USE print_control_mod, ONLY : prt_level - USE lmdz_checksum, ONLY : checksum USE mod_phys_lmdz_para, ONLY : is_master USE print_control_mod, ONLY: lunout @@ -1046,166 +1045,4 @@ - IF (is_master) WRITE(lunout,*) "****************** CHECKSUM IN ****************************" - CALL checksum("dtime", dtime) - CALL checksum("date0", date0) - CALL checksum("itap", itap) - CALL checksum("jour", jour) - CALL checksum("debut", debut) - CALL checksum("lafin", lafin) - CALL checksum("rlon", rlon) - CALL checksum("rlat", rlat) - CALL checksum("rugoro", rugoro) - CALL checksum("rmu0", rmu0) - CALL checksum("rain_f", rain_f) - CALL checksum("snow_f", snow_f) - CALL checksum("bs_f", bs_f) - CALL checksum("solsw_m", solsw_m) - CALL checksum("solswfdiff_m", solswfdiff_m) - CALL checksum("sollw_m", sollw_m) - CALL checksum("t", t) - CALL checksum("q", q) - CALL checksum("qbs", qbs) - CALL checksum("u", u) - CALL checksum("v", v) - CALL checksum("pplay", pplay) - CALL checksum("paprs", paprs) - CALL checksum("pctsrf", pctsrf) - CALL checksum("lwdown_m", lwdown_m) - CALL checksum("gustiness", gustiness) - CALL checksum("pphi", pphi) - CALL checksum("cldt", cldt) - CALL checksum("wake_dlt", wake_dlt) - CALL checksum("wake_dlq", wake_dlq) - CALL checksum("wake_s", wake_s) - CALL checksum("wake_cstar", wake_cstar) - CALL checksum("wake_dens", wake_dens) - CALL checksum("beta", beta) - CALL checksum("ts", ts) - CALL checksum("delta_tsurf", delta_tsurf) - CALL checksum("alb_dir", alb_dir) - CALL checksum("alb_dif", alb_dif) - CALL checksum("ustar", ustar) - CALL checksum("wstar", wstar) - CALL checksum("u10m", u10m) - CALL checksum("v10m", v10m) - CALL checksum("wake_dltke", wake_dltke) - CALL checksum("eps_x", eps_x) - CALL checksum("cdragh", cdragh) - CALL checksum("cdragm", cdragm) - CALL checksum("zu1", zu1) - CALL checksum("zv1", zv1) - CALL checksum("alb_dir_m", alb_dir_m) - CALL checksum("alb_dif_m", alb_dif_m) - CALL checksum("alb3_lic", alb3_lic) - CALL checksum("zxsens", zxsens) - CALL checksum("zxevap", zxevap) - CALL checksum("zxsnowerosion", zxsnowerosion) - CALL checksum("icesub_lic", icesub_lic) - CALL checksum("zxtsol", zxtsol) - CALL checksum("d_t_w", d_t_w) - CALL checksum("d_q_w", d_q_w) - CALL checksum("d_t_x", d_t_x) - CALL checksum("d_q_x", d_q_x) - CALL checksum("zxfluxlat", zxfluxlat) - CALL checksum("zt2m", zt2m) - CALL checksum("zn2mout", zn2mout) - CALL checksum("qsat2m", qsat2m) - CALL checksum("d_t", d_t) - CALL checksum("d_t_diss", d_t_diss) - CALL checksum("d_q", d_q) - CALL checksum("d_u", d_u) - CALL checksum("d_v", d_v) - CALL checksum("d_qbs", d_qbs) - CALL checksum("zcoefh", zcoefh) - CALL checksum("zcoefm", zcoefm) - CALL checksum("zxsens_x", zxsens_x) - CALL checksum("zxsens_w", zxsens_w) - CALL checksum("zxfluxlat_x", zxfluxlat_x) - CALL checksum("zxfluxlat_w", zxfluxlat_w) - CALL checksum("cdragh_x", cdragh_x) - CALL checksum("cdragh_w", cdragh_w) - CALL checksum("cdragm_x", cdragm_x) - CALL checksum("cdragm_w", cdragm_w) - CALL checksum("kh", kh) - CALL checksum("kh_x", kh_x) - CALL checksum("kh_w", kh_w) - CALL checksum("slab_wfbils", slab_wfbils) - CALL checksum("qsol", qsol) - CALL checksum("zq2m", zq2m) - CALL checksum("s_pblh", s_pblh) - CALL checksum("s_pblh_x", s_pblh_x) - CALL checksum("s_pblh_w", s_pblh_w) - CALL checksum("s_plcl", s_plcl) - CALL checksum("s_plcl_x", s_plcl_x) - CALL checksum("s_plcl_w", s_plcl_w) - CALL checksum("s_capCL", s_capCL) - CALL checksum("s_oliqCL", s_oliqCL) - CALL checksum("s_cteiCL", s_cteiCL) - CALL checksum("s_pblT", s_pblT) - CALL checksum("s_therm", s_therm) - CALL checksum("s_trmb1", s_trmb1) - CALL checksum("s_trmb2", s_trmb2) - CALL checksum("s_trmb3", s_trmb3) - CALL checksum("zustar", zustar) - CALL checksum("zu10m", zu10m) - CALL checksum("zv10m", zv10m) - CALL checksum("fder_print", fder_print) - CALL checksum("zxqsurf", zxqsurf) - CALL checksum("delta_qsurf", delta_qsurf) - CALL checksum("rh2m", rh2m) - CALL checksum("zxfluxu", zxfluxu) - CALL checksum("zxfluxv", zxfluxv) - CALL checksum("z0m", z0m) - CALL checksum("z0h", z0h) - CALL checksum("agesno", agesno) - CALL checksum("solsw", solsw) - CALL checksum("sollw", sollw) - CALL checksum("d_ts", d_ts) - CALL checksum("evap", evap) - CALL checksum("fluxlat", fluxlat) - CALL checksum("t2m", t2m) - CALL checksum("wfbils", wfbils) - CALL checksum("wfevap", wfevap) - CALL checksum("flux_t", flux_t) - CALL checksum("flux_u", flux_u) - CALL checksum("flux_v", flux_v) - CALL checksum("treedrg", treedrg) - CALL checksum("tsurf_tersrf", tsurf_tersrf) - CALL checksum("qsurf_tersrf", qsurf_tersrf) - CALL checksum("tsurf_new_tersrf", tsurf_new_tersrf) - CALL checksum("cdragm_tersrf", cdragm_tersrf) - CALL checksum("cdragh_tersrf", cdragh_tersrf) - CALL checksum("swnet_tersrf", swnet_tersrf) - CALL checksum("lwnet_tersrf", lwnet_tersrf) - CALL checksum("fluxsens_tersrf", fluxsens_tersrf) - CALL checksum("fluxlat_tersrf", fluxlat_tersrf) - CALL checksum("tsoil_tersrf", tsoil_tersrf) - CALL checksum("dflux_t", dflux_t) - CALL checksum("dflux_q", dflux_q) - CALL checksum("zxsnow", zxsnow) - CALL checksum("zxfluxt", zxfluxt) - CALL checksum("zxfluxq", zxfluxq) - CALL checksum("zxfluxqbs", zxfluxqbs) - CALL checksum("q2m", q2m) - CALL checksum("flux_q", flux_q) - CALL checksum("flux_qbs", flux_qbs) - CALL checksum("qsnow", qsnow) - CALL checksum("snowhgt", snowhgt) - CALL checksum("to_ice", to_ice) - CALL checksum("sissnow", sissnow) - CALL checksum("runoff", runoff) - CALL checksum("hice", hice) - CALL checksum("tice", tice) - CALL checksum("bilg_cumul", bilg_cumul) - CALL checksum("fcds", fcds) - CALL checksum("fcdi", fcdi) - CALL checksum("dh_basal_growth", dh_basal_growth) - CALL checksum("dh_basal_melt", dh_basal_melt) - CALL checksum("dh_top_melt", dh_top_melt) - CALL checksum("dh_snow2sic", dh_snow2sic) - CALL checksum("dtice_melt", dtice_melt) - CALL checksum("dtice_snow2sic", dtice_snow2sic) - CALL checksum("n2mout", n2mout) - CALL checksum("n2mout_x", n2mout_x) CALL pbl_surface_precall @@ -1376,164 +1213,4 @@ CALL pbl_surface_postcall - IF (is_master) WRITE(lunout,*) "****************** CHECKSUM OUT ****************************" - CALL checksum("dtime", dtime) - CALL checksum("date0", date0) - CALL checksum("itap", itap) - CALL checksum("jour", jour) - CALL checksum("debut", debut) - CALL checksum("lafin", lafin) - CALL checksum("rlon", rlon) - CALL checksum("rlat", rlat) - CALL checksum("rugoro", rugoro) - CALL checksum("rmu0", rmu0) - CALL checksum("rain_f", rain_f) - CALL checksum("snow_f", snow_f) - CALL checksum("bs_f", bs_f) - CALL checksum("solsw_m", solsw_m) - CALL checksum("solswfdiff_m", solswfdiff_m) - CALL checksum("sollw_m", sollw_m) - CALL checksum("t", t) - CALL checksum("q", q) - CALL checksum("qbs", qbs) - CALL checksum("u", u) - CALL checksum("v", v) - CALL checksum("pplay", pplay) - CALL checksum("paprs", paprs) - CALL checksum("pctsrf", pctsrf) - CALL checksum("lwdown_m", lwdown_m) - CALL checksum("gustiness", gustiness) - CALL checksum("pphi", pphi) - CALL checksum("cldt", cldt) - CALL checksum("wake_dlt", wake_dlt) - CALL checksum("wake_dlq", wake_dlq) - CALL checksum("wake_s", wake_s) - CALL checksum("wake_cstar", wake_cstar) - CALL checksum("wake_dens", wake_dens) - CALL checksum("beta", beta) - CALL checksum("ts", ts) - CALL checksum("delta_tsurf", delta_tsurf) - CALL checksum("alb_dir", alb_dir) - CALL checksum("alb_dif", alb_dif) - CALL checksum("ustar", ustar) - CALL checksum("wstar", wstar) - CALL checksum("u10m", u10m) - CALL checksum("v10m", v10m) - CALL checksum("wake_dltke", wake_dltke) - CALL checksum("eps_x", eps_x) - CALL checksum("cdragh", cdragh) - CALL checksum("cdragm", cdragm) - CALL checksum("zu1", zu1) - CALL checksum("zv1", zv1) - CALL checksum("alb_dir_m", alb_dir_m) - CALL checksum("alb_dif_m", alb_dif_m) - CALL checksum("alb3_lic", alb3_lic) - CALL checksum("zxsens", zxsens) - CALL checksum("zxevap", zxevap) - CALL checksum("zxsnowerosion", zxsnowerosion) - CALL checksum("icesub_lic", icesub_lic) - CALL checksum("zxtsol", zxtsol) - CALL checksum("d_t_w", d_t_w) - CALL checksum("d_q_w", d_q_w) - CALL checksum("d_t_x", d_t_x) - CALL checksum("d_q_x", d_q_x) - CALL checksum("zxfluxlat", zxfluxlat) - CALL checksum("zt2m", zt2m) - CALL checksum("zn2mout", zn2mout) - CALL checksum("qsat2m", qsat2m) - CALL checksum("d_t", d_t) - CALL checksum("d_t_diss", d_t_diss) - CALL checksum("d_q", d_q) - CALL checksum("d_u", d_u) - CALL checksum("d_v", d_v) - CALL checksum("d_qbs", d_qbs) - CALL checksum("zcoefh", zcoefh) - CALL checksum("zcoefm", zcoefm) - CALL checksum("zxsens_x", zxsens_x) - CALL checksum("zxsens_w", zxsens_w) - CALL checksum("zxfluxlat_x", zxfluxlat_x) - CALL checksum("zxfluxlat_w", zxfluxlat_w) - CALL checksum("cdragh_x", cdragh_x) - CALL checksum("cdragh_w", cdragh_w) - CALL checksum("cdragm_x", cdragm_x) - CALL checksum("cdragm_w", cdragm_w) - CALL checksum("kh", kh) - CALL checksum("kh_x", kh_x) - CALL checksum("kh_w", kh_w) - CALL checksum("slab_wfbils", slab_wfbils) - CALL checksum("qsol", qsol) - CALL checksum("zq2m", zq2m) - CALL checksum("s_pblh", s_pblh) - CALL checksum("s_pblh_x", s_pblh_x) - CALL checksum("s_pblh_w", s_pblh_w) - CALL checksum("s_plcl", s_plcl) - CALL checksum("s_plcl_x", s_plcl_x) - CALL checksum("s_plcl_w", s_plcl_w) - CALL checksum("s_capCL", s_capCL) - CALL checksum("s_oliqCL", s_oliqCL) - CALL checksum("s_cteiCL", s_cteiCL) - CALL checksum("s_pblT", s_pblT) - CALL checksum("s_therm", s_therm) - CALL checksum("s_trmb1", s_trmb1) - CALL checksum("s_trmb2", s_trmb2) - CALL checksum("s_trmb3", s_trmb3) - CALL checksum("zustar", zustar) - CALL checksum("zu10m", zu10m) - CALL checksum("zv10m", zv10m) - CALL checksum("fder_print", fder_print) - CALL checksum("zxqsurf", zxqsurf) - CALL checksum("delta_qsurf", delta_qsurf) - CALL checksum("rh2m", rh2m) - CALL checksum("zxfluxu", zxfluxu) - CALL checksum("zxfluxv", zxfluxv) - CALL checksum("z0m", z0m) - CALL checksum("z0h", z0h) - CALL checksum("agesno", agesno) - CALL checksum("solsw", solsw) - CALL checksum("sollw", sollw) - CALL checksum("d_ts", d_ts) - CALL checksum("evap", evap) - CALL checksum("fluxlat", fluxlat) - CALL checksum("t2m", t2m) - CALL checksum("wfbils", wfbils) - CALL checksum("wfevap", wfevap) - CALL checksum("flux_t", flux_t) - CALL checksum("flux_u", flux_u) - CALL checksum("flux_v", flux_v) - CALL checksum("treedrg", treedrg) - CALL checksum("tsurf_tersrf", tsurf_tersrf) - CALL checksum("qsurf_tersrf", qsurf_tersrf) - CALL checksum("tsurf_new_tersrf", tsurf_new_tersrf) - CALL checksum("cdragm_tersrf", cdragm_tersrf) - CALL checksum("cdragh_tersrf", cdragh_tersrf) - CALL checksum("swnet_tersrf", swnet_tersrf) - CALL checksum("lwnet_tersrf", lwnet_tersrf) - CALL checksum("fluxsens_tersrf", fluxsens_tersrf) - CALL checksum("fluxlat_tersrf", fluxlat_tersrf) - CALL checksum("tsoil_tersrf", tsoil_tersrf) - CALL checksum("dflux_t", dflux_t) - CALL checksum("dflux_q", dflux_q) - CALL checksum("zxsnow", zxsnow) - CALL checksum("zxfluxt", zxfluxt) - CALL checksum("zxfluxq", zxfluxq) - CALL checksum("zxfluxqbs", zxfluxqbs) - CALL checksum("q2m", q2m) - CALL checksum("flux_q", flux_q) - CALL checksum("flux_qbs", flux_qbs) - CALL checksum("qsnow", qsnow) - CALL checksum("snowhgt", snowhgt) - CALL checksum("to_ice", to_ice) - CALL checksum("sissnow", sissnow) - CALL checksum("runoff", runoff) - CALL checksum("hice", hice) - CALL checksum("tice", tice) - CALL checksum("bilg_cumul", bilg_cumul) - CALL checksum("fcds", fcds) - CALL checksum("fcdi", fcdi) - CALL checksum("dh_basal_growth", dh_basal_growth) - CALL checksum("dh_basal_melt", dh_basal_melt) - CALL checksum("dh_top_melt", dh_top_melt) - CALL checksum("dh_snow2sic", dh_snow2sic) - CALL checksum("dtice_melt", dtice_melt) - CALL checksum("dtice_snow2sic", dtice_snow2sic) END SUBROUTINE pbl_surface_main @@ -2484,5 +2161,4 @@ USE netcdf, only: missing_val_netcdf => nf90_fill_real USE yomcst_mod_h - USE lmdz_checksum, ONLY : checksum USE mod_phys_lmdz_para, ONLY : is_master USE cdrag_mod, ONLY : cdrag @@ -2981,6 +2657,4 @@ ytemp10=0 ; ytemp11=0 ; ytemp12=0 ; ytemp13=0 ; ytemp14=0 ; ytemp15=0 ; ytemp16=0 ; ytemp17=0 ; ytemp18=0 ; ytemp19=0 -!$gpum nocall checksum - IF (using_xios) THEN missing_val=missing_val_xios @@ -4037,5 +3711,4 @@ & ) - CALL checksum("yalb_dir_new_ocean",yalb_dir_new(1:knon,:)) IF (prt_level >=10) THEN print *,'arg de surf_ocean: ycdragh ',ycdragh(1:knon) @@ -4411,24 +4084,4 @@ IF (iflag_split .eq.0) THEN - IF (is_master) WRITE(lunout,*) "****** CHECKSUM IN ==> climb_wind_up *****" - CALL checksum("knon", knon) - CALL checksum("dtime", dtime) - CALL checksum("yu", yu(1:knon,:)) - CALL checksum("yv", yv(1:knon,:)) - CALL checksum("y_flux_u1", y_flux_u1(1:knon)) - CALL checksum("y_flux_v1", y_flux_v1(1:knon)) - CALL checksum("AcoefU", AcoefU(1:knon)) - CALL checksum("AcoefV", AcoefV(1:knon)) - CALL checksum("BcoefU", BcoefU(1:knon)) - CALL checksum("BcoefV", BcoefV(1:knon)) - CALL checksum("CcoefU", CcoefU(1:knon,:)) - CALL checksum("CcoefV", CcoefV(1:knon,:)) - CALL checksum("DcoefU", DcoefU(1:knon,:)) - CALL checksum("DcoefV", DcoefV(1:knon,:)) - CALL checksum("Kcoef_m", Kcoef_m(1:knon,:)) - CALL checksum("y_flux_u", y_flux_u(1:knon,:)) - CALL checksum("y_flux_v", y_flux_v(1:knon,:)) - CALL checksum("y_d_u", y_d_u(1:knon,:)) - CALL checksum("y_d_v", y_d_v(1:knon,:)) CALL climb_wind_up(knon, ni, dtime, yu, yv, y_flux_u1, y_flux_v1, & @@ -4438,25 +4091,4 @@ y_flux_u, y_flux_v, y_d_u, y_d_v) - IF (is_master) WRITE(lunout,*) "****** CHECKSUM OUT ==> climb_wind_up *****" - CALL checksum("knon", knon) - CALL checksum("dtime", dtime) - CALL checksum("yu", yu(1:knon,:)) - CALL checksum("yv", yv(1:knon,:)) - CALL checksum("y_flux_u1", y_flux_u1(1:knon)) - CALL checksum("y_flux_v1", y_flux_v1(1:knon)) - CALL checksum("AcoefU", AcoefU(1:knon)) - CALL checksum("AcoefV", AcoefV(1:knon)) - CALL checksum("BcoefU", BcoefU(1:knon)) - CALL checksum("BcoefV", BcoefV(1:knon)) - CALL checksum("CcoefU", CcoefU(1:knon,:)) - CALL checksum("CcoefV", CcoefV(1:knon,:)) - CALL checksum("DcoefU", DcoefU(1:knon,:)) - CALL checksum("DcoefV", DcoefV(1:knon,:)) - CALL checksum("Kcoef_m", Kcoef_m(1:knon,:)) - CALL checksum("y_flux_u", y_flux_u(1:knon,:)) - CALL checksum("y_flux_v", y_flux_v(1:knon,:)) - CALL checksum("y_d_u", y_d_u(1:knon,:)) - CALL checksum("y_d_v", y_d_v(1:knon,:)) - IF (is_master) WRITE(lunout,*) "***** CHECKSUM *******************************" y_d_t_diss(:,:)=0. @@ -4974,5 +4606,4 @@ IF (iflag_split .eq.0) THEN IF (iflag_new_t2mq2m==1) THEN - CALL checksum("yq2m_bis", yq2m(1:knon)) CALL stdlevvarn(knon, knon, nsrf, zxli, & @@ -4981,5 +4612,4 @@ yt2m, yq2m, yt10m, yq10m, yu10m, yustar, & yn2mout(:, :, :)) - CALL checksum("yq2m_bis", yq2m(1:knon)) ELSE @@ -5243,6 +4873,4 @@ !**************************************************************************************** ! ENDDO loop_nbsrf - CALL checksum("yeps",yeps) - CALL checksum("yq2m",yq2m) END SUBROUTINE pbl_surface_subsrf @@ -5385,5 +5013,4 @@ USE yomcst_mod_h USE ocean_forced_mod,ONLY : ocean_forced_ice_reset_bilg_cumul - USE lmdz_checksum, ONLY : checksum IMPLICIT NONE @@ -5727,8 +5354,4 @@ ENDIF ! iflag_order2_sollw == 1 -!$gpum nocall - CALL checksum("n2mout", n2mout) - CALL checksum("n2mout_x", n2mout_x) - IF (iflag_split .eq.0) THEN DO nsrf = 1, nbsrf Index: LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90 =================================================================== --- LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90 (revision 5988) +++ LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90 (revision 5989) @@ -325,5 +325,4 @@ USE yoethf_mod_h USE flux_arp_mod_h - USE lmdz_checksum IMPLICIT NONE !------------------------------------------------------------------------- @@ -435,25 +434,4 @@ INTEGER, dimension(klon, 6) :: n10mout -!$gpum nocall checksum - CALL checksum("u1", u1) - CALL checksum("v1", v1) - CALL checksum("t1", t1) - CALL checksum("q1", q1) - CALL checksum("z1", z1) - CALL checksum("ts1", ts1) - CALL checksum("qsurf", qsurf) - CALL checksum("z0m", z0m) - CALL checksum("z0h", z0h) - CALL checksum("psol", psol) - CALL checksum("pat1", pat1) - CALL checksum("t_2m", t_2m) - CALL checksum("q_2m", q_2m) - CALL checksum("t_10m", t_10m) - CALL checksum("q_10m", q_10m) - CALL checksum("u_10m", u_10m) - CALL checksum("ustar", ustar) - CALL checksum("s_pblh", s_pblh) - CALL checksum("prain", prain) - CALL checksum("tsol", tsol) !------------------------------------------------------------------------- @@ -776,24 +754,4 @@ ENDDO ! - CALL checksum("u1", u1) - CALL checksum("v1", v1) - CALL checksum("t1", t1) - CALL checksum("q1", q1) - CALL checksum("z1", z1) - CALL checksum("ts1", ts1) - CALL checksum("qsurf", qsurf) - CALL checksum("z0m", z0m) - CALL checksum("z0h", z0h) - CALL checksum("psol", psol) - CALL checksum("pat1", pat1) - CALL checksum("t_2m", t_2m) - CALL checksum("q_2m", q_2m) - CALL checksum("t_10m", t_10m) - CALL checksum("q_10m", q_10m) - CALL checksum("u_10m", u_10m) - CALL checksum("ustar", ustar) - CALL checksum("s_pblh", s_pblh) - CALL checksum("prain", prain) - CALL checksum("tsol", tsol) RETURN END subroutine stdlevvarn Index: LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90 =================================================================== --- LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90 (revision 5988) +++ LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90 (revision 5989) @@ -52,5 +52,4 @@ USE limit_read_mod, ONLY: limit_read_rug_alb USE config_ocean_skin_m, ONLY: activate_ocean_skin - USE lmdz_checksum, ONLY : checksum ! ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, @@ -190,5 +189,4 @@ REAL, DIMENSION(knon) :: yrlat ! compressed latitude !************************************************************************** -!$gpum nocall checksum #ifdef ISO @@ -352,7 +350,5 @@ !--albedo for direct and diffuse radiation are different ! - CALL checksum("yalb_dir_new_ocean",alb_dir_new(1:knon,:)) CALL ocean_albedo(knon,rmu0,knindex,windsp,SFRWL,alb_dir_new,alb_dif_new) - CALL checksum("yalb_dir_new_ocean",alb_dir_new(1:knon,:)) ! Index: LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90 =================================================================== --- LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90 (revision 5988) +++ LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90 (revision 5989) @@ -46,5 +46,4 @@ USE dimsoil_mod_h, ONLY: nsoilmx USE print_control_mod, ONLY: lunout -USE lmdz_checksum USE mod_phys_lmdz_para, ONLY : is_master @@ -179,61 +178,5 @@ ELSE ! type_ocean=force or slab +sicOBS or sicNO - IF (is_master) WRITE(lunout,*) "******* CHECKSUM ==> ocean_forced IN *******" -!$gpum nocall checksum - CALL checksum("itime", itime) - CALL checksum("dtime", dtime) - CALL checksum("jour", jour) - CALL checksum("knon", knon) - CALL checksum("knindex", knindex(1:knon)) - CALL checksum("tsurf", tsurf(1:knon)) - CALL checksum("p1lay", p1lay(1:knon)) - CALL checksum("cdragh", cdragh(1:knon)) - CALL checksum("cdragm", cdragm(1:knon)) - CALL checksum("precip_rain", precip_rain(1:knon)) - CALL checksum("precip_snow", precip_snow(1:knon)) - CALL checksum("temp_air", temp_air(1:knon)) - CALL checksum("spechum", spechum(1:knon)) - CALL checksum("AcoefH", AcoefH(1:knon)) - CALL checksum("AcoefQ", AcoefQ(1:knon)) - CALL checksum("BcoefH", BcoefH(1:knon)) - CALL checksum("BcoefQ", BcoefQ(1:knon)) - CALL checksum("AcoefU", AcoefU(1:knon)) - CALL checksum("AcoefV", AcoefV(1:knon)) - CALL checksum("BcoefU", BcoefU(1:knon)) - CALL checksum("BcoefV", BcoefV(1:knon)) - CALL checksum("ps", ps(1:knon)) - CALL checksum("u1", u1(1:knon)) - CALL checksum("v1", v1(1:knon)) - CALL checksum("gustiness", gustiness(1:knon)) - CALL checksum("pctsrf", pctsrf) - CALL checksum("radsol", radsol(1:knon)) - CALL checksum("snow", snow(1:knon)) - CALL checksum("qsol", qsol(1:knon)) - CALL checksum("agesno", agesno(1:knon)) - CALL checksum("tsoil", tsoil(1:knon,:)) - CALL checksum("qsurf", qsurf(1:knon)) - CALL checksum("alb1_new", alb1_new(1:knon)) - CALL checksum("alb2_new", alb2_new(1:knon)) - CALL checksum("evap", evap(1:knon)) - CALL checksum("fluxsens", fluxsens(1:knon)) - CALL checksum("fluxlat", fluxlat(1:knon)) - CALL checksum("flux_u1", flux_u1(1:knon)) - CALL checksum("flux_v1", flux_v1(1:knon)) - CALL checksum("tsurf_new", tsurf_new(1:knon)) - CALL checksum("dflux_s", dflux_s(1:knon)) - CALL checksum("dflux_l", dflux_l(1:knon)) - CALL checksum("rhoa", rhoa(1:knon)) - CALL checksum("swnet", swnet(1:knon)) - CALL checksum("hice", hice) - CALL checksum("tice", tice) - CALL checksum("bilg_cumul", bilg_cumul) - CALL checksum("fcds", fcds) - CALL checksum("fcdi", fcdi) - CALL checksum("dh_basal_growth", dh_basal_growth) - CALL checksum("dh_basal_melt", dh_basal_melt) - CALL checksum("dh_top_melt", dh_top_melt) - CALL checksum("dh_snow2sic", dh_snow2sic) - CALL checksum("dtice_melt", dtice_melt) - CALL checksum("dtice_snow2sic", dtice_snow2sic) + CALL ocean_forced_ice( & itime, dtime, jour, knon, knindex, & @@ -256,61 +199,4 @@ #endif ) - IF (is_master) WRITE(lunout,*) "******* CHECKSUM ==> ocean_forced OUT *******" - CALL checksum("itime", itime) - CALL checksum("dtime", dtime) - CALL checksum("jour", jour) - CALL checksum("knon", knon) - CALL checksum("knindex", knindex(1:knon)) - CALL checksum("tsurf", tsurf(1:knon)) - CALL checksum("p1lay", p1lay(1:knon)) - CALL checksum("cdragh", cdragh(1:knon)) - CALL checksum("cdragm", cdragm(1:knon)) - CALL checksum("precip_rain", precip_rain(1:knon)) - CALL checksum("precip_snow", precip_snow(1:knon)) - CALL checksum("temp_air", temp_air(1:knon)) - CALL checksum("spechum", spechum(1:knon)) - CALL checksum("AcoefH", AcoefH(1:knon)) - CALL checksum("AcoefQ", AcoefQ(1:knon)) - CALL checksum("BcoefH", BcoefH(1:knon)) - CALL checksum("BcoefQ", BcoefQ(1:knon)) - CALL checksum("AcoefU", AcoefU(1:knon)) - CALL checksum("AcoefV", AcoefV(1:knon)) - CALL checksum("BcoefU", BcoefU(1:knon)) - CALL checksum("BcoefV", BcoefV(1:knon)) - CALL checksum("ps", ps(1:knon)) - CALL checksum("u1", u1(1:knon)) - CALL checksum("v1", v1(1:knon)) - CALL checksum("gustiness", gustiness(1:knon)) - CALL checksum("pctsrf", pctsrf) - CALL checksum("radsol", radsol(1:knon)) - CALL checksum("snow", snow(1:knon)) - CALL checksum("qsol", qsol(1:knon)) - CALL checksum("agesno", agesno(1:knon)) - CALL checksum("tsoil", tsoil(1:knon,:)) - CALL checksum("qsurf", qsurf(1:knon)) - CALL checksum("alb1_new", alb1_new(1:knon)) - CALL checksum("alb2_new", alb2_new(1:knon)) - CALL checksum("evap", evap(1:knon)) - CALL checksum("fluxsens", fluxsens(1:knon)) - CALL checksum("fluxlat", fluxlat(1:knon)) - CALL checksum("flux_u1", flux_u1(1:knon)) - CALL checksum("flux_v1", flux_v1(1:knon)) - CALL checksum("tsurf_new", tsurf_new(1:knon)) - CALL checksum("dflux_s", dflux_s(1:knon)) - CALL checksum("dflux_l", dflux_l(1:knon)) - CALL checksum("rhoa", rhoa(1:knon)) - CALL checksum("swnet", swnet(1:knon)) - CALL checksum("hice", hice) - CALL checksum("tice", tice) - CALL checksum("bilg_cumul", bilg_cumul) - CALL checksum("fcds", fcds) - CALL checksum("fcdi", fcdi) - CALL checksum("dh_basal_growth", dh_basal_growth) - CALL checksum("dh_basal_melt", dh_basal_melt) - CALL checksum("dh_top_melt", dh_top_melt) - CALL checksum("dh_snow2sic", dh_snow2sic) - CALL checksum("dtice_melt", dtice_melt) - CALL checksum("dtice_snow2sic", dtice_snow2sic) - IF (is_master) WRITE(lunout,*) "******* CHECKSUM **************************" END IF