Changeset 160 in lmdz_wrf


Ignore:
Timestamp:
Aug 8, 2014, 12:01:55 PM (10 years ago)
Author:
lfita
Message:

brbrbrbrbr, adding ITNEGER kind to 'kthres'!

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

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/diagphy_mod.F90

    r159 r160  
    397397#include "dimensions.h"
    398398
    399   INTEGER, INTENT(IN)                                    :: sizev, zsize
     399  INTEGER, INTENT(IN)                                    :: sizev, zsize, kthres
    400400  CHARACTER(LEN=50), INTENT(IN)                          :: funcn, varn
    401401  REAL, DIMENSION(sizev,zsize), INTENT(IN)               :: var

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

    r159 r160  
    47544754#include "dimensions.h"
    47554755
    4756   INTEGER, INTENT(IN)                                    :: sizev, zsize
     4756  INTEGER, INTENT(IN)                                    :: sizev, zsize, kthres
    47574757  CHARACTER(LEN=50), INTENT(IN)                          :: funcn, varn
    47584758  REAL, DIMENSION(sizev,zsize), INTENT(IN)               :: var
Note: See TracChangeset for help on using the changeset viewer.