19 subroutine gfs_surface_composites_inter_run (im, dry, icy, wet, semis_wat, semis_lnd, semis_ice, &
20 adjsfcdlw, gabsbdlw_lnd, gabsbdlw_ice, gabsbdlw_wat,&
21 adjsfcusw, adjsfcdsw, adjsfcnsw, use_lake_model, errmsg, errflg)
26 integer,
intent(in ) :: im
27 logical,
dimension(:),
intent(in ) :: dry, icy
28 logical,
dimension(:),
intent(inout) :: wet
29 real(kind=kind_phys),
dimension(:),
intent(in ) :: semis_wat, semis_lnd, semis_ice, &
30 adjsfcdlw, adjsfcdsw, adjsfcnsw
31 real(kind=kind_phys),
dimension(:),
intent(inout) :: gabsbdlw_lnd, gabsbdlw_ice, gabsbdlw_wat
32 real(kind=kind_phys),
dimension(:),
intent(out) :: adjsfcusw
33 integer,
dimension(:),
intent(in) :: use_lake_model
36 character(len=*),
intent(out) :: errmsg
37 integer,
intent(out) :: errflg
65 if (dry(i)) gabsbdlw_lnd(i) = semis_lnd(i) * adjsfcdlw(i)
66 if (icy(i)) gabsbdlw_ice(i) = semis_ice(i) * adjsfcdlw(i)
67 if (wet(i)) gabsbdlw_wat(i) = semis_wat(i) * adjsfcdlw(i)
68 adjsfcusw(i) = adjsfcdsw(i) - adjsfcnsw(i)