Ignore:
Timestamp:
Dec 12, 2013 9:47:53 AM (11 years ago)
Author:
heinze
Message:

bugfix: argument of calc_mean_profile corrected

File:
1 edited

Legend:

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

    r1252 r1268  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix: argument of calc_mean_profile corrected
    2323!
    2424! Former revisions:
     
    254254          CASE ( 'pt' )
    255255
    256              CALL calc_mean_profile( v, 4, 'nudging' )
     256             CALL calc_mean_profile( pt, 4, 'nudging' )
    257257
    258258             DO  i = nxl, nxr
     
    273273          CASE ( 'q' )
    274274
    275              CALL calc_mean_profile( v, 41, 'nudging' )
     275             CALL calc_mean_profile( q, 41, 'nudging' )
    276276
    277277             DO  i = nxl, nxr
Note: See TracChangeset for help on using the changeset viewer.