CALLPAR1S: remove redundant YSURF declaration and pass integer to UPDCAL

Author: awnawab

src/surf/offline/driver/callpar1s.F90

@@ -371,7 +371,7 @@ SUBROUTINE CALLPAR1S (CDCONF &
 LOGICAL          :: LNEMOLIMALB
 LOGICAL          :: LNEMOICETHK
 !
-INTEGER(KIND=JPIM) :: JPDIAG=12
+INTEGER(KIND=JPIM) :: JPDIAG=12,KULOUT=-1_JPIM
 !
 REAL(KIND=JPHOOK) :: ZHOOK_HANDLE
 
@@ -508,7 +508,7 @@ SUBROUTINE CALLPAR1S (CDCONF &
     IYY=NCCAA(IYMD)
     IINC=0
     ISEC0=MOD(NSSSSS+NINT(RSTATI,KIND=JPIB),NINT(RDAY))
-    CALL UPDCAL(IDD, IMM, IYY, IINC, IDD, IMM, IYY, IMON, -1_JPIM)
+    CALL UPDCAL(IDD, IMM, IYY, IINC, IDD, IMM, IYY, IMON,KULOUT)
     PAUXL%ZWND(KIDIA:KFDIA)=SQRT(STATE%PU(KIDIA:KFDIA)**2  &
    &                            +STATE%PV(KIDIA:KFDIA)**2)
     PSURF%GSP%ZWS1(KIDIA:KFDIA)=PSURF%GSP%PWSA(KIDIA:KFDIA,1)