Set_fID Subroutine

public subroutine Set_fID(fIDIn, fIDOut, RC)

The subroutine Set_fID sets the file ID shadow variables.

History

  • 09 Jan 2016 - S. D. Eastham - Initial version

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: fIDIn
integer, intent(in), optional :: fIDOut
integer, optional :: RC

Calls

proc~~set_fid~~CallsGraph proc~set_fid Set_fID proc~assert Assert proc~set_fid->proc~assert nf90_close nf90_close proc~assert->nf90_close proc~cleanup Cleanup proc~assert->proc~cleanup proc~cleanup->nf90_close

Source Code

      Subroutine Set_fID(fIDIn, fIDOut, RC)
!
! !USES:
!
!      Use Precision_Mod, Only: f4

!
! !INPUT PARAMETERS:
!
      Integer, Optional                    :: RC
      Integer, Intent(In), Optional        :: fIDIn
      Integer, Intent(In), Optional        :: fIDOut
!
! !OUTPUT PARAMETERS:
!
      !Real(kind=sp), Intent(Out) :: TestOut
!
!-----------------------------------------------------------------------
!BOC
!
! !LOCAL VARIABLES:
!
      !=================================================================
      ! Set_fID starts here!
      !=================================================================

      RC = 0
      If (Present(fIDIn)) Then
         If (fIDInLocal.lt.0) Then
            fIDInLocal = fIDIn
         Else
            Call Assert(-1,'Set_fID','fIDIn already set')
         End If
      End If

      If (Present(fIDOut)) Then
         If (fIDOutLocal.lt.0) Then
            fIDOutLocal = fIDOut
         Else
            Call Assert(-1,'Set_fID','fIDOut already set')
         End If
      End If

      End Subroutine Set_fID