source: branches/nemo_v3_3_beta/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/XMLIO/mod_vector_field.F90.old @ 2281

MODULE mod_field_vector
  USE mod_field
  
  PRIVATE
  
   TYPE,PUBLIC :: field_vector
     PRIVATE
     TYPE(vector), POINTER :: list
     TYPE(field),  POINTER :: default_attribut
   END TYPE field_vector

#define DATA_TYPE field
#include "vectors_def.inc"

  PUBLIC field_vector__new, field_vector__get_new

CONTAINS

#include "vectors_contains.inc"
    
  SUBROUTINE field_vector__new(Pt_vf)
  IMPLICIT NONE
    TYPE(field_vector),POINTER  :: Pt_vf
    
      CALL vector__new(Pt_vf%list)
      CALL field__new(Pt_vf%default_attribut)
  
  END SUBROUTINE field_vector__new
  

  SUBROUTINE field_vector__get_new(Pt_vf,Pt_f_out,Id)
  IMPLICIT NONE  
    TYPE(field_vector),POINTER           :: Pt_vf
    TYPE(field),POINTER                  :: Pt_f_out
    CHARACTER(LEN=str_len),OPTIONAL      :: Id
      
      CALL vector__get_new(Pt_vf%list,Pt_f_out)
      CALL field__new(Pt_f_out)
   END SUBROUTINE field_vector__get_new
   
   
END MODULE mod_field_vector