Changeset 144 in lmdz_wrf


Ignore:
Timestamp:
Aug 4, 2014, 12:28:12 PM (10 years ago)
Author:
lfita
Message:

Adding checks to see why xlev is negative

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r139 r144  
    375375      do l=2,nlay
    376376         zlev(:,l)=0.5*(pphi(:,l)+pphi(:,l-1))/RG
     377         DO i=1,klon
     378           IF (zlev(klon,l) < 0.) THEN
     379             PRINT *,'  Lluis zlev(',klon,',',l,') <0!: ',zlev(klon,l),pphi(klon,l),':',pphi(klon,l-1)
     380             STOP
     381           END IF
     382         END DO
    377383      enddo
    378384         zlev(:,1)=0.
Note: See TracChangeset for help on using the changeset viewer.