condsurf.F

Go to the documentation of this file.

c $Header$
c
      SUBROUTINE condsurf( jour, jourvrai, lmt_bils )
      USE dimphy
      USE mod_grid_phy_lmdz
      USE mod_phys_lmdz_para
      IMPLICIT none
c
c I. Musat 05.2005
c
c Lire chaque jour le bilan de chaleur au sol issu 
c d'un run atmospherique afin de l'utiliser dans
c dans un run "slab" ocean 
c -----------------------------------------
c jour     : input  , numero du jour a lire
c jourvrai : input  , vrai jour de la simulation  
c
c lmt_bils: bilan chaleur au sol (a utiliser pour "slab-ocean")
c
#include "netcdf.inc"
      INTEGER nid, nvarid
      INTEGER debut(2)
      INTEGER epais(2)
c
cym#include "dimensions.h"
cym#include "dimphy.h"
#include "indicesol.h"
#include "temps.h"
#include "clesphys.h"
c
      INTEGER     nannemax
      parameter( nannemax = 60 )
c
      INTEGER jour, jourvrai
      REAL lmt_bils(klon) !bilan chaleur au sol
c
c Variables locales:
      INTEGER ig, i, kt, ierr
      LOGICAL ok
      INTEGER anneelim,anneemax
      CHARACTER*20 fich
      
      REAL :: lmt_bils_glo(klon_glo)
      
cc
cc   .....................................................................
cc
cc    Pour lire le fichier limit correspondant vraiment  a l'annee de la
cc     simulation en cours , il suffit de mettre  ok_limitvrai = .TRUE.
cc
cc   ......................................................................
c
c
      
      IF (jour.LT.0 .OR. jour.GT.(360-1)) THEN
         print*,'Le jour demande n est pas correct: ', jour
         CALL abort
      ENDIF
c
       anneelim  = annee_ref
       anneemax  = annee_ref + nannemax
c
c
       IF( ok_limitvrai )       THEN
          DO  kt = 1, nannemax
           IF(jourvrai.LE. (kt-1)*360 + 359  )  THEN
              WRITE(fich,'("limit",i4,".nc")') anneelim
c             PRINT *,' Fichier  Limite ',fich
              go to 100
             ENDIF
           anneelim = anneelim + 1
          ENDDO

         print *,' PBS ! Le jour a lire sur le fichier limit ne se '
         print *,' trouve pas sur les ',nannemax,' annees a partir de '
         print *,' l annee de debut', annee_ref
         CALL EXIT(1)
c
100     CONTINUE
c
       ELSE
     
            WRITE(fich,'("limitNEW.nc")') 
c           PRINT *,' Fichier  Limite ',fich
       ENDIF
c
c Ouvrir le fichier en format NetCDF:
c
c$OMP MASTER
      IF (is_mpi_root) THEN
      ierr = nf_open(fich, nf_nowrite,nid)
      IF (ierr.NE.nf_noerr) THEN
        WRITE(6,*)' Pb d''ouverture du fichier ', fich
        WRITE(6,*)' Le fichier limit ',fich,' (avec 4 chiffres , pour' 
        WRITE(6,*)'       l an 2000 )  ,  n existe  pas !  ' 
        WRITE(6,*)' ierr = ', ierr
        CALL EXIT(1)
      ENDIF
c     DO k = 1, jour
c La tranche de donnees a lire:
c
      debut(1) = 1
      debut(2) = jourvrai
      epais(1) = klon_glo
      epais(2) = 1
c Bilan flux de chaleur au sol:
c
      ierr = nf_inq_varid(nid, "BILS", nvarid)
      IF (ierr .NE. nf_noerr) THEN
         print*, "condsurf: Le champ <BILS> est absent"
         CALL abort
      ENDIF
      print*,'debut,epais',debut,epais,'jour,jourvrai',jour,jourvrai
#ifdef NC_DOUBLE
      ierr = nf_get_vara_double(nid, nvarid,debut,epais,lmt_bils_glo)
#else
      ierr = nf_get_vara_real(nid, nvarid,debut,epais,lmt_bils_glo)
#endif
      IF (ierr .NE. nf_noerr) THEN
         print*, "condsurf: Lecture echouee pour <BILS>"
         CALL abort
      ENDIF
c     ENDDO !k = 1, jour
c
c Fermer le fichier:
c
      ierr = nf_close(nid)
      
      ENDIF ! is_mpi_root==0

c$OMP END MASTER
      CALL scatter(lmt_bils_glo,lmt_bils)
            
c
c
c     PRINT*, 'lmt_bils est lu pour jour: ', jour
c
      RETURN
      END