Back to OASIS3 home

Modules used for the coupler (in oasis3/src) :

mod_string : contains set of self consistent strings for each field
used in driver.F, interp.F

!@ First line of SSCS :
!@ ------------------
!@ -- cnaminp : symbolic name of input indirect fields
!@ -- cnamout : symbolic name of output indirect fields
!@ -- cg_input_field : symbolic name of all input fields
!@ -- cg_output_field : symbolic name of all output fields
!@ -- numlab : label number of exchanged fields indirectly
!@ -- ig_numlab : label number of all exchanged fields
!@ -- nfexch : coupling frequency of exchanged indirect fields (in seconds)
!@ -- ig_freq : coupling frequency of all exchanged fields (in seconds)
!@ -- ig_ntrans : number of analysis performed for each field
!@ -- cficinp : restart file name of indirect input fields
!@ -- cg_restart_file : restart file name of all input fields 
!@ -- ig_nbr_rstfile : number of different restart file
!@ -- ig_no_rstfile : restart file number
!@ -- cg_name_rstfile : name of restart file corresponding to ig_no_rstfile
!@ -- cficout : file name for output field in cases 'PIPE' or 'NONE'
!@ -- cg_input_file : file name for input file in cases 'IGNOUT' or 'EXPOUT'
!@ -- ig_lag : lag of exported field
!@ -- nluninp : logical unit for input field
!@ -- nlunout : logical unit for output field
!@ -- cstate : field I/O status of indirect fields
!@ -- ig_total_state : field I/O status of all the fields
!@ -- lg_state : LOGICAL indicating if the field goes through Oasis (.true.) or not (.false.)
!@ -- ifrqmin : minimum exchange frequency of indirect fields
!@ -- ig_total_frqmin :  minimum exchange frequency of all the fields
!@ -- ig_number_field : Rank of the field going through oasis in total number of fields
!@ -- ig_local_trans : Local transformation of fields
!@
!@ Second line of SSCS :
!@ -------------------
!@ -- nlonbf : number of longitudes for initial fields
!@ -- nlatbf : number of latitudes for initial fields
!@ -- nlonaf : number of longitudes for initial fields
!@ -- nlataf : number of latitudes for initial fields
!@ -- cficbf : root name of specific files for initial fields
!@ -- cficaf : root name of specific files for final fields
!@ -- ig_grid_nbrbf : grid number associated to a field before interpolation
!@ -- ig_grid_nbraf : grid number associated to a field after interpolation
!@ -- nseqn  : sequential index of indirect fields
!@ -- nlagn  : lag index of indirect fields
!@ -- ig_total_nseqn : sequential index of all the fields
!@ -- ig_invert: index=1 if INVERT is used for that field
!@ -- ig_reverse: index=1 if REVERSE is used for that field
!@  
!@ Third line of SSCS :
!@ ------------------
!@ -- canal : names of analysis performed for each field
!@ Relation between symbolic name of the field and port number of
!@ CLIM library :
!@ -- ig_portin_id : port number of input fields
!@ -- ig_portout_id : port number of output fields
!  -------------------------------------------------------------------
  USE mod_kinds_oasis
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: numlab, ig_numlab, nfexch, ig_ntrans
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_total_ntrans
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: nluinp, nluout, nlonbf
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: nlatbf, nlonaf, nlataf
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: nseqn, ig_total_nseqn
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_freq, ig_lag, nlagn
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_invert, ig_reverse
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_number_field, ig_no_rstfile
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_total_state, ig_local_trans
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_portin_id, ig_portout_id
  INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: ig_grid_nbrbf, ig_grid_nbraf
  INTEGER (kind=ip_intwp_p)                          :: ifrqmin, ig_nbr_rstfile
  INTEGER (kind=ip_intwp_p)                          :: ig_total_frqmin
  LOGICAL,DIMENSION(:),ALLOCATABLE :: lg_state
  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE :: cnaminp, cnamout
  CHARACTER(len=8),DIMENSION(:,:),ALLOCATABLE :: canal
  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE :: cg_name_rstfile, cg_restart_file
  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE :: cficinp, cficout
  CHARACTER(len=32),DIMENSION(:),ALLOCATABLE :: cg_input_file
  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE :: cg_input_field, cg_output_field
  CHARACTER(len=8),DIMENSION(:),ALLOCATABLE :: cficbf, cficaf, cstate
  CHARACTER(len=4),DIMENSION(:),ALLOCATABLE :: cga_locatorbf, cga_locatoraf
!     -------------------------------------------------------------------