src_xml/.svn/text-base/field_def_orchidee.xml.svn-base:    <field id="swdown" name="swdown" long_name="Incident solar radiation" unit="W/m^2"/>
src_xml/.svn/text-base/field_def_orchidee.xml.svn-base:    <field id="PAR" name="PAR" long_name="Photosynthetic active radiation, half of swdown" unit="umol phot/m^2/s"/>
src_xml/.svn/text-base/file_def_orchidee.xml.svn-base:    <field field_ref="swdown" level="5"/>
src_xml/.svn/text-base/file_def_orchidee.xml.svn-base:    <field field_ref="swdown" level="7"/>
src_xml/file_def_orchidee.xml:    <field field_ref="swdown" level="5"/>
src_xml/file_def_orchidee.xml:    <field field_ref="swdown" level="7"/>
src_xml/field_def_orchidee.xml:    <field id="swdown" name="swdown" long_name="Incident solar radiation" unit="W/m^2"/>
src_xml/field_def_orchidee.xml:    <field id="PAR" name="PAR" long_name="Photosynthetic active radiation, half of swdown" unit="umol phot/m^2/s"/>
SWdown.txt:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
SWdown.txt:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
SWdown.txt:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
SWdown.txt:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
SWdown.txt:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
SWdown.txt:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
src_sechiba/.svn/text-base/diffuco.f90.svn-base:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
src_sechiba/.svn/text-base/diffuco.f90.svn-base:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
src_sechiba/.svn/text-base/diffuco.f90.svn-base:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       zswdown(ik)      = swdown(i,j)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       zswdown(ik)      = swdown(i,j)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    CALL xios_orchidee_send_field("swdown",zswdown)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
src_sechiba/.svn/text-base/intersurf.f90.svn-base:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:          CALL WriteFieldI_p("Wswdown",swdown)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
src_sechiba/.svn/text-base/intersurf.f90.svn-base:    CALL xios_orchidee_send_field("swdown",swdown)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
src_sechiba/.svn/text-base/intersurf.f90.svn-base:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
src_sechiba/.svn/text-base/sechiba.f90.svn-base:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
src_sechiba/.svn/text-base/sechiba.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/.svn/text-base/sechiba.f90.svn-base:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
src_sechiba/.svn/text-base/chemistry.f90.svn-base:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
src_sechiba/.svn/text-base/chemistry.f90.svn-base:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
src_sechiba/.svn/text-base/chemistry.f90.svn-base:             Trans(ji) = swdown(ji)/So(ji)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:             swdf(ji) = swdown(ji)*Fdf(ji)
src_sechiba/.svn/text-base/chemistry.f90.svn-base:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
src_sechiba/.svn/text-base/chemistry.f90.svn-base:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
src_sechiba/diffuco.f90:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
src_sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
src_sechiba/diffuco.f90:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
src_sechiba/diffuco.f90:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
src_sechiba/diffuco.f90:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
src_sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
src_sechiba/diffuco.f90:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
src_sechiba/diffuco.f90:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
src_sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
src_sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
src_sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
src_sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
src_sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",zswdown)
src_sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
src_sechiba/intersurf.f90:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
src_sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
src_sechiba/intersurf.f90:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
src_sechiba/intersurf.f90:          CALL WriteFieldI_p("Wswdown",swdown)
src_sechiba/intersurf.f90:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
src_sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
src_sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",swdown)
src_sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
src_sechiba/intersurf.f90:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
src_sechiba/sechiba.f90:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
src_sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/sechiba.f90:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
src_sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/sechiba.f90:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
src_sechiba/ioipslctrl.f90:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
src_sechiba/ioipslctrl.f90:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
src_sechiba/sechiba.old:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
src_sechiba/sechiba.old:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/sechiba.old:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
src_sechiba/sechiba.old:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
src_sechiba/sechiba.old:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
src_sechiba/chemistry.f90:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
src_sechiba/chemistry.f90:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
src_sechiba/chemistry.f90:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
src_sechiba/chemistry.f90:             Trans(ji) = swdown(ji)/So(ji)
src_sechiba/chemistry.f90:             swdf(ji) = swdown(ji)*Fdf(ji)
src_sechiba/chemistry.f90:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
src_sechiba/chemistry.f90:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
Binary file bin/dim2_driver.exe matches
Binary file bin/teststomate.exe matches
swd.text:src_xml/.svn/text-base/field_def_orchidee.xml.svn-base:    <field id="swdown" name="swdown" long_name="Incident solar radiation" unit="W/m^2"/>
swd.text:src_xml/.svn/text-base/field_def_orchidee.xml.svn-base:    <field id="PAR" name="PAR" long_name="Photosynthetic active radiation, half of swdown" unit="umol phot/m^2/s"/>
swd.text:src_xml/.svn/text-base/file_def_orchidee.xml.svn-base:    <field field_ref="swdown" level="5"/>
swd.text:src_xml/.svn/text-base/file_def_orchidee.xml.svn-base:    <field field_ref="swdown" level="7"/>
swd.text:src_xml/file_def_orchidee.xml:    <field field_ref="swdown" level="5"/>
swd.text:src_xml/file_def_orchidee.xml:    <field field_ref="swdown" level="7"/>
swd.text:src_xml/field_def_orchidee.xml:    <field id="swdown" name="swdown" long_name="Incident solar radiation" unit="W/m^2"/>
swd.text:src_xml/field_def_orchidee.xml:    <field id="PAR" name="PAR" long_name="Photosynthetic active radiation, half of swdown" unit="umol phot/m^2/s"/>
swd.text:SWdown.txt:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:SWdown.txt:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:SWdown.txt:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:SWdown.txt:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:SWdown.txt:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:SWdown.txt:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
swd.text:src_sechiba/.svn/text-base/diffuco.f90.svn-base:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       zswdown(ik)      = swdown(i,j)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       zswdown(ik)      = swdown(i,j)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    CALL xios_orchidee_send_field("swdown",zswdown)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:          CALL WriteFieldI_p("Wswdown",swdown)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:    CALL xios_orchidee_send_field("swdown",swdown)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:src_sechiba/.svn/text-base/intersurf.f90.svn-base:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:src_sechiba/.svn/text-base/sechiba.f90.svn-base:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
swd.text:src_sechiba/.svn/text-base/sechiba.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/.svn/text-base/sechiba.f90.svn-base:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
swd.text:src_sechiba/.svn/text-base/sechiba.f90.svn-base:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/.svn/text-base/sechiba.f90.svn-base:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:src_sechiba/.svn/text-base/ioipslctrl.f90.svn-base:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:             Trans(ji) = swdown(ji)/So(ji)
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:             swdf(ji) = swdown(ji)*Fdf(ji)
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
swd.text:src_sechiba/.svn/text-base/chemistry.f90.svn-base:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
swd.text:src_sechiba/diffuco.f90:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:src_sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
swd.text:src_sechiba/diffuco.f90:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:src_sechiba/diffuco.f90:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:src_sechiba/diffuco.f90:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:src_sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
swd.text:src_sechiba/diffuco.f90:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
swd.text:src_sechiba/diffuco.f90:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
swd.text:src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:src_sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
swd.text:src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:src_sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
swd.text:src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:src_sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
swd.text:src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:src_sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
swd.text:src_sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",zswdown)
swd.text:src_sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:src_sechiba/intersurf.f90:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
swd.text:src_sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
swd.text:src_sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
swd.text:src_sechiba/intersurf.f90:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:src_sechiba/intersurf.f90:          CALL WriteFieldI_p("Wswdown",swdown)
swd.text:src_sechiba/intersurf.f90:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
swd.text:src_sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
swd.text:src_sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
swd.text:src_sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",swdown)
swd.text:src_sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:src_sechiba/intersurf.f90:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:src_sechiba/sechiba.f90:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
swd.text:src_sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/sechiba.f90:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
swd.text:src_sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/sechiba.f90:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:src_sechiba/ioipslctrl.f90:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:src_sechiba/ioipslctrl.f90:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:src_sechiba/sechiba.old:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
swd.text:src_sechiba/sechiba.old:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/sechiba.old:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
swd.text:src_sechiba/sechiba.old:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:src_sechiba/sechiba.old:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:src_sechiba/chemistry.f90:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:src_sechiba/chemistry.f90:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
swd.text:src_sechiba/chemistry.f90:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
swd.text:src_sechiba/chemistry.f90:             Trans(ji) = swdown(ji)/So(ji)
swd.text:src_sechiba/chemistry.f90:             swdf(ji) = swdown(ji)*Fdf(ji)
swd.text:src_sechiba/chemistry.f90:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
swd.text:src_sechiba/chemistry.f90:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
swd.text:src_driver/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
swd.text:src_driver/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/weather.f90: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
swd.text:src_driver/weather.f90: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
swd.text:src_driver/weather.f90: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
swd.text:src_driver/weather.f90: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
swd.text:src_driver/weather.f90:       swdown(i,j)=swdownl(ij)
swd.text:src_driver/weather.f90:      ALLOCATE(swdown_g(iim_g,jjm_g))
swd.text:src_driver/weather.f90:      CALL gather2D_mpi(swdown, swdown_g)
swd.text:src_driver/weather.f90: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
swd.text:src_driver/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
swd.text:src_driver/weather.f90:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
swd.text:src_driver/weather.f90:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
swd.text:src_driver/weather.f90:  swdown(:,:) = solad(:,:)+solai(:,:)
swd.text:src_driver/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
swd.text:src_driver/weather.f90: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:src_driver/weather.f90:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:          &  swdown, rainf, snowf, tair, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 0.0
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:            WHERE (swdown(:,:) > 2000. )
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 2000.
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 0.0
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:            WHERE (swdown(:,:) > 2000. )
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 2000.
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, rainf, snowf, tair, &
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:src_driver/.svn/text-base/readdim2.f90.svn-base:   CALL forcing_zoom(data_full, swdown)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:       swdown(i,j)=swdownl(ij)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:      ALLOCATE(swdown_g(iim_g,jjm_g))
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:      CALL gather2D_mpi(swdown, swdown_g)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:  swdown(:,:) = solad(:,:)+solai(:,:)
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
swd.text:src_driver/.svn/text-base/weather.f90.svn-base: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:src_driver/.svn/text-base/weather.f90.svn-base:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:  swdown(:,:) = fill_init
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:  for_swdown(:,:) = fill_init
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:         for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/.svn/text-base/dim2_driver.f90.svn-base: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
swd.text:src_driver/readdim2.f90:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/readdim2.f90:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/readdim2.f90:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:src_driver/readdim2.f90:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
swd.text:src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/readdim2.f90:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:src_driver/readdim2.f90:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
swd.text:src_driver/readdim2.f90:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
swd.text:src_driver/readdim2.f90:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
swd.text:src_driver/readdim2.f90:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
swd.text:src_driver/readdim2.f90:          &  swdown, rainf, snowf, tair, &
swd.text:src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:src_driver/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:src_driver/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
swd.text:src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/readdim2.f90:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/readdim2.f90:               swdown(:,:) = 0.0
swd.text:src_driver/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
swd.text:src_driver/readdim2.f90:               swdown(:,:) = 2000.
swd.text:src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
swd.text:src_driver/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:src_driver/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:src_driver/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:src_driver/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
swd.text:src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:src_driver/readdim2.f90:               swdown(:,:) = 0.0
swd.text:src_driver/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
swd.text:src_driver/readdim2.f90:               swdown(:,:) = 2000.
swd.text:src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
swd.text:src_driver/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:src_driver/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:src_driver/readdim2.f90:  &  swdown, rainf, snowf, tair, &
swd.text:src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:src_driver/readdim2.f90:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:src_driver/readdim2.f90:   CALL forcing_zoom(data_full, swdown)
swd.text:src_driver/dim2_driver.f90: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
swd.text:src_driver/dim2_driver.f90: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
swd.text:src_driver/dim2_driver.f90: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
swd.text:src_driver/dim2_driver.f90: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
swd.text:src_driver/dim2_driver.f90:  swdown(:,:) = fill_init
swd.text:src_driver/dim2_driver.f90:  for_swdown(:,:) = fill_init
swd.text:src_driver/dim2_driver.f90: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:src_driver/dim2_driver.f90: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:src_driver/dim2_driver.f90:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/dim2_driver.f90:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
swd.text:src_driver/dim2_driver.f90:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:src_driver/dim2_driver.f90:         for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/dim2_driver.f90:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/dim2_driver.f90: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
swd.text:src_driver/dim2_driver.f90:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:src_driver/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
swd.text:src_driver/dim2_driver.f90:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:src_driver/dim2_driver.f90: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
swd.text:.config/ppsrc/sechiba/diffuco.f90:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:.config/ppsrc/sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
swd.text:.config/ppsrc/sechiba/diffuco.f90:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:.config/ppsrc/sechiba/diffuco.f90:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:.config/ppsrc/sechiba/diffuco.f90:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
swd.text:.config/ppsrc/sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
swd.text:.config/ppsrc/sechiba/diffuco.f90:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
swd.text:.config/ppsrc/sechiba/diffuco.f90:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
swd.text:.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",zswdown)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
swd.text:.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
swd.text:.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
swd.text:.config/ppsrc/sechiba/intersurf.f90:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:          CALL WriteFieldI_p("Wswdown",swdown)
swd.text:.config/ppsrc/sechiba/intersurf.f90:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
swd.text:.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
swd.text:.config/ppsrc/sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",swdown)
swd.text:.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:.config/ppsrc/sechiba/intersurf.f90:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
swd.text:.config/ppsrc/sechiba/sechiba.f90:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
swd.text:.config/ppsrc/sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:.config/ppsrc/sechiba/sechiba.f90:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
swd.text:.config/ppsrc/sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
swd.text:.config/ppsrc/sechiba/sechiba.f90:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
swd.text:.config/ppsrc/sechiba/ioipslctrl.f90:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:.config/ppsrc/sechiba/ioipslctrl.f90:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
swd.text:.config/ppsrc/sechiba/chemistry.f90:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
swd.text:.config/ppsrc/sechiba/chemistry.f90:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
swd.text:.config/ppsrc/sechiba/chemistry.f90:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
swd.text:.config/ppsrc/sechiba/chemistry.f90:             Trans(ji) = swdown(ji)/So(ji)
swd.text:.config/ppsrc/sechiba/chemistry.f90:             swdf(ji) = swdown(ji)*Fdf(ji)
swd.text:.config/ppsrc/sechiba/chemistry.f90:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
swd.text:.config/ppsrc/sechiba/chemistry.f90:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
swd.text:.config/ppsrc/orchidee_ol/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
swd.text:.config/ppsrc/orchidee_ol/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
swd.text:.config/ppsrc/orchidee_ol/weather.f90:       swdown(i,j)=swdownl(ij)
swd.text:.config/ppsrc/orchidee_ol/weather.f90:      ALLOCATE(swdown_g(iim_g,jjm_g))
swd.text:.config/ppsrc/orchidee_ol/weather.f90:      CALL gather2D_mpi(swdown, swdown_g)
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
swd.text:.config/ppsrc/orchidee_ol/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
swd.text:.config/ppsrc/orchidee_ol/weather.f90:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
swd.text:.config/ppsrc/orchidee_ol/weather.f90:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
swd.text:.config/ppsrc/orchidee_ol/weather.f90:  swdown(:,:) = solad(:,:)+solai(:,:)
swd.text:.config/ppsrc/orchidee_ol/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
swd.text:.config/ppsrc/orchidee_ol/weather.f90: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:.config/ppsrc/orchidee_ol/weather.f90:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:          &  swdown, rainf, snowf, tair, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 0.0
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 2000.
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 0.0
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 2000.
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, rainf, snowf, tair, &
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
swd.text:.config/ppsrc/orchidee_ol/readdim2.f90:   CALL forcing_zoom(data_full, swdown)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:  swdown(:,:) = fill_init
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:  for_swdown(:,:) = fill_init
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:         for_swdown(i,j) = swdown(i,j)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
swd.text:.config/ppsrc/orchidee_ol/dim2_driver.f90: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
Binary file lib/libsechiba.a matches
Binary file lib/liborchidee.a matches
src_driver/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
src_driver/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
src_driver/weather.f90: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
src_driver/weather.f90: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
src_driver/weather.f90: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
src_driver/weather.f90: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
src_driver/weather.f90:       swdown(i,j)=swdownl(ij)
src_driver/weather.f90:      ALLOCATE(swdown_g(iim_g,jjm_g))
src_driver/weather.f90:      CALL gather2D_mpi(swdown, swdown_g)
src_driver/weather.f90: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
src_driver/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
src_driver/weather.f90:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
src_driver/weather.f90:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
src_driver/weather.f90:  swdown(:,:) = solad(:,:)+solai(:,:)
src_driver/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
src_driver/weather.f90: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
src_driver/weather.f90:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
src_driver/.svn/text-base/readdim2.f90.svn-base:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/.svn/text-base/readdim2.f90.svn-base:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/.svn/text-base/readdim2.f90.svn-base:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
src_driver/.svn/text-base/readdim2.f90.svn-base:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
src_driver/.svn/text-base/readdim2.f90.svn-base:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
src_driver/.svn/text-base/readdim2.f90.svn-base:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
src_driver/.svn/text-base/readdim2.f90.svn-base:          &  swdown, rainf, snowf, tair, &
src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown_nm1(:,:) = swdown_n(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 0.0
src_driver/.svn/text-base/readdim2.f90.svn-base:            WHERE (swdown(:,:) > 2000. )
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 2000.
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
src_driver/.svn/text-base/readdim2.f90.svn-base:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
src_driver/.svn/text-base/readdim2.f90.svn-base:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown_nm1(:,:) = swdown_n(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 0.0
src_driver/.svn/text-base/readdim2.f90.svn-base:            WHERE (swdown(:,:) > 2000. )
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = 2000.
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = swdown_n(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
src_driver/.svn/text-base/readdim2.f90.svn-base:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
src_driver/.svn/text-base/readdim2.f90.svn-base:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, rainf, snowf, tair, &
src_driver/.svn/text-base/readdim2.f90.svn-base:!- swdown     : Downward solar radiation (W/m^2)
src_driver/.svn/text-base/readdim2.f90.svn-base:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
src_driver/.svn/text-base/readdim2.f90.svn-base:   CALL forcing_zoom(data_full, swdown)
src_driver/.svn/text-base/weather.f90.svn-base:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
src_driver/.svn/text-base/weather.f90.svn-base: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
src_driver/.svn/text-base/weather.f90.svn-base: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
src_driver/.svn/text-base/weather.f90.svn-base: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
src_driver/.svn/text-base/weather.f90.svn-base: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
src_driver/.svn/text-base/weather.f90.svn-base:       swdown(i,j)=swdownl(ij)
src_driver/.svn/text-base/weather.f90.svn-base:      ALLOCATE(swdown_g(iim_g,jjm_g))
src_driver/.svn/text-base/weather.f90.svn-base:      CALL gather2D_mpi(swdown, swdown_g)
src_driver/.svn/text-base/weather.f90.svn-base: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
src_driver/.svn/text-base/weather.f90.svn-base:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
src_driver/.svn/text-base/weather.f90.svn-base:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
src_driver/.svn/text-base/weather.f90.svn-base:  swdown(:,:) = solad(:,:)+solai(:,:)
src_driver/.svn/text-base/weather.f90.svn-base:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
src_driver/.svn/text-base/weather.f90.svn-base: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
src_driver/.svn/text-base/weather.f90.svn-base:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
src_driver/.svn/text-base/dim2_driver.f90.svn-base: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
src_driver/.svn/text-base/dim2_driver.f90.svn-base: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
src_driver/.svn/text-base/dim2_driver.f90.svn-base: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
src_driver/.svn/text-base/dim2_driver.f90.svn-base: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
src_driver/.svn/text-base/dim2_driver.f90.svn-base:  swdown(:,:) = fill_init
src_driver/.svn/text-base/dim2_driver.f90.svn-base:  for_swdown(:,:) = fill_init
src_driver/.svn/text-base/dim2_driver.f90.svn-base: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
src_driver/.svn/text-base/dim2_driver.f90.svn-base: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
src_driver/.svn/text-base/dim2_driver.f90.svn-base:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
src_driver/.svn/text-base/dim2_driver.f90.svn-base:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:         for_swdown(i,j) = swdown(i,j)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swdown(i,j) = swdown(i,j)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/.svn/text-base/dim2_driver.f90.svn-base: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:           for_swdown(i,j) = swdown(i,j)
src_driver/.svn/text-base/dim2_driver.f90.svn-base:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/.svn/text-base/dim2_driver.f90.svn-base: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
src_driver/readdim2.f90:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
src_driver/readdim2.f90:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/readdim2.f90:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
src_driver/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
src_driver/readdim2.f90:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
src_driver/readdim2.f90:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
src_driver/readdim2.f90:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
src_driver/readdim2.f90:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
src_driver/readdim2.f90:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
src_driver/readdim2.f90:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
src_driver/readdim2.f90:          &  swdown, rainf, snowf, tair, &
src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
src_driver/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
src_driver/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/readdim2.f90:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/readdim2.f90:               swdown(:,:) = 0.0
src_driver/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
src_driver/readdim2.f90:               swdown(:,:) = 2000.
src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
src_driver/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
src_driver/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
src_driver/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
src_driver/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
src_driver/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
src_driver/readdim2.f90:               swdown(:,:) = 0.0
src_driver/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
src_driver/readdim2.f90:               swdown(:,:) = 2000.
src_driver/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
src_driver/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
src_driver/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
src_driver/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
src_driver/readdim2.f90:  &  swdown, rainf, snowf, tair, &
src_driver/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
src_driver/readdim2.f90:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
src_driver/readdim2.f90:   CALL forcing_zoom(data_full, swdown)
src_driver/dim2_driver.f90: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
src_driver/dim2_driver.f90: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
src_driver/dim2_driver.f90: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
src_driver/dim2_driver.f90: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
src_driver/dim2_driver.f90:  swdown(:,:) = fill_init
src_driver/dim2_driver.f90:  for_swdown(:,:) = fill_init
src_driver/dim2_driver.f90: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
src_driver/dim2_driver.f90: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
src_driver/dim2_driver.f90:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/dim2_driver.f90:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
src_driver/dim2_driver.f90:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
src_driver/dim2_driver.f90:         for_swdown(i,j) = swdown(i,j)
src_driver/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
src_driver/dim2_driver.f90:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/dim2_driver.f90: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
src_driver/dim2_driver.f90:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
src_driver/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
src_driver/dim2_driver.f90:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
src_driver/dim2_driver.f90: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
.config/ppsrc/sechiba/diffuco.f90:     & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
.config/ppsrc/sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)      :: swdown           !! Down-welling surface short-wave flux (W m^{-2})
.config/ppsrc/sechiba/diffuco.f90:      CALL diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
.config/ppsrc/sechiba/diffuco.f90:       CALL chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
.config/ppsrc/sechiba/diffuco.f90:SUBROUTINE diffuco_trans_co2 (kjpindex, swdown, pb, qsurf, q2m, t2m, temp_growth, rau, u, v, q_cdrag, humrel, &
.config/ppsrc/sechiba/diffuco.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown           !! Downwelling short wave flux 
.config/ppsrc/sechiba/diffuco.f90:                 ( swdown(ji) .GT. min_sechiba )   .AND. &
.config/ppsrc/sechiba/diffuco.f90:         Iabs(:)=swdown(:)*W_to_mmol*RG_to_PAR*ext_coeff(jv)*light(jv,jl)
.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
.config/ppsrc/sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, zlwdown,       zswnet,      zswdown,       &
.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (iim,jjm), INTENT(in)             :: swdown        !! Downwelling surface short-wave flux
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex)                      :: zswdown       !! Work array to keep swdown
.config/ppsrc/sechiba/intersurf.f90:       zswdown(ik)      = swdown(i,j)
.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",zswdown
.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  zlwdown, zswnet, zswdown, zcoszang, zpb, &
.config/ppsrc/sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",zswdown)
.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, zswdown, kjpindex, kindex)
.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)           :: swdown         !! Downwelling surface short-wave flux
.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain, zprecip_snow, lwdown,        swnet,       swdown,        &
.config/ppsrc/sechiba/intersurf.f90:       precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
.config/ppsrc/sechiba/intersurf.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT(in)          :: swdown          !! Downwelling surface short-wave flux
.config/ppsrc/sechiba/intersurf.f90:            precip_rain, precip_snow, lwdown, swnet, swdown, pb, &
.config/ppsrc/sechiba/intersurf.f90:          CALL WriteFieldI_p("Wswdown",swdown)
.config/ppsrc/sechiba/intersurf.f90:          WRITE(numout,*) "Downwelling surface short-wave flux :",swdown
.config/ppsrc/sechiba/intersurf.f90:       WRITE(numout,*) "Downwelling surface short-wave flux = ",swdown
.config/ppsrc/sechiba/intersurf.f90:         zprecip_rain ,zprecip_snow,  lwdown, swnet, swdown, zcoszang, pb, &
.config/ppsrc/sechiba/intersurf.f90:    CALL xios_orchidee_send_field("swdown",swdown)
.config/ppsrc/sechiba/intersurf.f90:       CALL histwrite_p (hist_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
.config/ppsrc/sechiba/intersurf.f90:          CALL histwrite_p (hist2_id, 'swdown',   itau_sechiba, swdown,   kjpindex, kindex)
.config/ppsrc/sechiba/sechiba.f90:       precip_rain,  precip_snow,  lwdown,       swnet,      swdown,      &
.config/ppsrc/sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
.config/ppsrc/sechiba/sechiba.f90:       & precip_rain, precip_snow, lwdown, swnet, swdown, coszang, pb, &
.config/ppsrc/sechiba/sechiba.f90:    REAL(r_std),DIMENSION (kjpindex), INTENT (in)            :: swdown            !! Down-welling surface short-wave flux 
.config/ppsrc/sechiba/sechiba.f90:         & swnet, swdown, coszang, ccanopy, humrel, veget, veget_max, lai, qsintveg, qsintmax, assim_param, &
.config/ppsrc/sechiba/ioipslctrl.f90:          CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
.config/ppsrc/sechiba/ioipslctrl.f90:             CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2',  &
.config/ppsrc/sechiba/chemistry.f90:  SUBROUTINE chemistry_bvoc (kjpindex, swdown, coszang, temp_air, &
.config/ppsrc/sechiba/chemistry.f90:    REAL(r_std), DIMENSION(kjpindex), INTENT(in)               :: swdown           !! Down-welling surface short-wave flux 
.config/ppsrc/sechiba/chemistry.f90:    REAL(r_std),DIMENSION(kjpindex)          :: PAR                !! Photosynthetic active radiation, half of swdown
.config/ppsrc/sechiba/chemistry.f90:             Trans(ji) = swdown(ji)/So(ji)
.config/ppsrc/sechiba/chemistry.f90:             swdf(ji) = swdown(ji)*Fdf(ji)
.config/ppsrc/sechiba/chemistry.f90:             swdr(ji) = swdown(ji)*(un-Fdf(ji))
.config/ppsrc/sechiba/chemistry.f90:       PAR(ji)   = swdown(ji) * W_to_mmol * RG_to_PAR        ! from W/m^2 to umol photons/m^2/s and half of sw for PAR
.config/ppsrc/orchidee_ol/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::tair, ::pb, ::qair, ::swdown, ::rainf, ::snowf, ::u, ::v, ::lwdown
.config/ppsrc/orchidee_ol/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown)
.config/ppsrc/orchidee_ol/weather.f90: &  tair,pb,qair,swdown,rainf,snowf, u,v,lwdown
.config/ppsrc/orchidee_ol/weather.f90: &  tair_g,pb_g,qair_g,swdown_g,rainf_g,snowf_g, u_g,v_g,lwdown_g
.config/ppsrc/orchidee_ol/weather.f90: &  tairl,pbl,qairl,swdownl,rainfl,snowfl, ul,vl,lwdownl
.config/ppsrc/orchidee_ol/weather.f90: &    swdownl, rainfl, snowfl, tairl, ul, vl, qairl, pbl, lwdownl)
.config/ppsrc/orchidee_ol/weather.f90:       swdown(i,j)=swdownl(ij)
.config/ppsrc/orchidee_ol/weather.f90:      ALLOCATE(swdown_g(iim_g,jjm_g))
.config/ppsrc/orchidee_ol/weather.f90:      CALL gather2D_mpi(swdown, swdown_g)
.config/ppsrc/orchidee_ol/weather.f90: &            swdown_g, rainf_g, snowf_g, tair_g, u_g, v_g, qair_g, pb_g, lwdown_g)
.config/ppsrc/orchidee_ol/weather.f90:!! MAIN OUTPUT VARIABLE(S): ::swdown, ::raina, ::snowa, ::tair, ::u, ::v, ::qair, ::psurf, ::lwdown
.config/ppsrc/orchidee_ol/weather.f90:&  swdown, raina, snowa, tair, u, v, qair, psurf, lwdown)
.config/ppsrc/orchidee_ol/weather.f90:  REAL,DIMENSION(nbindex,nband),INTENT(OUT) :: swdown        !! Downward solar radiation @tex $(W.m^{-2})$ @endtex
.config/ppsrc/orchidee_ol/weather.f90:  swdown(:,:) = solad(:,:)+solai(:,:)
.config/ppsrc/orchidee_ol/weather.f90:&  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown )
.config/ppsrc/orchidee_ol/weather.f90: &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
.config/ppsrc/orchidee_ol/weather.f90:  CALL gather_weather (iim*jjm,nbindex,kindex,swdown, var_gather)
.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
.config/ppsrc/orchidee_ol/readdim2.f90:  & swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
.config/ppsrc/orchidee_ol/readdim2.f90:          swdown, coszang, precip, snowf, tair, u, v, qair, pb, lwdown, &
.config/ppsrc/orchidee_ol/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
.config/ppsrc/orchidee_ol/readdim2.f90:              swdown, precip, snowf, tair, u, v, qair, pb, lwdown)
.config/ppsrc/orchidee_ol/readdim2.f90:  &  dt_force, iim, jjm, lon, lat, zlev, zlevuv, ttm, swdown, coszang, rainf, snowf, tair, &
.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, coszang, rainf, snowf, tair, u, v, qair, pb, lwdown, &
.config/ppsrc/orchidee_ol/readdim2.f90:  &  zlev_nm1, zlevuv_nm1, swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, u_nm1, v_nm1, qair_nm1, & 
.config/ppsrc/orchidee_ol/readdim2.f90:  &  zlev_n, zlevuv_n, swdown_n, rainf_n, snowf_n, tair_n, u_n, v_n, qair_n, &
.config/ppsrc/orchidee_ol/readdim2.f90:    &  (swdown_nm1(iim,jjm), rainf_nm1(iim,jjm), snowf_nm1(iim,jjm), &
.config/ppsrc/orchidee_ol/readdim2.f90:    &  (swdown_n(iim,jjm), rainf_n(iim,jjm), snowf_n(iim,jjm), &
.config/ppsrc/orchidee_ol/readdim2.f90:          &  swdown, rainf, snowf, tair, &
.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tmin_nm1, &
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tmin_n, &
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_nm1(:,:) *coszang(:,:)/mean_coszang(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 0.0
.config/ppsrc/orchidee_ol/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 2000.
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
.config/ppsrc/orchidee_ol/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
.config/ppsrc/orchidee_ol/readdim2.f90:                       &  swdown_nm1, rainf_nm1, snowf_nm1, tair_nm1, &
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown_nm1(:,:) = swdown_n(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:                 &  swdown_n, rainf_n, snowf_n, tair_n, &
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:) *coszang(:,:)/mean_coszang(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 0.0
.config/ppsrc/orchidee_ol/readdim2.f90:            WHERE (swdown(:,:) > 2000. )
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = 2000.
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = swdown_n(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:               swdown(:,:) = (swdown_n(:,:)-swdown_nm1(:,:))*rw + swdown_nm1(:,:)
.config/ppsrc/orchidee_ol/readdim2.f90:            WRITE(numout,*) 'SWdown  : ',swdown_nm1(i_test, j_test), &
.config/ppsrc/orchidee_ol/readdim2.f90:                 &           ' < ', swdown(i_test, j_test), ' < ', swdown_n(i_test, j_test)
.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, rainf, snowf, tair, &
.config/ppsrc/orchidee_ol/readdim2.f90:!- swdown     : Downward solar radiation (W/m^2)
.config/ppsrc/orchidee_ol/readdim2.f90:  &  swdown, rainf, snowf, tair, u, v, qair, pb, lwdown
.config/ppsrc/orchidee_ol/readdim2.f90:   CALL forcing_zoom(data_full, swdown)
.config/ppsrc/orchidee_ol/dim2_driver.f90: & swdown, coszang, precip_rain, precip_snow, tair_obs, u, v, &
.config/ppsrc/orchidee_ol/dim2_driver.f90: & for_u, for_v, for_swnet, for_swdown, for_coszang, for_lwdown, &
.config/ppsrc/orchidee_ol/dim2_driver.f90: & (swdown(iim,jjm), coszang(iim,jjm), precip_rain(iim,jjm), precip_snow(iim,jjm), &
.config/ppsrc/orchidee_ol/dim2_driver.f90: &  for_swnet(iim,jjm), for_swdown(iim,jjm), for_coszang(iim,jjm), for_lwdown(iim,jjm), &
.config/ppsrc/orchidee_ol/dim2_driver.f90:  swdown(:,:) = fill_init
.config/ppsrc/orchidee_ol/dim2_driver.f90:  for_swdown(:,:) = fill_init
.config/ppsrc/orchidee_ol/dim2_driver.f90: &   swdown, coszang, precip_rain, precip_snow, tair_obs, &
.config/ppsrc/orchidee_ol/dim2_driver.f90: &       swdown, coszang, precip_rain, precip_snow, tair_obs, &
.config/ppsrc/orchidee_ol/dim2_driver.f90:              & (/ ( swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
.config/ppsrc/orchidee_ol/dim2_driver.f90:!---- and     : for_u, for_v, for_lwdown, for_swnet, for_swdown
.config/ppsrc/orchidee_ol/dim2_driver.f90:            for_swnet(i,j) = (1.-(albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
.config/ppsrc/orchidee_ol/dim2_driver.f90:         for_swdown(i,j) = swdown(i,j)
.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
.config/ppsrc/orchidee_ol/dim2_driver.f90:             &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
.config/ppsrc/orchidee_ol/dim2_driver.f90: &         for_lwdown, for_swnet, for_swdown, for_psurf, &
.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swnet(i,j) = (1.- (albedo(i,j,1)+albedo(i,j,2))/2.)*swdown(i,j)
.config/ppsrc/orchidee_ol/dim2_driver.f90:           for_swdown(i,j) = swdown(i,j)
.config/ppsrc/orchidee_ol/dim2_driver.f90:           &     (/ ( for_swdown(ilandindex(ik), jlandindex(ik)),ik=1,nbindex ) /)
.config/ppsrc/orchidee_ol/dim2_driver.f90: &       for_lwdown, for_swnet, for_swdown, for_psurf, &
Binary file .config/obj/intersurf.o matches
Binary file .config/obj/ioipslctrl.o matches
