Changeset 89 in lmdz_wrf for branches


Ignore:
Timestamp:
Jul 25, 2014, 12:26:44 PM (10 years ago)
Author:
lfita
Message:

Fixing bad dimension size in check_var3D
Initializing 'pbl_tke_max0' in thermcell_main

Location:
branches/LMDZ_WRFmeas/WRFV3/lmdz
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

    r88 r89  
    44664466  LOGICAL                                                :: found
    44674467  REAL, DIMENSION(sizev*zsize)                           :: wrongvalues
    4468   INTEGER, DIMENSION(sizev,2)                            :: wronggridpt
     4468  INTEGER, DIMENSION(sizev*zsize,2)                      :: wronggridpt
    44694469
    44704470!!!!!!! Variables

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

    r88 r89  
    262262! L. Fita, LMD July 2014. Initializing variables
    263263     zdthladj = 0.
     264     pbl_tke_max0 = 0.
    264265
    265266!-----------------------------------------------------------------------
    … …  
    997998  ENDIF ! iflag_trig_bl
    998999!  print *,'ENDIF  iflag_trig_bl'    !!jyg
    999       lfname='before closure'
     1000      lfname='thermcell_main before closure'
    10001001      lvarname = 'pt'
    10011002      CALL check_var3D(lfname, lvarname, pt, klon, klev, largest, .FALSE.)
    … …  
    11821183      lfname='thermcell_main last computations on Alp_bl'
    11831184      lvarname = 'alp_int'
    1184       CALL check_var(lfname, lvarname, alp_int, klon, largest, .FALSE.)
     1185      CALL check_var(lfname, lvarname, alp_int, klon, largest*10.e4, .FALSE.)
    11851186      lvarname = 'dp_int'
    11861187      CALL check_var3D(lfname, lvarname, dp_int, klon, largest, .FALSE.)
Note: See TracChangeset for help on using the changeset viewer.