Changeset 53 in lmdz_wrf for branches/LMDZ_WRFmeas


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

Fixing mistakes

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r52 r53  
    333333
    334334! Local
    335   INTEGER                                                :: i, wrongi
     335  INTEGER                                                :: i, k, wrongi
    336336  CHARACTER(LEN=50)                                      :: errmsg
    337337  LOGICAL                                                :: found
    … …  
    367367    PRINT *,TRIM(errmsg)
    368368    PRINT *,"  at '" // TRIM(funcn) // "' variable '" //TRIM(varn)//                 &
    369       "' is wrong in Nvalues= ",wrongi,' at i k value___"
     369      "' is wrong in Nvalues= ",wrongi,' at i k value___'
    370370    DO i=1,wrongi
    371371      PRINT *,wronggridpt(i,:), wrongvalues(i)
Note: See TracChangeset for help on using the changeset viewer.