Ignore:
Timestamp:
Apr 1, 2016, 3:07:57 PM (9 years ago)
Author:
mturbet
Message:

minor buggs and modifications

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/mass_redistribution.F90

    r1397 r1526  
    166166      do ig = 1, ngrid
    167167        IF(ABS(pdpsrfmr(ig)*ptimestep).GT.pplev(ig,1)) THEN
    168          PRINT*,'STOP in condens'
     168         PRINT*,'STOP in condens in mass_redistribution'
    169169         PRINT*,'condensing more than total mass'
    170170         PRINT*,'Grid point ',ig
Note: See TracChangeset for help on using the changeset viewer.