Changeset 2018 for trunk/MESOSCALE


Ignore:
Timestamp:
Oct 19, 2018, 10:56:34 AM (6 years ago)
Author:
mlefevre
Message:

Added outputs for the generic models

Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM

    r1748 r2018  
    106106state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
    107107state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
     108state  real  CLOUDFRAC  ikj  misc  1  -  -  "CLOUDFRAC"     "CLOUD FRACTION"           ""
     109state  real  TOTCLOUDFRAC  ij  misc  1  -  -  "TOTCLOUDFRAC"     "COLUMN CLOUD FRACTION"           ""
     110state  real  GRAIN  ikj  misc  1  -  -  "RAIN"     "RAIN kg/kg.s-1"           ""
     111state  real  GSNOW  ikj  misc  1  -  -  "SNOW"     "SNOW kg/kg.s-1"           ""
     112state  real  ALBEQ  ij misc  1  -  -  "ALBEQ"    "ALBEDO EQUIVALENT"   ""
     113state  real  FLUXTOP_DN ij misc  1  -  - "FLUXTOP_DN"   "Incoming SW radiation at the TOA" "W.m-2"
     114state  real  FLUXABS_SW ij misc  1  -  - "FLUXABS_SW"  "Absorbed SW flux" "W.m-2"
     115state  real  FLUXTOP_LW ij misc  1  -  - "FLUXTOP_LW"  "Outgoing LW flux TOA" "W.m-2"
     116state  real  FLUXSURF_SW ij misc  1  -  - "FLUXSURF_SW" "SW Surface flux" "W.m-2"
     117state  real  FLUXSURF_LW ij misc  1  -  -  "FLUXSURF_LW" "LW Surface flux" "W.m-2"
     118state  real  FLXGRD ij misc  1  -  - "FLXGRD" "heat flux from ground"  "W.m-2"
     119state  real  LSCEZ ikj misc  1  -  - "LSCEZ" "heat from largescale" "W.m-2"
     120state  real  H2OICE_REFF ikj misc  1  -  -  "H2OICE_REFF" "Radii of H2O ice" "m"
     121state  real  LATENT_HF ij misc  1  -  -  "LATENT_HF" "latent heat flux" "W.m-2"
     122state  real  REEVAP    ij misc  1  -  -  "REEVAP" "re-evaporation flux of precipitation (integrated over the atmospheric column)"
     123state  real  SURFRAIN  ij misc  1  -  -  "SURFRAIN" "Rainfall" "kg m-2 s-1"
     124
    108125####
    109126####

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/Registry.EM.newphys

    r1724 r2018  
    102102state  real  ZMAX       ij   misc  1  -  -  "ZMAX"      "MAXIMUM LEVEL THERMALS"          "m"
    103103state  real  HFMAX      ij   misc  1  -  -  "HFMAX"     "MAXIMUM PBL HEAT FLUX"           "m.K/s"
     104#### GENERIC OUTPUTS
     105state  real  CLOUDFRAC  ikj  misc  1  -  -  "CLOUDFRAC"     "CLOUD FRACTION"           ""
     106state  real  TOTCLOUDFRAC  ij  misc  1  -  -  "TOTCLOUDFRAC"     "COLUMN CLOUD FRACTION"           ""
     107state  real  GRAIN  ikj  misc  1  -  -  "RAIN"     "RAIN kg/kg.s-1"           ""
     108state  real  GSNOW  ikj  misc  1  -  -  "SNOW"     "SNOW kg/kg.s-1"           ""
     109state  real  ALBEQ  ij misc  1  -  -  "ALBEQ"    "ALBEDO EQUIVALENT"   ""
     110state  real  FLUXTOP_DN ij misc  1  -  - "FLUXTOP_DN"   "Incoming SW radiation at the TOA" "W.m-2"
     111state  real  FLUXABS_SW ij misc  1  -  - "FLUXABS_SW"  "Absorbed SW flux" "W.m-2"
     112state  real  FLUXTOP_LW ij misc  1  -  - "FLUXTOP_LW"  "Outgoing LW flux TOA" "W.m-2"
     113state  real  FLUXSURF_SW ij misc  1  -  - "FLUXSURF_SW" "SW Surface flux" "W.m-2"
     114state  real  FLUXSURF_LW ij misc  1  -  -  "FLUXSURF_LW" "LW Surface flux" "W.m-2"
     115state  real  FLXGRD ij misc  1  -  - "FLXGRD" "heat flux from ground"  "W.m-2"
     116state  real  LSCEZ ikj misc  1  -  - "LSCEZ" "heat from largescale" "W.m-2"
     117state  real  H2OICE_REFF ikj misc  1  -  -  "H2OICE_REFF" "Radii of H2O ice" "m"
     118state  real  LATENT_HF ij misc  1  -  -  "LATENT_HF" "Latent heat flux" "W.m-2"
     119state  real  REEVAP    ij misc  1  -  -  "REEVAP" "Re-evaporation flux of precipitation (integrated over the atmospheric column)"
     120state  real  SURFRAIN  ij misc  1  -  -  "SURFRAIN" "Rainfall" "kg m-2 s-1"
    104121
    105122####

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/LES/modif_mars/module_first_rk_step_part1.F

    r1724 r2018  
    655655     &       ,DT_VDF=grid%DT_VDF  &
    656656     &       ,DT_AJS=grid%DT_AJS  &
     657     &       ,CLOUDFRAC=grid%CLOUDFRAC   &
     658     &       ,TOTCLOUDFRAC=grid%TOTCLOUDFRAC   &
     659     &       ,GRAIN=grid%GRAIN   &
     660     &       ,GSNOW=grid%GSNOW   &
     661     &       ,REEVAP=grid%REEVAP  &
     662     &       ,SURFRAIN=grid%SURFRAIN  &
     663     &       ,ALBEQ=grid%ALBEQ   &
     664     &       ,FLUXTOP_DN=grid%FLUXTOP_DN   &
     665     &       ,FLUXABS_SW=grid%FLUXABS_SW   &
     666     &       ,FLUXTOP_LW=grid%FLUXTOP_LW   &
     667     &       ,FLUXSURF_SW=grid%FLUXSURF_SW   &
     668     &       ,FLUXSURF_LW=grid%FLUXSURF_LW   &
     669     &       ,FLXGRD=grid%FLXGRD   &
     670     &       ,LSCEZ=grid%LSCEZ   &
     671     &       ,H2OICE_REFF=grid%H2OICE_REFF  &
     672     &       ,LATENT_HF=grid%LATENT_HF  &
     673     &       ,SWDOWNZ=grid%SWDOWNZ   &
    657674     &       ,SWDOWNZ=grid%SWDOWNZ   &
    658675     &       ,TAU_DUST=grid%TAU_DUST   &

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM

    r1724 r2018  
    117117state  real  DT_VDF     ikj   misc  1  -  -  "DT_VDF"     "PBL CLMAIN TEMPERATURE TENDENCY"                 "K/s"
    118118state  real  DT_AJS     ikj   misc  1  -  -  "DT_AJS"     "AJUSTEMENT SEC TEMPERATURE TENDENCY"                 "K/s"
     119state  real  CLOUDFRAC  ikj  misc  1  -  -  "CLOUDFRAC"     "CLOUD FRACTION"           ""
     120state  real  TOTCLOUDFRAC  ij  misc  1  -  -  "TOTCLOUDFRAC"     "COLUMN CLOUD FRACTION"           ""
     121state  real  GRAIN  ikj  misc  1  -  -  "RAIN"     "RAIN kg/kg.s-1"           ""
     122state  real  GSNOW  ikj  misc  1  -  -  "SNOW"     "SNOW kg/kg.s-1"           ""
     123state  real  ALBEQ  ij misc  1  -  -  "ALBEQ"    "ALBEDO EQUIVALENT"   ""
     124state  real  FLUXTOP_DN ij misc  1  -  - "FLUXTOP_DN"   "Incoming SW radiation at the TOA" "W.m-2"
     125state  real  FLUXABS_SW ij misc  1  -  - "FLUXABS_SW"  "Absorbed SW flux" "W.m-2"
     126state  real  FLUXTOP_LW ij misc  1  -  - "FLUXTOP_LW"  "Outgoing LW flux TOA" "W.m-2"
     127state  real  FLUXSURF_SW ij misc  1  -  - "FLUXSURF_SW" "SW Surface flux" "W.m-2"
     128state  real  FLUXSURF_LW ij misc  1  -  -  "FLUXSURF_LW" "LW Surface flux" "W.m-2"
     129state  real  FLXGRD ij misc  1  -  - "FLXGRD" "heat flux from ground"  "W.m-2"
     130state  real  LSCEZ ikj misc  1  -  - "LSCEZ" "heat from largescale" "W.m-2"
     131state  real  H2OICE_REFF ikj misc  1  -  -  "H2OICE_REFF" "Radii of H2O ice" "m"
     132state  real  LATENT_HF ij misc  1  -  -  "LATENT_HF" "latent heat flux" "W.m-2"
     133state  real  REEVAP    ij misc  1  -  -  "REEVAP" "re-evaporation flux of precipitation (integrated over the atmospheric column)"
     134state  real  SURFRAIN  ij misc  1  -  -  "SURFRAIN" "Rainfall" "kg m-2 s-1"
    119135
    120136####

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/Registry/Registry.EM.newphys

    r1735 r2018  
    9999state  real  ZMAX       ij   misc  1  -  h  "ZMAX"      "MAXIMUM LEVEL THERMALS"          "m"   
    100100state  real  HFMAX      ij   misc  1  -  h  "HFMAX"     "MAXIMUM PBL HEAT FLUX"           "m.K/s"
     101#### GENERIC OUTPUTS
     102state  real  CLOUDFRAC  ikj  misc  1  -  -  "CLOUDFRAC"     "CLOUD FRACTION"           ""
     103state  real  TOTCLOUDFRAC  ij  misc  1  -  -  "TOTCLOUDFRAC"     "COLUMN CLOUD FRACTION"           ""
     104state  real  GRAIN  ikj  misc  1  -  -  "RAIN"     "RAIN kg/kg.s-1"           ""
     105state  real  GSNOW  ikj  misc  1  -  -  "SNOW"     "SNOW kg/kg.s-1"           ""
     106state  real  ALBEQ  ij misc  1  -  -  "ALBEQ"    "ALBEDO EQUIVALENT"   ""
     107state  real  FLUXTOP_DN ij misc  1  -  - "FLUXTOP_DN"   "Incoming SW radiation at the TOA" "W.m-2"
     108state  real  FLUXABS_SW ij misc  1  -  - "FLUXABS_SW"  "Absorbed SW flux" "W.m-2"
     109state  real  FLUXTOP_LW ij misc  1  -  - "FLUXTOP_LW"  "Outgoing LW flux TOA" "W.m-2"
     110state  real  FLUXSURF_SW ij misc  1  -  - "FLUXSURF_SW" "SW Surface flux" "W.m-2"
     111state  real  FLUXSURF_LW ij misc  1  -  -  "FLUXSURF_LW" "LW Surface flux" "W.m-2"
     112state  real  FLXGRD ij misc  1  -  - "FLXGRD" "heat flux from ground"  "W.m-2"
     113state  real  LSCEZ ikj misc  1  -  - "LSCEZ" "heat from largescale" "W.m-2"
     114state  real  H2OICE_REFF ikj misc  1  -  -  "H2OICE_REFF" "Radii of H2O ice" "m"
     115state  real  LATENT_HF ij misc  1  -  -  "LATENT_HF" "Latent heat flux" "W.m-2"
     116state  real  REEVAP    ij misc  1  -  -  "REEVAP" "Re-evaporation flux of precipitation (integrated over the atmospheric column)"
     117state  real  SURFRAIN  ij misc  1  -  -  "SURFRAIN" "Rainfall" "kg m-2 s-1"
     118
    101119####
    102120####

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/solve_em.F

    r1729 r2018  
    897897     &       ,DT_VDF=grid%DT_VDF  &
    898898     &       ,DT_AJS=grid%DT_AJS  &
     899     &       ,CLOUDFRAC=grid%CLOUDFRAC   &
     900     &       ,TOTCLOUDFRAC=grid%TOTCLOUDFRAC   &
     901     &       ,GRAIN=grid%GRAIN   &
     902     &       ,GSNOW=grid%GSNOW   &
     903     &       ,REEVAP=grid%REEVAP  &
     904     &       ,SURFRAIN=grid%SURFRAIN  &
     905     &       ,ALBEQ=grid%ALBEQ   &
     906     &       ,FLUXTOP_DN=grid%FLUXTOP_DN   &
     907     &       ,FLUXABS_SW=grid%FLUXABS_SW   &
     908     &       ,FLUXTOP_LW=grid%FLUXTOP_LW   &
     909     &       ,FLUXSURF_SW=grid%FLUXSURF_SW   &
     910     &       ,FLUXSURF_LW=grid%FLUXSURF_LW   &
     911     &       ,FLXGRD=grid%FLXGRD   &
     912     &       ,LSCEZ=grid%LSCEZ   &
     913     &       ,H2OICE_REFF=grid%H2OICE_REFF  &
     914     &       ,LATENT_HF=grid%LATENT_HF  &
    899915     &       ,SWDOWNZ=grid%SWDOWNZ   &
    900916     &       ,TAU_DUST=grid%TAU_DUST   &

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_generic_lmd_new/update_outputs_physiq_mod.F

    r2011 r2018  
    158158            SWDOWNZ,TAU_DUST,QSURFDUST,&
    159159            MTOT,ICETOT,TAU_ICE,&
    160             HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
    161             RDUST,VMR_ICE,RICE)
     160            HR_SW,HR_LW,HR_DYN,DT,DTRAD,&
     161            RDUST,VMR_ICE,RICE,&
     162            CLOUDFRAC,TOTCLOUDFRAC,&
     163            RAIN,SNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     164            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
     165
    162166   USE comm_wrf !! to get fields to be written from physiq
    163167
    … …  
    167171     SWDOWNZ,TAU_DUST,QSURFDUST,&
    168172     MTOT,ICETOT,TAU_ICE,&
     173     TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     174     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
    169175   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
    170      HR_SW,HR_LW,RDUST,VMR_ICE,RICE,HR_DYN,DT,DTRAD,DTVDF,DTAJS
     176     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,CLOUDFRAC,HR_DYN,DT,DTRAD,RAIN,SNOW,&
     177     LSCEZ,H2OICE_REFF
    171178   INTEGER :: i,j,subs
    172179
    … …  
    180187
    181188     !! get diagnostics from physics
    182      SWDOWNZ(i,j) = comm_SWDOWNZ(subs)
    183      MTOT(i,j) = comm_MTOT(subs)
    184189     HR_SW(i,kps:kpe,j) = comm_HR_SW(subs,kps:kpe)
    185190     HR_LW(i,kps:kpe,j) = comm_HR_LW(subs,kps:kpe)
    186      HR_DYN(i,kps:kpe,j) = comm_HR_DYN(subs,kps:kpe)
    187      DT(i,kps:kpe,j) = comm_DT(subs,kps:kpe)
    188      DTRAD(i,kps:kpe,j) = comm_DT_RAD(subs,kps:kpe)
    189      DTVDF(i,kps:kpe,j) = comm_DT_VDF(subs,kps:kpe)
    190      DTAJS(i,kps:kpe,j) = comm_DT_AJS(subs,kps:kpe)
     191     CLOUDFRAC(i,kps:kpe,j)= comm_CLOUDFRAC(subs,kps:kpe)
     192     TOTCLOUDFRAC(i,j)= comm_TOTCLOUDFRAC(subs)
     193     RAIN(i,kps:kpe,j) = comm_RAIN(subs,kps:kpe)
     194     SNOW(i,kps:kpe,j) = comm_SNOW(subs,kps:kpe)
     195     ALBEQ(i,j)=comm_ALBEQ(subs)
     196     FLUXTOP_DN(i,j)=comm_FLUXTOP_DN(subs)
     197     FLUXABS_SW(i,j)=comm_FLUXABS_SW(subs)
     198     FLUXTOP_LW(i,j)=comm_FLUXTOP_LW(subs)
     199     FLUXSURF_SW(i,j)=comm_FLUXSURF_SW(subs)
     200     FLUXSURF_LW(i,j)=comm_FLUXSURF_LW(subs)
     201     FLXGRD(i,j)=comm_FLXGRD(subs)
     202     LSCEZ(i,kps:kpe,j)=comm_LSCEZ(subs,kps:kpe)
     203     H2OICE_REFF(i,kps:kpe,j)=comm_H2OICE_REFF(subs,kps:kpe)
     204     LATENT_HF(i,j)=comm_LATENT_HF(subs)
     205     REEVAP(i,j)=comm_REEVAP(subs)
     206     SURFRAIN(i,j)=comm_SURFRAIN(subs)
    191207
    192208   ENDDO

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/update_outputs_physiq_mod.F

    r1738 r2018  
    167167            SWDOWNZ,TAU_DUST,QSURFDUST,&
    168168            MTOT,ICETOT,TAU_ICE,&
    169             HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
    170             RDUST,VMR_ICE,RICE)
    171 
     169            HR_SW,HR_LW,HR_DYN,DT,DTRAD,&
     170            RDUST,VMR_ICE,RICE,&
     171            CLOUDFRAC,TOTCLOUDFRAC,&
     172            RAIN,SNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     173            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
     174   
    172175   USE comm_wrf !! to get fields to be written from physiq
    173176
    … …  
    176179   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: &
    177180     SWDOWNZ,TAU_DUST,QSURFDUST,&
    178      MTOT,ICETOT,TAU_ICE
     181     MTOT,ICETOT,TAU_ICE,&
     182     TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     183     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
    179184   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
    180      HR_SW,HR_LW,HR_DYN,RDUST,VMR_ICE,RICE,DT,DTRAD,DTVDF,DTAJS
    181    INTEGER :: i,j,subs
     185     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,CLOUDFRAC,HR_DYN,DT,DTRAD,RAIN,SNOW,&
     186     LSCEZ,H2OICE_REFF
     187   INTEGER :: i,j,subs
     188
    182189
    183190   DO j = jps,jpe

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_prescribed_void_lmd_new/update_outputs_physiq_mod.F

    r1738 r2018  
    7171            SWDOWNZ,TAU_DUST,QSURFDUST,&
    7272            MTOT,ICETOT,TAU_ICE,&
    73             HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
    74             RDUST,VMR_ICE,RICE)
     73            HR_SW,HR_LW,HR_DYN,DT,DTRAD,&
     74            RDUST,VMR_ICE,RICE,&
     75            CLOUDFRAC,TOTCLOUDFRAC,&
     76            RAIN,SNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     77            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
    7578
    7679   INTEGER, INTENT(IN) :: ims,ime,jms,jme,kms,kme
    … …  
    7881   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: &
    7982     SWDOWNZ,TAU_DUST,QSURFDUST,&
    80      MTOT,ICETOT,TAU_ICE
     83     MTOT,ICETOT,TAU_ICE,&
     84     TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     85     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
    8186   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
    82      HR_SW,HR_LW,HR_DYN,RDUST,VMR_ICE,RICE,DT,DTRAD,DTVDF,DTAJS
    83    INTEGER :: i,j,subs,k
    84    REAL, DIMENSION(kms:kme) :: phr_sw,phr_lw,phr_dyn
     87     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,CLOUDFRAC,HR_DYN,DT,DTRAD,RAIN,SNOW,&
     88     LSCEZ,H2OICE_REFF
     89   INTEGER :: i,j,subs
    8590
    8691  open(17,file='prescribed_sw.txt',form='formatted',status='old')

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_venus_lmd_new/update_outputs_physiq_mod.F

    r1738 r2018  
    160160            SWDOWNZ,TAU_DUST,QSURFDUST,&
    161161            MTOT,ICETOT,TAU_ICE,&
    162             HR_SW,HR_LW,HR_DYN,DT,DTRAD,DTVDF,DTAJS,&
    163             RDUST,VMR_ICE,RICE)
    164 
     162            HR_SW,HR_LW,HR_DYN,DT,DTRAD,&
     163            RDUST,VMR_ICE,RICE,&
     164            CLOUDFRAC,TOTCLOUDFRAC,&
     165            RAIN,SNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     166            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
     167   
    165168   USE comm_wrf !! to get fields to be written from physiq
    166169
    … …  
    169172   REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: &
    170173     SWDOWNZ,TAU_DUST,QSURFDUST,&
    171      MTOT,ICETOT,TAU_ICE
     174     MTOT,ICETOT,TAU_ICE,&
     175     TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     176     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
    172177   REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
    173      HR_SW,HR_LW,HR_DYN,RDUST,VMR_ICE,RICE,DT,DTRAD,DTVDF,DTAJS
    174    INTEGER :: i,j,subs
     178     HR_SW,HR_LW,RDUST,VMR_ICE,RICE,CLOUDFRAC,HR_DYN,DT,DTRAD,RAIN,SNOW,&
     179     LSCEZ,H2OICE_REFF
     180   INTEGER :: i,j,subs
     181
    175182
    176183   DO j = jps,jpe

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/module_lmd_driver.F.new

    r1778 r2018  
    4040        isfflx, diff_opt, km_opt, &
    4141        HISTORY_INTERVAL, &
    42         HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,SWDOWNZ,&
     42        HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,&
     43        CLOUDFRAC,TOTCLOUDFRAC, &
     44        GRAIN,GSNOW,REEVAP,SURFRAIN,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     45        FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF,SWDOWNZ,&
    4346        TAU_DUST,RDUST,QSURFDUST,&
    4447        MTOT,ICETOT,VMR_ICE,TAU_ICE,RICE,&
    … …  
    104107     MTOT,ICETOT,TAU_ICE,&
    105108     HFMAX,ZMAX,&
    106      USTM,HFX
     109     USTM,HFX,TOTCLOUDFRAC,ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     110     FLUXSURF_LW,FLXGRD,LATENT_HF,REEVAP,SURFRAIN
    107111! 3D arrays
    108112REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(IN ) :: &
    … …  
    110114REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(OUT ) :: &
    111115     RTHBLTEN,RUBLTEN,RVBLTEN, &
    112      HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,RDUST,VMR_ICE,RICE
     116     HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,RDUST,VMR_ICE,RICE,&
     117     CLOUDFRAC,GRAIN,GSNOW,LSCEZ,H2OICE_REFF
    113118REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(INOUT ) :: &
    114119     M_Q2
    … …  
    734739            SWDOWNZ,TAU_DUST,QSURFDUST,&
    735740            MTOT,ICETOT,TAU_ICE,&
    736             HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,DT_VDF,DT_AJS,&
    737             RDUST,VMR_ICE,RICE)
     741            HR_SW,HR_LW,HR_DYN,DDT,DT_RAD,&
     742            RDUST,VMR_ICE,RICE,&
     743            CLOUDFRAC,TOTCLOUDFRAC,&
     744            GRAIN,GSNOW,REEVAP,SURFRAIN,&
     745            ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
     746            FLUXSURF_LW,FLXGRD,LSCEZ,H2OICE_REFF,LATENT_HF)
    738747!!!
    739748print *, '** ',planet_type,'** OUTPUT PHYSICS DONE'
Note: See TracChangeset for help on using the changeset viewer.