Pull request ecmwf-ifs#43: Offload radiation transfer physics parametrization

Author: awnawab

src/surf/external/surfrad.F90

@@ -1,4 +1,4 @@
-SUBROUTINE SURFRAD(YSURF,KDD,KMM,KMON,KSECO,&
+SUBROUTINE SURFRAD(YDESURF,KDD,KMM,KMON,KSECO,&
  & KIDIA,KFDIA,KLON,KTILES,KCSS,KSSDP3D,KSW,KLW,&
  & LDNH,LDLAND,&
  & PSSDP3,&
@@ -122,7 +122,7 @@ SUBROUTINE SURFRAD(YSURF,KDD,KMM,KMON,KSECO,&
 IMPLICIT NONE
 ! Declaration of arguments
 
-TYPE(TSURF)       ,INTENT(IN)    :: YSURF
+TYPE(TSURF)       ,INTENT(IN)    :: YDESURF
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDD
 INTEGER(KIND=JPIM),INTENT(IN)    :: KMM
 INTEGER(KIND=JPIM),INTENT(IN)    :: KMON(12)

src/surf/interface/surfrad.h

@@ -111,8 +111,8 @@ IMPLICIT NONE
 
 ! Declaration of arguments
 
-REAL(KIND=JPRB)   ,INTENT(IN)    :: PSSDP3(KLON,KCSS,KSSDP3D)
 TYPE(TSURF)       ,INTENT(IN)    :: YDESURF
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSSDP3(KLON,KCSS,KSSDP3D)
 INTEGER(KIND=JPIM),INTENT(IN)    :: KDD
 INTEGER(KIND=JPIM),INTENT(IN)    :: KMM
 INTEGER(KIND=JPIM),INTENT(IN)    :: KMON(12)

src/surf/offline/driver/callpar1s.F90

@@ -537,7 +537,7 @@ SUBROUTINE CALLPAR1S (CDCONF &
     PSURF%GSD%PALBICEF(KIDIA:KFDIA) = -999._JPRB
 
     CALL SURFRAD &
-     &     ( YSURF,KDD=IDD, KMM=IMM, KMON=IMON  , KSECO=ISEC0 &
+     &     ( YSURF=YSURF, KDD=IDD, KMM=IMM, KMON=IMON  , KSECO=ISEC0 &
      &     , KIDIA=KIDIA, KFDIA=KFDIA, KLON=KLON   , KTILES=KTILES , KCSS=NCSS, KSSDP3D=NSSDP3D, KSW=NSW, KLW=NLWEMISS &
      &     , LDNH=LLKEYS%LLNH,LDLAND=LLKEYS%LLLAND &
      &     , PSSDP3=PINTER%PSSDP3 &