Changeset 1268 for palm/trunk/SOURCE/nudging.f90
- Timestamp:
- Dec 12, 2013 9:47:53 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/nudging.f90
r1252 r1268 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! bugfix: argument of calc_mean_profile corrected 23 23 ! 24 24 ! Former revisions: … … 254 254 CASE ( 'pt' ) 255 255 256 CALL calc_mean_profile( v, 4, 'nudging' )256 CALL calc_mean_profile( pt, 4, 'nudging' ) 257 257 258 258 DO i = nxl, nxr … … 273 273 CASE ( 'q' ) 274 274 275 CALL calc_mean_profile( v, 41, 'nudging' )275 CALL calc_mean_profile( q, 41, 'nudging' ) 276 276 277 277 DO i = nxl, nxr
Note: See TracChangeset
for help on using the changeset viewer.