Changeset 173 in lmdz_wrf for branches/LMDZ_WRFmeas_develop/WRFV3


Ignore:
Timestamp:
Aug 12, 2014, 11:30:28 AM (10 years ago)
Author:
lfita
Message:

Recycling code.... changing for the right variable

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r172 r173  
    9191!c     call histclo(4)
    9292!c     call histclo(5)
    93       ypt = INT(wronggridpt(i,1)/wiim) + 1
    94       xpt = wronggridpt(i,1) - (ypt-1)*wiim
     93      ypt = INT(pk/wiim) + 1
     94      xpt = pk - (ypt-1)*wiim
    9595
    9696      write(lunout,*) 'Stopping in ', modname
    … …  
    151151!c     call histclo(4)
    152152!c     call histclo(5)
    153       ypt = INT(wronggridpt(i,1)/wiim) + 1
    154       xpt = wronggridpt(i,1) - (ypt-1)*wiim
     153      ypt = INT(pk/wiim) + 1
     154      xpt = pk - (ypt-1)*wiim
    155155
    156156      write(lunout,*) 'Stopping in ', modname
Note: See TracChangeset for help on using the changeset viewer.