Ignore:
Timestamp:
May 7, 2014 11:15:00 AM (8 years ago)
Author:
heinze
Message:

adjustments in case of nudging + bugfix for KIND in CMPLX function

File:
1 edited

Legend:

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

    r1383 r1398  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Subroutine nudge_ref is extended to set u_init and v_init to the current
     23! nudging profiles
    2324!
    2425! Former revisions:
     
    552553
    553554       USE arrays_3d,                                                          &
    554            ONLY:  time_vert, ptnudge, pt_init, qnudge, q_init
     555           ONLY:  time_vert, ptnudge, pt_init, qnudge, q_init, unudge, u_init, &
     556                  vnudge, v_init
    555557
    556558       USE kinds
     
    580582       pt_init = ptnudge(:,nt) + fac * ( ptnudge(:,nt+1) - ptnudge(:,nt) )
    581583       q_init  = qnudge(:,nt) + fac * ( qnudge(:,nt+1) - qnudge(:,nt) )
     584       u_init  = unudge(:,nt) + fac * ( unudge(:,nt+1) - unudge(:,nt) )
     585       v_init  = vnudge(:,nt) + fac * ( vnudge(:,nt+1) - vnudge(:,nt) )
    582586
    583587    END SUBROUTINE nudge_ref
    584588
    585 
    586589 END MODULE nudge_mod
Note: See TracChangeset for help on using the changeset viewer.