limit_slab.F90

Go to the documentation of this file.

! $Id: limit_slab.F90 2344 2015-08-21 07:23:13Z emillour $

SUBROUTINE limit_slab(itime, dtime, jour, lmt_bils, diff_sst, diff_siv)

  USE dimphy
  USE mod_grid_phy_lmdz, ONLY: klon_glo
  USE mod_phys_lmdz_para
  USE netcdf 
  USE indice_sol_mod

  IMPLICIT NONE

  include "clesphys.h"

! In- and ouput arguments
!****************************************************************************************
  INTEGER, INTENT(IN) :: itime   ! numero du pas de temps courant
  INTEGER, INTENT(IN) :: jour    ! jour a lire dans l'annee
  REAL   , INTENT(IN) :: dtime   ! pas de temps de la physique (en s)
  REAL, DIMENSION(klon), INTENT(OUT) :: lmt_bils, diff_sst, diff_siv

! Locals variables with attribute SAVE
!****************************************************************************************
  REAL, DIMENSION(:), ALLOCATABLE, SAVE :: bils_save, diff_sst_save
  REAL, DIMENSION(:), ALLOCATABLE, SAVE :: diff_siv_save
!$OMP THREADPRIVATE(bils_save, diff_sst_save, diff_siv_save)

! Locals variables
!****************************************************************************************
  INTEGER                  :: lmt_pas   
  INTEGER                  :: nvarid, nid, ierr, i
  INTEGER, DIMENSION(2)    :: start, epais 
  REAL, DIMENSION(klon_glo):: bils_glo, sst_l_glo, sst_lp1_glo, diff_sst_glo
  REAL, DIMENSION(klon_glo):: siv_l_glo, siv_lp1_glo, diff_siv_glo
  CHARACTER (len = 20)     :: modname = 'limit_slab'
  LOGICAL                  :: read_bils,read_sst,read_siv

! End declaration
!****************************************************************************************

  ! calculate number of time steps for one day
  lmt_pas = nint(86400./dtime)
  
  ! F. Codron 5/14: add defaults for bils, diff_sst (0)
  IF (mod(itime-1, lmt_pas) == 0) THEN   ! time to read
     !$OMP MASTER  ! Only master thread
     IF (is_mpi_root) THEN ! Only master processus
        print*,'in limit_slab time to read, itime=',itime
        read_bils=.true.
        read_sst=.true.
        read_siv=.true.
        
        ierr = nf90_open('limit_slab.nc', nf90_nowrite, nid)
        IF (ierr /= nf90_noerr) THEN
            read_bils=.false.
            read_sst=.false.
            read_siv=.false.
        ELSE ! read file
        
        ! La tranche de donnees a lire:
        start(1) = 1
        start(2) = jour
        epais(1) = klon_glo
        epais(2) = 1

!****************************************************************************************
! 2) Read bils and SST/ ice volume tendency
!
!****************************************************************************************
!
! Read bils_glo
        ierr = nf90_inq_varid(nid, 'BILS_OCE', nvarid)
        IF (ierr /= nf90_noerr) THEN
            read_bils=.false.
        ELSE
            ierr = nf90_get_var(nid,nvarid,bils_glo,start,epais)
            IF (ierr /= nf90_noerr) read_bils=.false.
        END IF
! Read sst_glo for this day
        ierr = nf90_inq_varid(nid, 'SST', nvarid)
        IF (ierr /= nf90_noerr)  THEN
            read_sst=.false.
        ELSE
            ierr = nf90_get_var(nid,nvarid,sst_l_glo,start,epais)
            IF (ierr /= nf90_noerr) read_sst=.false.
! Read sst_glo for one day ahead
            start(2) = jour + 1
            IF (start(2) > 360) start(2)=1
            ierr = nf90_get_var(nid,nvarid,sst_lp1_glo,start,epais)
            IF (ierr /= nf90_noerr) read_sst=.false.
        END IF

! Read siv_glo for this day
        ierr = nf90_inq_varid(nid, 'SICV', nvarid)
        IF (ierr /= nf90_noerr)  THEN
            read_siv=.false.
        ELSE
            start(2) = jour
            ierr = nf90_get_var(nid,nvarid,siv_l_glo,start,epais)
            IF (ierr /= nf90_noerr) read_siv=.false.
! Read siv_glo for one day ahead
            start(2) = jour + 1
            IF (start(2) > 360) start(2)=1
            ierr = nf90_get_var(nid,nvarid,siv_lp1_glo,start,epais)
            IF (ierr /= nf90_noerr) read_siv=.false.
        END IF

!****************************************************************************************
! 5) Close file and distribute variables to all processus
!
!****************************************************************************************
        ierr = nf90_close(nid)
        IF (ierr /= nf90_noerr) CALL abort_physic(modname,'Pb when closing file', 1)
        END IF ! Read File
        IF (read_sst) THEN
! Calculate difference in temperature between this day and one ahead
            DO i=1, klon_glo
               diff_sst_glo(i) = sst_lp1_glo(i) - sst_l_glo(i)
            END DO
        END IF !read_sst
        IF (read_siv) THEN
! Calculate difference in temperature between this day and one ahead
            DO i=1, klon_glo
               diff_siv_glo(i) = siv_lp1_glo(i) - siv_l_glo(i)
            END DO
        END IF !read_siv
     ENDIF ! is_mpi_root

!$OMP END MASTER
       
     IF (.NOT. ALLOCATED(bils_save)) THEN
        ALLOCATE(bils_save(klon), diff_sst_save(klon), diff_siv_save(klon), stat=ierr)
        IF (ierr /= 0) CALL abort_physic('limit_slab', 'pb in allocation',1)
     END IF

! Give default values if needed
     IF (read_bils) THEN
         CALL scatter(bils_glo, bils_save)
     ELSE
         bils_save(:)=0.
     END IF
     IF (read_sst) THEN
         CALL scatter(diff_sst_glo, diff_sst_save)
     ELSE
         diff_sst_save(:)=0.
     END IF
     IF (read_siv) THEN
         CALL scatter(diff_siv_glo, diff_siv_save)
     ELSE
         diff_siv_save(:)=0.
     END IF
     
  ENDIF ! time to read

  lmt_bils(:) = bils_save(:)
  diff_sst(:) = diff_sst_save(:)
  diff_siv(:) = diff_siv_save(:)

  
END SUBROUTINE limit_slab