subroutine | myjsfc_wrapper_run (restart, im, levs, kdt, ntrac, ntke, ntcw, ntiw, ntrw, ntsw, ntgl, iter, flag_iter, ugrs, vgrs, tgrs, qgrs, prsl, prsi, phii, prsik_1, prslk_1, tsfc, qsfc, phy_myj_qsfc, phy_myj_thz0, phy_myj_qz0, phy_myj_uz0, phy_myj_vz0, phy_myj_z0base, phy_myj_akhs, phy_myj_akms, phy_myj_chkqlm, phy_myj_elflx, phy_myj_a1u, phy_myj_a1t, phy_myj_a1q, pblh, slmsk, zorl, ustar, rib, cm, ch, stress, ffm, ffh, fm10, fh2, landfrac, oceanfrac, fice, z0rl_wat, z0rl_lnd, z0rl_ice, ustar_wat, ustar_lnd, ustar_ice, cm_wat, cm_lnd, cm_ice, ch_wat, ch_lnd, ch_ice, rb_wat, rb_lnd, rb_ice, stress_wat, stress_lnd, stress_ice, fm_wat, fm_lnd, fm_ice, fh_wat, fh_lnd, fh_ice, fm10_wat, fm10_lnd, fm10_ice, fh2_wat, fh2_lnd, fh2_ice, wind, con_cp, con_g, con_rd, me, lprnt, errmsg, errflg) |