Changeset 152 in lmdz_wrf


Ignore:
Timestamp:
Aug 5, 2014, 5:33:38 PM (10 years ago)
Author:
lfita
Message:

Changing variable name 'varname' already existed!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90

    r151 r152  
    13041304
    13051305! L. Fita, LMD August 2014
    1306       CHARACTER(LEN=50)                                  :: errmsg, fname, varname
     1306      CHARACTER(LEN=50)                                  :: errmsg, fname, varnamechk
    13071307      CHARACTER(LEN=50)                                  :: jDS, jHS
    13081308      LOGICAL                                            :: found
     
    13211321
    13221322      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.)
    13371337
    13381338
     
    18771877      WRITE(jDS,'I5')itap
    18781878      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.)
    18931893
    18941894!c
     
    20082008      PRINT *,'  Lluis 1 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    20092009      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.)
    20242024
    20252025!c Diagnostiquer la tendance dynamique
     
    21842184      PRINT *,'  Lluis 2 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    21852185      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.)
    22002200!c
    22012201!c=========================================================================
     
    23052305
    23062306      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.)
    23212321
    23222322!-----------------------------------------------------------------------------------------
     
    23512351      PRINT *,'  Lluis 3 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    23522352      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.)
    23672367
    23682368!c =================================================================== c
     
    27282728      PRINT *,'  Lluis 4 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    27292729      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.)
    27442744
    27452745      IF (check) THEN
     
    28572857      PRINT *,'  Lluis 5 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    28582858      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.)
    28732873
    28742874!c      print*,'apres callwake iflag_cldcon=', iflag_cldcon
     
    31003100      PRINT *,'  Lluis 6 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    31013101      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.)
    31163116
    31173117!c-------------------------------------------------------------------------
     
    31823182      PRINT *,'  Lluis 7 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    31833183      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.)
    31983198
    31993199      if (mydebug) then
     
    34303430      PRINT *,'  Lluis 8 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    34313431      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.)
    34463446
    34473447!c
     
    38153815      PRINT *,'  Lluis 9 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    38163816      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.)
    38313831
    38323832!c
     
    40064006      PRINT *,'  Lluis 10 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    40074007      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.)
    40224022!c
    40234023!c
     
    41334133!c
    41344134      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.)
    41494149
    41504150!================================================================
     
    41614161
    41624162      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.)
    41794179
    41804180!IM
     
    42024202      PRINT *,'  Lluis 11 d_h_vcol: ',d_h_vcol,' d_h_vcol_phy: ',d_h_vcol_phy
    42034203      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.)
    42184218
    42194219      PRINT *,'Lluis Reaching the SORTIES point'
Note: See TracChangeset for help on using the changeset viewer.