Ignore:
Timestamp:
Mar 3, 2015 2:18:16 PM (7 years ago)
Author:
maronga
Message:

land surface model released

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_open.f90

    r1469 r1551  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Removed redundant output for combine_plot_fields
    2323!
    2424! Former revisions:
     
    9999
    100100    USE indices,                                                               &
    101         ONLY:  nbgp, nx, nxl, nxlg, nxr, nxrg, ny, nyn, nyng, nys, nysg, nz,   &
    102                nzb, nzt
     101        ONLY:  nbgp, nx, nxl, nxr, ny, nyn, nyng, nys, nysg, nz, nzb, nzt
    103102
    104103    USE kinds
     
    462461!
    463462!--          Specifications for combine_plot_fields
    464              WRITE ( 30 )  -nbgp,nx+nbgp,-nbgp,ny+nbgp, 0 ,nz_do3d
     463             WRITE ( 30 )  -nbgp,nx+nbgp,-nbgp,ny+nbgp
    465464             WRITE ( 30 )  0,nx+1,0,ny+1,0,nz_do3d
    466465#endif
Note: See TracChangeset for help on using the changeset viewer.