source: codes/icosagcm/trunk/src/etat0.f90 @ 46

MODULE etat0_mod


CONTAINS
  
  SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
  USE icosa
  USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0
  USE etat0_academic_mod, ONLY : etat0_academic=>etat0  
  USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0  
  USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0  
  IMPLICIT NONE
    TYPE(t_field),POINTER :: f_ps(:)
    TYPE(t_field),POINTER :: f_phis(:)
    TYPE(t_field),POINTER :: f_theta_rhodz(:)
    TYPE(t_field),POINTER :: f_u(:)
    TYPE(t_field),POINTER :: f_q(:)

    CHARACTER(len=255) :: etat0_type
    
    etat0_type='jablonowsky06'
    CALL getin("etat0",etat0_type)
    
    SELECT CASE (TRIM(etat0_type))
      CASE ('jablonowsky06')
        CALL etat0_jablonowsky06(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
      CASE ('academic')
        CALL etat0_academic(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
      CASE ('ncar')
        CALL etat0_ncar(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
      CASE ('dcmip3')
        CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
      CASE DEFAULT
        PRINT*, 'Bad selector for varaiable etat0 <',etat0_type,'> options are <jablonowsky06>, <academic>, <ncar> '
        STOP
    END SELECT 

  END SUBROUTINE etat0  
         
END MODULE etat0_mod