Changeset 1241 for palm/trunk/SOURCE/prognostic_equations.f90
- Timestamp:
- Oct 30, 2013 11:36:58 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/prognostic_equations.f90
r1240 r1241 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! usage of nudging enabled (so far not implemented for accelerator version) 23 23 ! 24 24 ! Former revisions: … … 182 182 USE impact_of_latent_heat_mod 183 183 USE microphysics_mod 184 USE nudge_mod 184 185 USE plant_canopy_model_mod 185 186 USE production_e_mod … … 285 286 ENDIF 286 287 288 ! 289 !-- Nudging 290 IF ( nudging ) CALL nudge( i, j, simulated_time, 'u' ) 291 287 292 CALL user_actions( i, j, 'u-tendency' ) 288 293 ! … … 340 345 ENDIF 341 346 347 ! 348 !-- Nudging 349 IF ( nudging ) CALL nudge( i, j, simulated_time, 'v' ) 350 342 351 CALL user_actions( i, j, 'v-tendency' ) 343 352 ! … … 471 480 CALL subsidence( i, j, tend, pt, pt_init ) 472 481 ENDIF 482 483 ! 484 !-- Nudging 485 IF ( nudging ) CALL nudge( i, j, simulated_time, 'pt' ) 473 486 474 487 CALL user_actions( i, j, 'pt-tendency' ) … … 594 607 CALL subsidence( i, j, tend, q, q_init ) 595 608 ENDIF 609 610 ! 611 !-- Nudging 612 IF ( nudging ) CALL nudge( i, j, simulated_time, 'q' ) 596 613 597 614 CALL user_actions( i, j, 'q-tendency' ) … … 847 864 ENDIF 848 865 866 ! 867 !-- Nudging 868 IF ( nudging ) CALL nudge( simulated_time, 'u' ) 869 849 870 CALL user_actions( 'u-tendency' ) 850 871 … … 919 940 ENDIF 920 941 942 ! 943 !-- Nudging 944 IF ( nudging ) CALL nudge( simulated_time, 'v' ) 945 921 946 CALL user_actions( 'v-tendency' ) 922 947 … … 1092 1117 CALL subsidence( tend, pt, pt_init ) 1093 1118 ENDIF 1119 1120 ! 1121 !-- Nudging 1122 IF ( nudging ) CALL nudge( simulated_time, 'pt' ) 1094 1123 1095 1124 CALL user_actions( 'pt-tendency' ) … … 1278 1307 CALL subsidence( tend, q, q_init ) 1279 1308 ENDIF 1309 1310 ! 1311 !-- Nudging 1312 IF ( nudging ) CALL nudge( simulated_time, 'q' ) 1280 1313 1281 1314 CALL user_actions( 'q-tendency' )
Note: See TracChangeset
for help on using the changeset viewer.