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

Added outputs for the generic models

Location:
trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • 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.