Changeset 54 in lmdz_wrf for branches/LMDZ_WRFmeas


Ignore:
Timestamp:
Jul 23, 2014, 5:27:46 PM (10 years ago)
Author:
lfita
Message:

Fixing array issues

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r53 r54  
    328328  INTEGER, INTENT(IN)                                    :: sizev, zsize
    329329  CHARACTER(LEN=50), INTENT(IN)                          :: funcn, varn
    330   REAL, DIMENSION(sizev), INTENT(IN)                     :: var
     330  REAL, DIMENSION(sizev,zsize), INTENT(IN)               :: var
    331331  REAL, INTENT(IN)                                       :: bigvalue
    332332  LOGICAL, INTENT(IN)                                    :: stoprun
    … …  
    336336  CHARACTER(LEN=50)                                      :: errmsg
    337337  LOGICAL                                                :: found
    338   REAL, DIMENSION(sizev,zsize)                           :: wrongvalues
     338  REAL, DIMENSION(sizev*zsize)                           :: wrongvalues
    339339  INTEGER, DIMENSION(sizev,2)                            :: wronggridpt
    340340
Note: See TracChangeset for help on using the changeset viewer.