Changeset 152 in lmdz_wrf
- Timestamp:
- Aug 5, 2014, 5:33:38 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90
r151 r152 1304 1304 1305 1305 ! L. Fita, LMD August 2014 1306 CHARACTER(LEN=50) :: errmsg, fname, varname 1306 CHARACTER(LEN=50) :: errmsg, fname, varnamechk 1307 1307 CHARACTER(LEN=50) :: jDS, jHS 1308 1308 LOGICAL :: found … … 1321 1321 1322 1322 fname = 'Entering in physic at day= '//TRIM(jDS)//' hour: '//TRIM(jHS) 1323 varname = 'paprs'1324 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)1325 varname = 'pplay'1326 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)1327 varname = 'pphi'1328 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)1329 varname = 't_seri'1330 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)1331 varname = 'u_seri'1332 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)1333 varname = 'v_seri'1334 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)1335 varname = 'q_seri'1336 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)1323 varnamechk = 'paprs' 1324 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 1325 varnamechk = 'pplay' 1326 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 1327 varnamechk = 'pphi' 1328 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 1329 varnamechk = 't_seri' 1330 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 1331 varnamechk = 'u_seri' 1332 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 1333 varnamechk = 'v_seri' 1334 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 1335 varnamechk = 'q_seri' 1336 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 1337 1337 1338 1338 … … 1877 1877 WRITE(jDS,'I5')itap 1878 1878 fname = 'After itap= '//TRIM(jDS) 1879 varname = 'paprs'1880 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)1881 varname = 'pplay'1882 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)1883 varname = 'pphi'1884 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)1885 varname = 't_seri'1886 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)1887 varname = 'u_seri'1888 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)1889 varname = 'v_seri'1890 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)1891 varname = 'q_seri'1892 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)1879 varnamechk = 'paprs' 1880 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 1881 varnamechk = 'pplay' 1882 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 1883 varnamechk = 'pphi' 1884 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 1885 varnamechk = 't_seri' 1886 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 1887 varnamechk = 'u_seri' 1888 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 1889 varnamechk = 'v_seri' 1890 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 1891 varnamechk = 'q_seri' 1892 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 1893 1893 1894 1894 !c … … 2008 2008 PRINT *,' Lluis 1 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 2009 2009 fname = 'After dynamic' 2010 varname = 'paprs'2011 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2012 varname = 'pplay'2013 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2014 varname = 'pphi'2015 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2016 varname = 't_seri'2017 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2018 varname = 'u_seri'2019 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2020 varname = 'v_seri'2021 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2022 varname = 'q_seri'2023 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2010 varnamechk = 'paprs' 2011 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2012 varnamechk = 'pplay' 2013 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2014 varnamechk = 'pphi' 2015 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2016 varnamechk = 't_seri' 2017 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2018 varnamechk = 'u_seri' 2019 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2020 varnamechk = 'v_seri' 2021 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2022 varnamechk = 'q_seri' 2023 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2024 2024 2025 2025 !c Diagnostiquer la tendance dynamique … … 2184 2184 PRINT *,' Lluis 2 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 2185 2185 fname = 'After reevap' 2186 varname = 'paprs'2187 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2188 varname = 'pplay'2189 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2190 varname = 'pphi'2191 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2192 varname = 't_seri'2193 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2194 varname = 'u_seri'2195 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2196 varname = 'v_seri'2197 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2198 varname = 'q_seri'2199 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2186 varnamechk = 'paprs' 2187 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2188 varnamechk = 'pplay' 2189 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2190 varnamechk = 'pphi' 2191 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2192 varnamechk = 't_seri' 2193 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2194 varnamechk = 'u_seri' 2195 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2196 varnamechk = 'v_seri' 2197 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2198 varnamechk = 'q_seri' 2199 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2200 2200 !c 2201 2201 !c========================================================================= … … 2305 2305 2306 2306 fname = 'After pbl_surface' 2307 varname = 'paprs'2308 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2309 varname = 'pplay'2310 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2311 varname = 'pphi'2312 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2313 varname = 't_seri'2314 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2315 varname = 'u_seri'2316 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2317 varname = 'v_seri'2318 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2319 varname = 'q_seri'2320 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2307 varnamechk = 'paprs' 2308 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2309 varnamechk = 'pplay' 2310 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2311 varnamechk = 'pphi' 2312 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2313 varnamechk = 't_seri' 2314 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2315 varnamechk = 'u_seri' 2316 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2317 varnamechk = 'v_seri' 2318 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2319 varnamechk = 'q_seri' 2320 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2321 2321 2322 2322 !----------------------------------------------------------------------------------------- … … 2351 2351 PRINT *,' Lluis 3 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 2352 2352 fname = 'After surface_main' 2353 varname = 'paprs'2354 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2355 varname = 'pplay'2356 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2357 varname = 'pphi'2358 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2359 varname = 't_seri'2360 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2361 varname = 'u_seri'2362 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2363 varname = 'v_seri'2364 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2365 varname = 'q_seri'2366 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2353 varnamechk = 'paprs' 2354 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2355 varnamechk = 'pplay' 2356 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2357 varnamechk = 'pphi' 2358 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2359 varnamechk = 't_seri' 2360 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2361 varnamechk = 'u_seri' 2362 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2363 varnamechk = 'v_seri' 2364 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2365 varnamechk = 'q_seri' 2366 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2367 2367 2368 2368 !c =================================================================== c … … 2728 2728 PRINT *,' Lluis 4 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 2729 2729 fname = 'After convection' 2730 varname = 'paprs'2731 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2732 varname = 'pplay'2733 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2734 varname = 'pphi'2735 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2736 varname = 't_seri'2737 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2738 varname = 'u_seri'2739 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2740 varname = 'v_seri'2741 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2742 varname = 'q_seri'2743 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2730 varnamechk = 'paprs' 2731 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2732 varnamechk = 'pplay' 2733 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2734 varnamechk = 'pphi' 2735 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2736 varnamechk = 't_seri' 2737 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2738 varnamechk = 'u_seri' 2739 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2740 varnamechk = 'v_seri' 2741 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2742 varnamechk = 'q_seri' 2743 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2744 2744 2745 2745 IF (check) THEN … … 2857 2857 PRINT *,' Lluis 5 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 2858 2858 fname = 'After wakes' 2859 varname = 'paprs'2860 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)2861 varname = 'pplay'2862 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)2863 varname = 'pphi'2864 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)2865 varname = 't_seri'2866 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)2867 varname = 'u_seri'2868 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)2869 varname = 'v_seri'2870 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)2871 varname = 'q_seri'2872 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)2859 varnamechk = 'paprs' 2860 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 2861 varnamechk = 'pplay' 2862 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 2863 varnamechk = 'pphi' 2864 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 2865 varnamechk = 't_seri' 2866 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 2867 varnamechk = 'u_seri' 2868 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 2869 varnamechk = 'v_seri' 2870 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 2871 varnamechk = 'q_seri' 2872 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 2873 2873 2874 2874 !c print*,'apres callwake iflag_cldcon=', iflag_cldcon … … 3100 3100 PRINT *,' Lluis 6 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 3101 3101 fname = 'After thermals' 3102 varname = 'paprs'3103 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)3104 varname = 'pplay'3105 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)3106 varname = 'pphi'3107 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)3108 varname = 't_seri'3109 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)3110 varname = 'u_seri'3111 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)3112 varname = 'v_seri'3113 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)3114 varname = 'q_seri'3115 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)3102 varnamechk = 'paprs' 3103 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 3104 varnamechk = 'pplay' 3105 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 3106 varnamechk = 'pphi' 3107 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 3108 varnamechk = 't_seri' 3109 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 3110 varnamechk = 'u_seri' 3111 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 3112 varnamechk = 'v_seri' 3113 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 3114 varnamechk = 'q_seri' 3115 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 3116 3116 3117 3117 !c------------------------------------------------------------------------- … … 3182 3182 PRINT *,' Lluis 7 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 3183 3183 fname = 'After firstilp' 3184 varname = 'paprs'3185 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)3186 varname = 'pplay'3187 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)3188 varname = 'pphi'3189 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)3190 varname = 't_seri'3191 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)3192 varname = 'u_seri'3193 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)3194 varname = 'v_seri'3195 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)3196 varname = 'q_seri'3197 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)3184 varnamechk = 'paprs' 3185 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 3186 varnamechk = 'pplay' 3187 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 3188 varnamechk = 'pphi' 3189 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 3190 varnamechk = 't_seri' 3191 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 3192 varnamechk = 'u_seri' 3193 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 3194 varnamechk = 'v_seri' 3195 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 3196 varnamechk = 'q_seri' 3197 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 3198 3198 3199 3199 if (mydebug) then … … 3430 3430 PRINT *,' Lluis 8 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 3431 3431 fname = 'After coupling convection+thermics+wakes' 3432 varname = 'paprs'3433 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)3434 varname = 'pplay'3435 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)3436 varname = 'pphi'3437 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)3438 varname = 't_seri'3439 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)3440 varname = 'u_seri'3441 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)3442 varname = 'v_seri'3443 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)3444 varname = 'q_seri'3445 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)3432 varnamechk = 'paprs' 3433 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 3434 varnamechk = 'pplay' 3435 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 3436 varnamechk = 'pphi' 3437 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 3438 varnamechk = 't_seri' 3439 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 3440 varnamechk = 'u_seri' 3441 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 3442 varnamechk = 'v_seri' 3443 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 3444 varnamechk = 'q_seri' 3445 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 3446 3446 3447 3447 !c … … 3815 3815 PRINT *,' Lluis 9 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 3816 3816 fname = 'After radiation' 3817 varname = 'paprs'3818 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)3819 varname = 'pplay'3820 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)3821 varname = 'pphi'3822 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)3823 varname = 't_seri'3824 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)3825 varname = 'u_seri'3826 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)3827 varname = 'v_seri'3828 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)3829 varname = 'q_seri'3830 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)3817 varnamechk = 'paprs' 3818 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 3819 varnamechk = 'pplay' 3820 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 3821 varnamechk = 'pphi' 3822 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 3823 varnamechk = 't_seri' 3824 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 3825 varnamechk = 'u_seri' 3826 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 3827 varnamechk = 'v_seri' 3828 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 3829 varnamechk = 'q_seri' 3830 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 3831 3831 3832 3832 !c … … 4006 4006 PRINT *,' Lluis 10 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 4007 4007 fname = 'after orography' 4008 varname = 'paprs'4009 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)4010 varname = 'pplay'4011 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)4012 varname = 'pphi'4013 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)4014 varname = 't_seri'4015 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)4016 varname = 'u_seri'4017 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)4018 varname = 'v_seri'4019 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)4020 varname = 'q_seri'4021 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)4008 varnamechk = 'paprs' 4009 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 4010 varnamechk = 'pplay' 4011 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 4012 varnamechk = 'pphi' 4013 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 4014 varnamechk = 't_seri' 4015 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 4016 varnamechk = 'u_seri' 4017 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 4018 varnamechk = 'v_seri' 4019 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 4020 varnamechk = 'q_seri' 4021 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 4022 4022 !c 4023 4023 !c … … 4133 4133 !c 4134 4134 fname = 'after phytrac' 4135 varname = 'paprs'4136 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)4137 varname = 'pplay'4138 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)4139 varname = 'pphi'4140 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)4141 varname = 't_seri'4142 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)4143 varname = 'u_seri'4144 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)4145 varname = 'v_seri'4146 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)4147 varname = 'q_seri'4148 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)4135 varnamechk = 'paprs' 4136 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 4137 varnamechk = 'pplay' 4138 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 4139 varnamechk = 'pphi' 4140 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 4141 varnamechk = 't_seri' 4142 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 4143 varnamechk = 'u_seri' 4144 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 4145 varnamechk = 'v_seri' 4146 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 4147 varnamechk = 'q_seri' 4148 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 4149 4149 4150 4150 !================================================================ … … 4161 4161 4162 4162 fname = 'after ener_conserv' 4163 varname = 'paprs'4164 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)4165 varname = 'pplay'4166 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)4167 varname = 'pphi'4168 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)4169 varname = 't_seri'4170 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)4171 varname = 'u_seri'4172 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)4173 varname = 'v_seri'4174 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)4175 varname = 'q_seri'4176 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)4177 varname = 'd_t_ec'4178 CALL check_var3D(fname, varname , d_t_ec, klon, klev, largest, .FALSE.)4163 varnamechk = 'paprs' 4164 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 4165 varnamechk = 'pplay' 4166 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 4167 varnamechk = 'pphi' 4168 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 4169 varnamechk = 't_seri' 4170 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 4171 varnamechk = 'u_seri' 4172 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 4173 varnamechk = 'v_seri' 4174 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 4175 varnamechk = 'q_seri' 4176 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 4177 varnamechk = 'd_t_ec' 4178 CALL check_var3D(fname, varnamechk, d_t_ec, klon, klev, largest, .FALSE.) 4179 4179 4180 4180 !IM … … 4202 4202 PRINT *,' Lluis 11 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy 4203 4203 fname = 'After everything, writting' 4204 varname = 'paprs'4205 CALL check_var3D(fname, varname , paprs, klon, klev+1, largest, .FALSE.)4206 varname = 'pplay'4207 CALL check_var3D(fname, varname , pplay, klon, klev, largest, .FALSE.)4208 varname = 'pphi'4209 CALL check_var3D(fname, varname , pphi, klon, klev, largest, .FALSE.)4210 varname = 't_seri'4211 CALL check_var3D(fname, varname , t_seri, klon, klev, largest, .FALSE.)4212 varname = 'u_seri'4213 CALL check_var3D(fname, varname , u_seri, klon, klev, largest, .FALSE.)4214 varname = 'v_seri'4215 CALL check_var3D(fname, varname , v_seri, klon, klev, largest, .FALSE.)4216 varname = 'q_seri'4217 CALL check_var3D(fname, varname , q_seri, klon, klev, largest, .FALSE.)4204 varnamechk = 'paprs' 4205 CALL check_var3D(fname, varnamechk, paprs, klon, klev+1, largest, .FALSE.) 4206 varnamechk = 'pplay' 4207 CALL check_var3D(fname, varnamechk, pplay, klon, klev, largest, .FALSE.) 4208 varnamechk = 'pphi' 4209 CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.) 4210 varnamechk = 't_seri' 4211 CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.) 4212 varnamechk = 'u_seri' 4213 CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.) 4214 varnamechk = 'v_seri' 4215 CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.) 4216 varnamechk = 'q_seri' 4217 CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.) 4218 4218 4219 4219 PRINT *,'Lluis Reaching the SORTIES point'
Note: See TracChangeset
for help on using the changeset viewer.