Ignore:
Timestamp:
Jan 2, 2018 8:49:38 AM (4 years ago)
Author:
maronga
Message:

deleting of deprecated files; headers updated where needed

File:
1 edited

Legend:

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

    r2716 r2718  
    1515! PALM. If not, see <http://www.gnu.org/licenses/>.
    1616!
    17 ! Copyright 1997-2017 Leibniz Universitaet Hannover
     17! Copyright 1997-2018 Leibniz Universitaet Hannover
    1818!------------------------------------------------------------------------------!
    1919!
     
    11121112!--             Prognostic equation for rain water content
    11131113                DO  k = nzb+1, nzt
     1114IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
     1115WRITE(9,*) "pre prog", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
     1116ENDIF
    11141117                   qr_p(k,j,i) = qr(k,j,i) + ( dt_3d *                         &
    11151118                                                      ( tsc(2) * tend(k,j,i) + &
     
    11221125                                              )
    11231126                   IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
     1127IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
     1128WRITE(9,*) "aft prog", qr_p(k,j,i)
     1129ENDIF
    11241130                ENDDO
    11251131!
     
    21842190             DO  j = nys, nyn
    21852191                DO  k = nzb+1, nzt
     2192IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
     2193WRITE(9,*) "pre prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
     2194ENDIF
    21862195                   qr_p(k,j,i) = qr(k,j,i) + ( dt_3d * ( sbt * tend(k,j,i) +   &
    21872196                                                      tsc(3) * tqr_m(k,j,i) )  &
     
    21932202                                          )
    21942203                   IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
     2204IF ( k == 1 .AND. j == 35 .AND. i == 2 ) THEN
     2205WRITE(9,*) "aft prog ijk", qr(k,j,i), tend(k,j,i), tqr_m(k,j,i), rdf_sc(k)
     2206ENDIF
    21952207                ENDDO
    21962208             ENDDO
Note: See TracChangeset for help on using the changeset viewer.