Changeset 41 in lmdz_wrf


Ignore:
Timestamp:
Jul 23, 2014, 2:44:59 PM (10 years ago)
Author:
lfita
Message:

Fixing mistake in PRINT statement

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r40 r41  
    12561256             zxfluxv(i,k) = zxfluxv(i,k) + flux_v(i,k,nsrf) * pctsrf(i,nsrf)
    12571257             IF (i == 734 .AND. k == 1) THEN
    1258                PRINT *,nsrf, zxfluxt(i,1) fluxt_t(i,1,nsrf), pctsrf(i,nsrf)
     1258               PRINT *,nsrf, zxfluxt(i,1), fluxt_t(i,1,nsrf), pctsrf(i,nsrf)
    12591259             END IF
    12601260
Note: See TracChangeset for help on using the changeset viewer.