Changeset 1174 for palm/trunk


Ignore:
Timestamp:
May 31, 2013 10:28:08 AM (11 years ago)
Author:
gryschka
Message:

Bugfix in computing initial profiles for ug, vg, lad, q in case of Atmosphere

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/subjob

    r1104 r1174  
    129129     (blizzard1)             local_addres=136.172.40.15;  local_host=ibmh;;
    130130     (breva)                 local_addres=130.75.105.98;  local_host=lcmuk;;
     131     (buran)                 local_addres=130.75.105.58;  local_host=lcmuk;;
    131132     (caurus)                local_addres=130.75.105.19;  local_host=lcmuk;;
    132133     (climate*)              local_addres=165.132.26.68;  local_host=lcyon;;
  • palm/trunk/SOURCE/check_parameters.f90

    r1160 r1174  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix in computing initial profiles for ug, vg, lad, q in case of Atmosphere
    2323!
    2424! Former revisions:
     
    955955                   ug(k) = ug(k-1) + dzu(k) * gradient
    956956                ELSE
    957                    ug(k) = ug_surface + 0.5 * dzu(k) * gradient
     957                   ug(k) = ug_surface + dzu(k) * gradient
    958958                ENDIF
    959959             ELSE
     
    10191019                   vg(k) = vg(k-1) + dzu(k) * gradient
    10201020                ELSE
    1021                    vg(k) = vg_surface + 0.5 * dzu(k) * gradient
     1021                   vg(k) = vg_surface + dzu(k) * gradient
    10221022                ENDIF
    10231023             ELSE
     
    11331133                      pt_init(k) = pt_init(k-1) + dzu(k) * gradient
    11341134                   ELSE
    1135                       pt_init(k) = pt_surface   + 0.5 * dzu(k) * gradient
     1135                      pt_init(k) = pt_surface   + dzu(k) * gradient
    11361136                   ENDIF
    11371137                ELSE
     
    12131213                   q_init(k) = q_init(k-1) + dzu(k) * gradient
    12141214                ELSE
    1215                    q_init(k) = q_init(k-1) + 0.5 * dzu(k) * gradient
     1215                   q_init(k) = q_init(k-1) + dzu(k) * gradient
    12161216                ENDIF
    12171217             ELSE
     
    12951295                      lad(k) = lad(k-1) + dzu(k) * gradient
    12961296                   ELSE
    1297                       lad(k) = lad_surface + 0.5 * dzu(k) *gradient
     1297                      lad(k) = lad_surface + dzu(k) *gradient
    12981298                   ENDIF
    12991299                ELSE
Note: See TracChangeset for help on using the changeset viewer.