source: codes/icosagcm/trunk/src/physics/dimphys.f90

MODULE dimphys_mod
        USE ICOSA
      INTEGER::nsoilmx=10,offset
      INTEGER::ngridmx,nlayermx
      LOGICAL::callrad,calldifv,calladj,callcond,callsoil
      LOGICAL::season,diurnal,lverbose
      INTEGER:: iradia
      REAL:: period_sort,timeperi
      REAL:: aphelie,periheli,year_day,peri_day,obliquit
      REAL::e_elips,p_elips,unitastr
      REAL:: coefvis,coefir

      REAL,ALLOCATABLE:: albedo(:),emissiv(:),inertie(:)
      REAL,ALLOCATABLE:: tsurf(:),tsoil(:,:)
      REAL,ALLOCATABLE:: z0(:),rnatur(:)
      REAL,ALLOCATABLE:: dtrad(:,:) ,fluxrad(:)
      REAL,ALLOCATABLE:: capcal(:)  ,fluxgrd(:)
      REAL,ALLOCATABLE:: q2(:,:),q2l(:,:)


!      REAL,allocatable:: albedo(:),emissiv(:),inertie(:)
!      REAL,allocatable:: z0(:),rnatur(:)

!      REAL,allocatable::tsurf(:),tsoil(:,:)
!      REAL,allocatable::fluxrad(:),fluxgrd(:)
!      REAL,ALLOCATABLE::capcal(:)
END MODULE dimphys_mod