Ignore:
Timestamp:
Oct 30, 2013 11:36:58 AM (11 years ago)
Author:
heinze
Message:

Nudging and large scale forcing from external file implemented

File:
1 edited

Legend:

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

    r1240 r1241  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! usage of nudging enabled (so far not implemented for accelerator version)
    2323!
    2424! Former revisions:
     
    182182    USE impact_of_latent_heat_mod
    183183    USE microphysics_mod
     184    USE nudge_mod
    184185    USE plant_canopy_model_mod
    185186    USE production_e_mod
     
    285286             ENDIF
    286287
     288!
     289!--          Nudging
     290             IF ( nudging )  CALL nudge( i, j, simulated_time, 'u' )
     291
    287292             CALL user_actions( i, j, 'u-tendency' )
    288293!
     
    340345             ENDIF
    341346
     347!
     348!--          Nudging
     349             IF ( nudging )  CALL nudge( i, j, simulated_time, 'v' )
     350
    342351             CALL user_actions( i, j, 'v-tendency' )
    343352!
     
    471480                CALL subsidence( i, j, tend, pt, pt_init )
    472481             ENDIF
     482
     483!
     484!--          Nudging
     485             IF ( nudging )  CALL nudge( i, j, simulated_time, 'pt' )
    473486
    474487             CALL user_actions( i, j, 'pt-tendency' )
     
    594607                CALL subsidence( i, j, tend, q, q_init )
    595608             ENDIF
     609
     610!
     611!--          Nudging
     612             IF ( nudging )  CALL nudge( i, j, simulated_time, 'q' )
    596613
    597614             CALL user_actions( i, j, 'q-tendency' )
     
    847864    ENDIF
    848865
     866!
     867!-- Nudging
     868    IF ( nudging )  CALL nudge( simulated_time, 'u' )
     869
    849870    CALL user_actions( 'u-tendency' )
    850871
     
    919940    ENDIF
    920941
     942!
     943!-- Nudging
     944    IF ( nudging )  CALL nudge( simulated_time, 'v' )
     945
    921946    CALL user_actions( 'v-tendency' )
    922947
     
    10921117          CALL subsidence( tend, pt, pt_init )
    10931118       ENDIF
     1119
     1120!
     1121!--    Nudging
     1122       IF ( nudging )  CALL nudge( simulated_time, 'pt' )
    10941123
    10951124       CALL user_actions( 'pt-tendency' )
     
    12781307         CALL subsidence( tend, q, q_init )
    12791308       ENDIF
     1309
     1310!
     1311!--    Nudging
     1312       IF ( nudging )  CALL nudge( simulated_time, 'q' )
    12801313
    12811314       CALL user_actions( 'q-tendency' )
Note: See TracChangeset for help on using the changeset viewer.