mod_grid_phy_lmdz.F90

Go to the documentation of this file.

!
!$Id $
!
MODULE mod_grid_phy_lmdz

  PUBLIC
  PRIVATE :: grid1dto2d_glo_igen, grid1dto2d_glo_rgen, grid1dto2d_glo_lgen, &
             grid2dto1d_glo_igen, grid2dto1d_glo_rgen, grid2dto1d_glo_lgen
  
  INTEGER,PARAMETER :: unstructured=0
  INTEGER,PARAMETER :: regular_lonlat=1

  INTEGER,SAVE :: grid_type
  INTEGER,SAVE :: nvertex
  INTEGER,SAVE :: nbp_lon  ! == iim
  INTEGER,SAVE :: nbp_lat  ! == jjmp1 (or == 1 if running 1D model)
  INTEGER,SAVE :: nbp_lev  ! == llm
  INTEGER,SAVE :: klon_glo ! total number of atmospheric columns

  INTERFACE grid1dto2d_glo
    MODULE PROCEDURE grid1dto2d_glo_i,grid1dto2d_glo_i1,grid1dto2d_glo_i2,grid1dto2d_glo_i3, &
                     grid1dto2d_glo_r,grid1dto2d_glo_r1,grid1dto2d_glo_r2,grid1dto2d_glo_r3, &
                                     grid1dto2d_glo_l,grid1dto2d_glo_l1,grid1dto2d_glo_l2,grid1dto2d_glo_l3
   END INTERFACE 

   INTERFACE grid2dto1d_glo
    MODULE PROCEDURE grid2dto1d_glo_i,grid2dto1d_glo_i1,grid2dto1d_glo_i2,grid2dto1d_glo_i3, &
                     grid2dto1d_glo_r,grid2dto1d_glo_r1,grid2dto1d_glo_r2,grid2dto1d_glo_r3, &
                                     grid2dto1d_glo_l,grid2dto1d_glo_l1,grid2dto1d_glo_l2,grid2dto1d_glo_l3
   END INTERFACE 
 
CONTAINS

!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!! SUBROUTINE grid1dTo2d  !!  
!!!!!!!!!!!!!!!!!!!!!!!!!!!!


  SUBROUTINE init_grid_phy_lmdz(grid_type_,nvertex_,nbp_lon_,nbp_lat_,nbp_lev_)
  IMPLICIT NONE
  INTEGER,INTENT(IN)  :: grid_type_ 
  INTEGER,INTENT(IN)  :: nvertex_ 
  INTEGER, INTENT(IN) :: nbp_lon_
  INTEGER, INTENT(IN) :: nbp_lat_
  INTEGER, INTENT(IN) :: nbp_lev_
  
    grid_type = grid_type_
    nvertex   = nvertex_
    nbp_lon   = nbp_lon_
    nbp_lat   = nbp_lat_
    nbp_lev   = nbp_lev_
    
    IF (nbp_lon*nbp_lat==1) THEN
      klon_glo=1
    ELSE    
      klon_glo=(nbp_lon*nbp_lat)-2*(nbp_lon-1)
    ENDIF
  
  END SUBROUTINE init_grid_phy_lmdz
  
  
  SUBROUTINE grid1dto2d_glo_i(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:)     :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid1dto2d_glo_igen(varin,varout,1)
  
  END SUBROUTINE grid1dto2d_glo_i
  

  SUBROUTINE grid1dto2d_glo_i1(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:)     :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_igen(varin,varout,size(varin,2))
  
  END SUBROUTINE grid1dto2d_glo_i1

  SUBROUTINE grid1dto2d_glo_i2(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_igen(varin,varout,size(varin,2)*size(varin,3))
  
  END SUBROUTINE grid1dto2d_glo_i2
  
  SUBROUTINE grid1dto2d_glo_i3(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_igen(varin,varout,size(varin,2)*size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid1dto2d_glo_i3


  SUBROUTINE grid1dto2d_glo_r(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:)     :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid1dto2d_glo_rgen(varin,varout,1)
  
  END SUBROUTINE grid1dto2d_glo_r
  

  SUBROUTINE grid1dto2d_glo_r1(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_rgen(varin,varout,size(varin,2))
  
  END SUBROUTINE grid1dto2d_glo_r1

  SUBROUTINE grid1dto2d_glo_r2(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_rgen(varin,varout,size(varin,2)*size(varin,3))
  
  END SUBROUTINE grid1dto2d_glo_r2
  
  SUBROUTINE grid1dto2d_glo_r3(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_rgen(varin,varout,size(varin,2)*size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid1dto2d_glo_r3
  
  
  
  SUBROUTINE grid1dto2d_glo_l(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:)     :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid1dto2d_glo_lgen(varin,varout,1)
  
  END SUBROUTINE grid1dto2d_glo_l
  

  SUBROUTINE grid1dto2d_glo_l1(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:)     :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_lgen(varin,varout,size(varin,2))
  
  END SUBROUTINE grid1dto2d_glo_l1

  SUBROUTINE grid1dto2d_glo_l2(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:,:)     :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_lgen(varin,varout,size(varin,2)*size(varin,3))
  
  END SUBROUTINE grid1dto2d_glo_l2
  
  SUBROUTINE grid1dto2d_glo_l3(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:)     :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:,:)  :: VarOut
    
    CALL grid1dto2d_glo_lgen(varin,varout,size(varin,2)*size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid1dto2d_glo_l3  
  
    SUBROUTINE grid2dto1d_glo_i(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:) :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:)  :: VarOut
    
    CALL grid2dto1d_glo_igen(varin,varout,1)
  
  END SUBROUTINE grid2dto1d_glo_i
  

  SUBROUTINE grid2dto1d_glo_i1(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:,:) :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid2dto1d_glo_igen(varin,varout,size(varin,3))
  
  END SUBROUTINE grid2dto1d_glo_i1

  SUBROUTINE grid2dto1d_glo_i2(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_igen(varin,varout,size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid2dto1d_glo_i2
  
  SUBROUTINE grid2dto1d_glo_i3(VarIn,VarOut)  
  IMPLICIT NONE  
    INTEGER,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_igen(varin,varout,size(varin,3)*size(varin,4)*size(varin,5))
  
  END SUBROUTINE grid2dto1d_glo_i3
 



  SUBROUTINE grid2dto1d_glo_r(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:) :: VarIn
    REAL,INTENT(OUT),DIMENSION(:)  :: VarOut
    
    CALL grid2dto1d_glo_rgen(varin,varout,1)
  
  END SUBROUTINE grid2dto1d_glo_r
  

  SUBROUTINE grid2dto1d_glo_r1(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid2dto1d_glo_rgen(varin,varout,size(varin,3))
  
  END SUBROUTINE grid2dto1d_glo_r1

  SUBROUTINE grid2dto1d_glo_r2(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_rgen(varin,varout,size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid2dto1d_glo_r2
  
  SUBROUTINE grid2dto1d_glo_r3(VarIn,VarOut)  
  IMPLICIT NONE  
    REAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
    REAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_rgen(varin,varout,size(varin,3)*size(varin,4)*size(varin,5))
  
  END SUBROUTINE grid2dto1d_glo_r3



  SUBROUTINE grid2dto1d_glo_l(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:) :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:)  :: VarOut
    
    CALL grid2dto1d_glo_lgen(varin,varout,1)
  
  END SUBROUTINE grid2dto1d_glo_l
  

  SUBROUTINE grid2dto1d_glo_l1(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:,:) :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:)  :: VarOut
    
    CALL grid2dto1d_glo_lgen(varin,varout,size(varin,3))
  
  END SUBROUTINE grid2dto1d_glo_l1

  SUBROUTINE grid2dto1d_glo_l2(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:) :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_lgen(varin,varout,size(varin,3)*size(varin,4))
  
  END SUBROUTINE grid2dto1d_glo_l2
  
  SUBROUTINE grid2dto1d_glo_l3(VarIn,VarOut)  
  IMPLICIT NONE  
    LOGICAL,INTENT(IN),DIMENSION(:,:,:,:,:) :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(:,:,:,:)  :: VarOut
    
    CALL grid2dto1d_glo_lgen(varin,varout,size(varin,3)*size(varin,4)*size(varin,5))
  
  END SUBROUTINE grid2dto1d_glo_l3

!---------------------------------------------------------------- 
!  Generic (private) fonctions
!---------------------------------------------------------------- 
  
  SUBROUTINE grid1dto2d_glo_igen(VarIn,VarOut,dimsize)

    IMPLICIT NONE

    INTEGER,INTENT(IN) :: dimsize
    INTEGER,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
    INTEGER :: i,ij,Offset

    
    offset=nbp_lon
        
    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij+offset-1,i)=varin(ij,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=1,nbp_lon
       varout(ij,i)=varin(1,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
       varout(ij,i)=varin(klon_glo,i)
      ENDDO
    ENDDO

  END SUBROUTINE grid1dto2d_glo_igen   


  SUBROUTINE grid1dto2d_glo_rgen(VarIn,VarOut,dimsize)

    IMPLICIT NONE

    INTEGER,INTENT(IN) :: dimsize
    REAL,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
    REAL,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
    INTEGER :: i,ij,Offset

   
    offset=nbp_lon
        
    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij+offset-1,i)=varin(ij,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=1,nbp_lon
       varout(ij,i)=varin(1,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
       varout(ij,i)=varin(klon_glo,i)
      ENDDO
    ENDDO

  END SUBROUTINE grid1dto2d_glo_rgen   

  SUBROUTINE grid1dto2d_glo_lgen(VarIn,VarOut,dimsize)

    IMPLICIT NONE
    
    INTEGER,INTENT(IN) :: dimsize
    LOGICAL,INTENT(IN) ,DIMENSION(klon_glo,dimsize)       :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(nbp_lon*nbp_lat,dimsize)  :: VarOut
    INTEGER :: i,ij,Offset

    offset=nbp_lon
        
    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij+offset-1,i)=varin(ij,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=1,nbp_lon
       varout(ij,i)=varin(1,i)
      ENDDO
    ENDDO
    
    
    DO i=1,dimsize
      DO ij=nbp_lon*(nbp_lat-1)+1,nbp_lat*nbp_lon
       varout(ij,i)=varin(klon_glo,i)
      ENDDO
    ENDDO

  END SUBROUTINE grid1dto2d_glo_lgen     
  
  
  SUBROUTINE grid2dto1d_glo_igen(VarIn,VarOut,dimsize)

    IMPLICIT NONE

    INTEGER,INTENT(IN) :: dimsize
    INTEGER,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
    INTEGER,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
    INTEGER :: i,ij,offset

    offset=nbp_lon

    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij,i)=varin(ij+offset-1,i)
      ENDDO
    ENDDO

    DO i=1,dimsize
      varout(1,i)=varin(1,i)
    ENDDO
    
  END SUBROUTINE grid2dto1d_glo_igen   
  
  SUBROUTINE grid2dto1d_glo_rgen(VarIn,VarOut,dimsize)

    IMPLICIT NONE

    INTEGER,INTENT(IN) :: dimsize
    REAL,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
    REAL,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
    INTEGER :: i,ij,offset

    offset=nbp_lon

    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij,i)=varin(ij+offset-1,i)
      ENDDO
    ENDDO

    DO i=1,dimsize
      varout(1,i)=varin(1,i)
    ENDDO
    
  END SUBROUTINE grid2dto1d_glo_rgen 
    
  SUBROUTINE grid2dto1d_glo_lgen(VarIn,VarOut,dimsize)

    IMPLICIT NONE

    INTEGER,INTENT(IN) :: dimsize
    LOGICAL,INTENT(IN) ,DIMENSION(nbp_lon*nbp_lat,dimsize) :: VarIn
    LOGICAL,INTENT(OUT),DIMENSION(klon_glo,dimsize)      :: VarOut
    INTEGER :: i,ij,offset

    offset=nbp_lon

    DO i=1,dimsize
      DO ij=1,klon_glo
        varout(ij,i)=varin(ij+offset-1,i)
      ENDDO
    ENDDO

    DO i=1,dimsize
      varout(1,i)=varin(1,i)
    ENDDO
    
  END SUBROUTINE grid2dto1d_glo_lgen   

END MODULE mod_grid_phy_lmdz