Changeset 3960 for dynamico_lmdz


Ignore:
Timestamp:
Nov 7, 2016, 1:48:52 PM (8 years ago)
Author:
ymipsl
Message:

Fix uninitialized variables in LMDZ physics.

YM

Location:
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/calcul_divers.h

    r3838 r3960  
    77!        surface terre
    88         DO i=1, klon
    9             IF(pctsrf(i,is_ter).GT.0.) THEN
    10                paire_ter(i)=cell_area(i)*pctsrf(i,is_ter)
    11             ENDIF
     9            paire_ter(i)=cell_area(i)*pctsrf(i,is_ter)
    1210         ENDDO
    1311      ENDIF

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyaqua_mod.F90

    r3930 r3960  
    318318    PRINT *, 'iniaqua: before phyredem'
    319319
     320    pbl_tke(:,:,:) = 1.e-8
    320321    falb1 = albedo
    321322    falb2 = albedo
    … …  
    333334    entr_therm = 0.
    334335    detr_therm = 0.
     336    ale_bl = 0.
     337    ale_bl_trig =0.
     338    alp_bl =0.
    335339
    336340!ym error : the sub surface dimension is the third not second : forgotten for iniaqua

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyetat0.F90

    r3929 r3960  
    740740
    741741     ENDDO
     742  ELSE
     743    pbl_tke(:, :, :)=1.e-8   
    742744  ENDIF
    743745

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_local_var_mod.F90

    r3814 r3960  
    498498      ALLOCATE(slp(klon))
    499499      ALLOCATE(ale_wake(klon), alp_wake(klon), bils(klon))
     500      ale_wake(:)=0.
    500501      ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
    501502      ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon))

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_output_write_mod.F90

    r3926 r3960  
    592592       CALL histwrite_phy(o_cldljn, zx_tmp_fi2d)
    593593       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldm*JrNt
    594        CALL histwrite_phy(o_cldmjn, cldm*JrNt)
     594       CALL histwrite_phy(o_cldmjn, zx_tmp_fi2d)
    595595       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldh*JrNt
    596        CALL histwrite_phy(o_cldhjn, cldh*JrNt)
     596       CALL histwrite_phy(o_cldhjn, zx_tmp_fi2d)
    597597       IF (vars_defined)   zx_tmp_fi2d(1 : klon) = cldt*JrNt
    598        CALL histwrite_phy(o_cldtjn, cldt*JrNt)
     598       CALL histwrite_phy(o_cldtjn, zx_tmp_fi2d)
    599599       CALL histwrite_phy(o_cldq, cldq)
    600600       IF (vars_defined)       zx_tmp_fi2d(1:klon) = flwp(1:klon)
Note: See TracChangeset for help on using the changeset viewer.