"MODULE_EXCHM.f90" linha 800 incluido o comando SAVE "TTBLEX.f90" linha 92 REAL (KIND=R4KIND), DIMENSION(IDIM1:IDIM2, JDIM1:JDIM2) , INTENT(OUT) ::& REAL (KIND=R4KIND), DIMENSION(IDIM1:IDIM2, JDIM1:JDIM2) , INTENT(INOUT) ::& "SFCDIF.f90" linha 170 170 REAL (KIND=R4KIND) , INTENT(OUT) ::& 171 & WSTAR , CT , U10 , V10 , TH02 , TH10 , Q02 , Q10 , Q100 , & 170 REAL (KIND=R4KIND) , INTENT(INOUT) ::& 171 & WSTAR , CT , U10 , V10 , TH02 , TH10 , Q02 , Q10 , Q100 , &