Changeset 634


Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (20 years ago)
Author:
Laurent Fairhead
Message:

Modifications faites à la physique pour la rendre parallele YM
Une branche de travail LMDZ4_par_0 a été créée provisoirement afin de tester
les modifs pleinement avant leurs inclusions dans le tronc principal
LF

Location:
LMDZ4/branches/LMDZ4_par_0
Files:
77 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_par_0/libf/dyn3d/gcm.F

    r633 r634  
    99      USE IOIPSL
    1010#endif
     11
     12      USE dimphy
     13      USE comgeomphy
    1114
    1215      IMPLICIT NONE
    … …  
    188191c
    189192c
     193c------------------------------------
     194c   Initialisation partie parallele
     195c------------------------------------
     196      call InitDimphy
     197      call InitComgeomphy
     198
    190199c-----------------------------------------------------------------------
    191200c   Initialisation des traceurs

  • LMDZ4/branches/LMDZ4_par_0/libf/dyn3d/paramet.h

    r524 r634  
    1010      INTEGER jcfil,jcfllm
    1111
    12       PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3
    13      s    ,jjp1=jjm+1-1/jjm)
     12      PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3)
     13      PARAMETER( jjp1=jjm+1-1/jjm)
    1414      PARAMETER( llmp1 = llm+1,  llmp2 = llm+2, llmm1 = llm-1 )
    1515      PARAMETER( kftd  = iim/2 -ndm )

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/aeropt.F

    r524 r634  
    55     .            tau_ae, piz_ae, cg_ae, ai        )
    66c
     7      USE dimphy
    78      IMPLICIT none
    89c
    910c
    1011c     
    11 #include "dimensions.h"
    12 #include "dimphy.h"
     12cym#include "dimensions.h"
     13cym#include "dimphy.h"
    1314#include "YOMCST.h"
    1415c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ajsec.F

    r524 r634  
    33!
    44      SUBROUTINE ajsec(paprs, pplay, t,q, d_t,d_q)
     5      USE dimphy
    56      IMPLICIT none
    67c======================================================================
    … …  
    1314c d_t-----output-R-Incrementation de la temperature
    1415c======================================================================
    15 #include "dimensions.h"
    16 #include "dimphy.h"
     16cym#include "dimensions.h"
     17cym#include "dimphy.h"
    1718#include "YOMCST.h"
    1819      REAL paprs(klon,klev+1), pplay(klon,klev)
    … …  
    2223      INTEGER limbas, limhau ! les couches a ajuster
    2324ccc      PARAMETER (limbas=klev-3, limhau=klev)
    24       PARAMETER (limbas=1, limhau=klev)
     25cym      PARAMETER (limbas=1, limhau=klev)
    2526c
    2627      LOGICAL mixq
    … …  
    3839c Initialisation:
    3940c
     41cym
     42      limbas=1
     43      limhau=klev
     44 
    4045      DO k = 1, klev
    4146      DO i = 1, klon
    … …  
    149154      END
    150155      SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
     156      USE dimphy
    151157      IMPLICIT none
    152158c======================================================================
    … …  
    159165c d_t-----output-R-Incrementation de la temperature
    160166c======================================================================
    161 #include "dimensions.h"
    162 #include "dimphy.h"
     167cym#include "dimensions.h"
     168cym#include "dimphy.h"
    163169#include "YOMCST.h"
    164170      REAL paprs(klon,klev+1), pplay(klon,klev)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/albedo.F

    r633 r634  
    55c
    66      SUBROUTINE alboc(rjour,rlat,albedo)
     7      USE dimphy
    78      IMPLICIT none
    89c======================================================================
    … …  
    1718c albedo (out,R): albedo obtenu (de 0 a 1)
    1819c======================================================================
    19 #include "dimensions.h"
    20 #include "dimphy.h"
     20cym#include "dimensions.h"
     21cym#include "dimphy.h"
    2122#include "YOMCST.h"
    2223c
    … …  
    127128c=====================================================================
    128129      SUBROUTINE alboc_cd(rmu0,albedo)
     130      USE dimphy
    129131      IMPLICIT none
    130132c======================================================================
    … …  
    140142c albedo (out): albedo de surface de l'ocean
    141143c======================================================================
    142 #include "dimensions.h"
    143 #include "dimphy.h"
     144cym#include "dimensions.h"
     145cym#include "dimphy.h"
    144146      REAL rmu0(klon), albedo(klon)
    145147c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/calcratqs.F

    r524 r634  
    55     I            paprs,pplay,q_seri,d_t_con,d_t_ajs
    66     O           ,ratqs,zpt_conv)
     7      USE dimphy
    78      IMPLICIT none
    89c======================================================================
    … …  
    2324c pplay---input-R-pression pour le mileu de chaque couche (en Pa)
    2425c presnivs-input_R_pressions approximat. des milieux couches ( en PA)
    25 #include "dimensions.h"
    26 #include "dimphy.h"
     26cym#include "dimensions.h"
     27cym#include "dimphy.h"
    2728      REAL paprs(klon,klev+1)
    2829      REAL pplay(klon,klev)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/calltherm.F

    r633 r634  
    88     s      ,fm_therm,entr_therm)
    99
     10      USE dimphy
    1011      implicit none
    11 #include "dimensions.h"
    12 #include "dimphy.h"
     12cym#include "dimensions.h"
     13cym#include "dimphy.h"
    1314#include "thermcell.h"
    1415
    … …  
    3536      REAL d_u_the(klon,klev),d_v_the(klon,klev)
    3637c
    37       real zfm_therm(klon,klev+1),zentr_therm(klon,klev),zdt
    38       save zentr_therm,zfm_therm
    39 
     38cym      real zfm_therm(klon,klev+1),zentr_therm(klon,klev),zdt
     39cym      save zentr_therm,zfm_therm
     40      real,allocatable,dimension(:,:),save :: zfm_therm,zentr_therm
     41      real :: zdt
     42      logical,save :: first=.true.
    4043      integer i,k
    4144
    … …  
    4750       print*,'avant isplit ',nsplit_thermals
    4851
    49 
     52cym initialisation dynamique
     53         if (first) then
     54           allocate(zfm_therm(klon,klev+1),zentr_therm(klon,klev))
     55           zfm_therm(:,:)=0.
     56           zentr_therm(:,:)=0.
     57           first=.false.
     58         endif
     59         
    5060         fm_therm(:,:)=0.
    5161         entr_therm(:,:)=0.

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/clmain.F

    r633 r634  
    44c
    55c
     6#define IO_DISCONNECTED
     7
    68      SUBROUTINE clmain(dtime,itap,date0,pctsrf,pctsrf_new,
    79     .                  t,q,u,v,
    … …  
    3941      USE ioipsl
    4042      USE interface_surf
     43      USE dimphy
    4144      IMPLICIT none
    4245c======================================================================
    … …  
    8386c d_tr-------output-R tendance de traceurs
    8487c======================================================================
    85 #include "dimensions.h"
    86 #include "dimphy.h"
     88cym#include "dimensions.h"
     89cym#include "dimphy.h"
    8790#include "indicesol.h"
    8891c$$$ PB ajout pour soil
    … …  
    225228      INTEGER nhoridbg, nidbg
    226229      SAVE nhoridbg, nidbg
     230#ifndef IO_DISCONNECTED
    227231      INTEGER ndexbg(iim*(jjm+1))
    228232      REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1), zjulian
    229233      REAL tabindx(klon)
    230234      REAL debugtab(iim,jjm+1)
     235#endif
    231236      LOGICAL first_appel
    232237      SAVE first_appel
    … …  
    274279! initialisation sorties netcdf
    275280!
     281#ifndef IO_DISCONNECTED
    276282          idayref = day_ini
    277283          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    … …  
    297303          CALL histend(nidbg)
    298304          CALL histsync(nidbg)
     305#endif
    299306      ENDIF
    300307         
    … …  
    430437c variables pour avoir une sortie IOIPSL des INDEX
    431438c
     439#ifndef IO_DISCONNECTED
    432440      IF (debugindex) THEN
    433441          tabindx(:)=0.
    … …  
    442450     $        ,ndexbg)
    443451      ENDIF
     452#endif
     453
     454      fluxlat(:,nsrf) = 0.
     455     
    444456      IF (knon.EQ.0) GOTO 99999
    445457      DO j = 1, knon
    … …  
    927939
    928940      USE interface_surf
    929 
     941      USE dimphy
    930942      IMPLICIT none
    931943c======================================================================
    … …  
    934946c======================================================================
    935947#include "dimensions.h"
    936 #include "dimphy.h"
     948cym#include "dimphy.h"
    937949#include "YOMCST.h"
    938950#include "YOETHF.h"
    … …  
    12031215      ccanopy = co2_ppm
    12041216
     1217!      if (monocpu) then
     1218
    12051219      CALL interfsurf(itime, dtime, date0, jour, rmu0,
    12061220     e klon, iim, jjm, nisurf, knon, knindex, pctsrf,
    … …  
    12221236     s pctsrf_new, agesno,fqcalving,ffonte, run_off_lic_0)
    12231237
     1238!      else
     1239       
     1240!       STOP 'clmain : interfsurf n est pas encore parallelise => abort'
     1241       
     1242!      endif
     1243     
    12241244
    12251245      do i = 1, knon
    … …  
    12681288     e                  paprs,pplay,delp,
    12691289     s                  d_ven,flux_v)
     1290      use dimphy
    12701291      IMPLICIT none
    12711292c======================================================================
    … …  
    12901311c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s)
    12911312c======================================================================
    1292 #include "dimensions.h"
    1293 #include "dimphy.h"
     1313cym#include "dimensions.h"
     1314cym#include "dimphy.h"
    12941315#include "iniprint.h"
    12951316      INTEGER knon
    … …  
    13931414     .                  qsurf,
    13941415     .                  pcfm, pcfh)
     1416      USE dimphy
    13951417      IMPLICIT none
    13961418c======================================================================
    … …  
    14151437c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
    14161438c======================================================================
    1417 #include "dimensions.h"
    1418 #include "dimphy.h"
     1439cym#include "dimensions.h"
     1440cym#include "dimphy.h"
    14191441#include "YOMCST.h"
    14201442#include "indicesol.h"
    … …  
    14621484      PARAMETER (mixlen=35.0)
    14631485      INTEGER isommet ! le sommet de la couche limite
    1464       PARAMETER (isommet=klev)
     1486cym      PARAMETER (isommet=klev)
    14651487      LOGICAL tvirtu ! calculer Ri d'une maniere plus performante
    14661488      PARAMETER (tvirtu=.TRUE.)
    … …  
    15101532      DATA appel1er /.TRUE./
    15111533c
     1534cym
     1535      isommet=klev
     1536     
    15121537      IF (appel1er) THEN
    15131538        if (prt_level > 9) THEN
    … …  
    17131738      SUBROUTINE coefkz2(nsrf, knon, paprs, pplay,t,
    17141739     .                  pcfm, pcfh)
     1740      USE dimphy
    17151741      IMPLICIT none
    17161742c======================================================================
    … …  
    17291755c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
    17301756c======================================================================
    1731 #include "dimensions.h"
    1732 #include "dimphy.h"
     1757cym#include "dimensions.h"
     1758cym#include "dimphy.h"
    17331759#include "YOMCST.h"
    17341760#include "indicesol.h"
    … …  
    18161842      SUBROUTINE calbeta(dtime,indice,knon,snow,qsol,
    18171843     .                    vbeta,vcal,vdif)
     1844      USE dimphy
    18181845      IMPLICIT none
    18191846c======================================================================
    … …  
    18241851c Calculer quelques parametres pour appliquer la couche limite
    18251852c ------------------------------------------------------------
    1826 #include "dimensions.h"
    1827 #include "dimphy.h"
     1853cym#include "dimensions.h"
     1854cym#include "dimphy.h"
    18281855#include "YOMCST.h"
    18291856#include "indicesol.h"
    … …  
    18931920     .                    tsol,beta,u,v,t,q,
    18941921     .                    cd_h, cd_m, pcfh, pcfm, cgh, cgq)
     1922      USE dimphy
    18951923      IMPLICIT none
    18961924c======================================================================
    … …  
    19071935c model. J. of Climate, vol. 6, 1825-1842.
    19081936c======================================================================
    1909 #include "dimensions.h"
    1910 #include "dimphy.h"
     1937cym#include "dimensions.h"
     1938cym#include "dimphy.h"
    19111939#include "YOMCST.h"
    19121940#include "iniprint.h"
    … …  
    19271955c
    19281956      INTEGER isommet
    1929       PARAMETER (isommet=klev)
     1957cym      PARAMETER (isommet=klev)
    19301958      REAL vk
    19311959      PARAMETER (vk=0.40)
    … …  
    20032031c Initialisation
    20042032c
     2033cym
     2034      isommet=klev
     2035
    20052036      DO i = 1, klon
    20062037         pcfh(i,1) = cd_h(i)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/cltrac.F

    r524 r634  
    44      SUBROUTINE cltrac(dtime,coef,t,tr,flux,paprs,pplay,delp,
    55     s                  d_tr)
     6      USE dimphy
    67      IMPLICIT none
    78c======================================================================
    … …  
    2526c flux_tr--output-R- flux de tr
    2627c======================================================================
    27 #include "dimensions.h"
    28 #include "dimphy.h"
     28cym#include "dimensions.h"
     29cym#include "dimphy.h"
    2930      REAL dtime
    3031      REAL coef(klon,klev)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/cltracrn.F

    r524 r634  
    99     s              d_tr,d_trs )
    1010
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    4243c d_trs----output-R- le changement de "trs"
    4344c======================================================================
    44 #include "dimensions.h"
    45 #include "dimphy.h"
     45cym#include "dimensions.h"
     46cym#include "dimphy.h"
    4647#include "YOMCST.h"
    4748#include "indicesol.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/coefkzmin.F

    r524 r634  
    55     .   ,km,kn)
    66c      SUBROUTINE coefkzmin(ngrid,zlev,teta,ustar,km,kn)
     7      USE dimphy
    78      IMPLICIT NONE
    89
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112#include "YOMCST.h"
    1213
    … …  
    5960
    6061      integer nlay,nlev
    61       PARAMETER (nlay=klev)
    62       PARAMETER (nlev=klev+1)
     62cym      PARAMETER (nlay=klev)
     63cym      PARAMETER (nlev=klev+1)
    6364
    6465      integer ig,k
    … …  
    7172      real fl,zzz,zl0,zq2,zn2
    7273
    73 
     74      nlay=klev
     75      nlev=klev+1
    7476c.......................................................................
    7577c  en attendant une version ou les zlev, et zlay soient

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conccm.F

    r524 r634  
    55     s                   d_t, d_q, rain, snow, kbascm, ktopcm)
    66c
     7      USE dimphy
    78      IMPLICIT none
    89c======================================================================
    … …  
    1112c        (schema standard du modele NCAR CCM2)
    1213c======================================================================
    13 #include "dimensions.h"
    14 #include "dimphy.h"
     14cym#include "dimensions.h"
     15cym#include "dimphy.h"
    1516#include "YOMCST.h"
    1617#include "YOETHF.h"
    … …  
    143144     $                  tb, shb,
    144145     $                  cmfprt, cmfprs, cnt, cnb)
     146      USE dimphy
    145147      IMPLICIT none
    146148C-----------------------------------------------------------------------
    … …  
    163165c                    simplifier la lecture et la comprehension.
    164166C-----------------------------------------------------------------------
    165 #include "dimensions.h"
    166 #include "dimphy.h"
     167cym#include "dimensions.h"
     168cym#include "dimphy.h"
    167169      INTEGER pcnst ! nombre de traceurs passifs
    168170      PARAMETER (pcnst=1)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/concvl.F

    r633 r634  
    1212 
    1313c
     14      USE dimphy
    1415      IMPLICIT none
    1516c======================================================================
    … …  
    4647c
    4748#include "dimensions.h"
    48 #include "dimphy.h"
     49cym#include "dimphy.h"
    4950c
    5051      integer NTRAC
    … …  
    8283       INTEGER i,k,itra
    8384       REAL qs(klon,klev)
    84        REAL cbmf(klon)
    85        SAVE cbmf
     85cym       REAL cbmf(klon)
     86cym       SAVE cbmf
     87       REAL,ALLOCATABLE,SAVE :: cbmf(:)
    8688       INTEGER ifrst
    8789       SAVE ifrst
    … …  
    9799      IF (ifrst .EQ. 0) THEN
    98100         ifrst = 1
     101         allocate(cbmf(klon))
    99102         DO i = 1, klon
    100103          cbmf(i) = 0.

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conema3.F

    r524 r634  
    99     .             qcond_incld)
    1010
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    5455c
    5556#include "dimensions.h"
    56 #include "dimphy.h"
     57cym#include "dimphy.h"
    5758#include "conema3.h"
    5859      INTEGER i, l,m,itra
    … …  
    8485      REAL qcond_incld(klon,klev)
    8586c
    86       REAL em_t(klev)
    87       REAL em_q(klev)
    88       REAL em_qs(klev)
    89       REAL em_u(klev), em_v(klev), em_tra(klev,ntrac)
    90       REAL em_ph(klev+1), em_p(klev)
    91       REAL em_work1(klev), em_work2(klev)
    92       REAL em_precip, em_d_t(klev), em_d_q(klev)
    93       REAL em_d_u(klev), em_d_v(klev), em_d_tra(klev,ntrac)
    94       REAL em_upwd(klev), em_dnwd(klev), em_dnwdbis(klev)
     87      LOGICAL,SAVE :: first=.true.
     88cym      REAL em_t(klev)
     89      REAL,ALLOCATABLE,SAVE :: em_t(:)
     90cym      REAL em_q(klev)
     91      REAL,ALLOCATABLE,SAVE :: em_q(:)
     92cym      REAL em_qs(klev)
     93      REAL,ALLOCATABLE,SAVE :: em_qs(:) 
     94cym      REAL em_u(klev), em_v(klev), em_tra(klev,ntrac)
     95      REAL,ALLOCATABLE,SAVE :: em_u(:),em_v(:),em_tra(:,:)
     96cym      REAL em_ph(klev+1), em_p(klev)
     97      REAL,ALLOCATABLE,SAVE ::em_ph(:),em_p(:)
     98cym      REAL em_work1(klev), em_work2(klev)
     99      REAL,ALLOCATABLE,SAVE ::em_work1(:),em_work2(:)
     100cym      REAL em_precip, em_d_t(klev), em_d_q(klev)
     101      REAL,SAVE :: em_precip
     102      REAL,ALLOCATABLE,SAVE :: em_d_t(:),em_d_q(:)
     103cym      REAL em_d_u(klev), em_d_v(klev), em_d_tra(klev,ntrac)
     104      REAL,ALLOCATABLE,SAVE ::em_d_u(:),em_d_v(:),em_d_tra(:,:)
     105cym      REAL em_upwd(klev), em_dnwd(klev), em_dnwdbis(klev)
     106      REAL,ALLOCATABLE,SAVE :: em_upwd(:),em_dnwd(:),em_dnwdbis(:)
    95107      REAL em_dtvpdt1(klev), em_dtvpdq1(klev)
    96108      REAL em_dplcldt, em_dplcldr
    97       SAVE em_t,em_q, em_qs, em_ph, em_p, em_work1, em_work2
    98       SAVE em_u,em_v, em_tra
    99       SAVE em_d_u,em_d_v, em_d_tra
    100       SAVE em_precip, em_d_t, em_d_q, em_upwd, em_dnwd, em_dnwdbis
     109cym      SAVE em_t,em_q, em_qs, em_ph, em_p, em_work1, em_work2
     110cym      SAVE em_u,em_v, em_tra
     111cym      SAVE em_d_u,em_d_v, em_d_tra
     112cym      SAVE em_precip, em_d_t, em_d_q, em_upwd, em_dnwd, em_dnwdbis
     113
    101114      INTEGER em_bas, em_top
    102115      SAVE em_bas, em_top
    … …  
    113126cccccccccccccccccccccccccccccccccccccccccccccccccc
    114127 
    115       REAL emmip(klev) !variation de flux ascnon dilue i et i+1
    116       SAVE emmip
    117       real emMke(klev)
    118       save emMke
     128cym      REAL emmip(klev) !variation de flux ascnon dilue i et i+1
     129      REAL,ALLOCATABLE,SAVE ::emmip(:)
     130cym      SAVE emmip
     131cym      real emMke(klev)
     132      REAL,ALLOCATABLE,SAVE ::emMke(:)
     133cym      save emMke
    119134      real top
    120135      real bas
    121       real emMa(klev)
    122       save emMa
     136cym      real emMa(klev)
     137      REAL,ALLOCATABLE,SAVE ::emMa(:)
     138cym      save emMa
    123139      real Ma(klon,klev)
    124140      real Ment(klev,klev)
    … …  
    151167#include "YOETHF.h"
    152168#include "FCTTRE.h"
    153  
     169     
     170      if (first) then
     171 
     172        allocate(em_t(klev))
     173        allocate(em_q(klev))
     174        allocate(em_qs(klev))
     175        allocate(em_u(klev), em_v(klev), em_tra(klev,ntrac))
     176        allocate(em_ph(klev+1), em_p(klev))
     177        allocate(em_work1(klev), em_work2(klev))
     178        allocate(em_d_t(klev), em_d_q(klev))
     179        allocate(em_d_u(klev), em_d_v(klev), em_d_tra(klev,ntrac))
     180        allocate(em_upwd(klev), em_dnwd(klev), em_dnwdbis(klev))
     181        allocate(emmip(klev))
     182        allocate(emMke(klev))
     183        allocate(emMa(klev))
     184 
     185        first=.false.
     186      endif
     187 
    154188      qcond_incld(:,:) = 0.
    155189c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conemav.F

    r524 r634  
    99 
    1010c
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    4344c
    4445#include "dimensions.h"
    45 #include "dimphy.h"
     46cym#include "dimphy.h"
    4647c
    4748      integer NTRAC
    … …  
    7374       INTEGER i,k,itra
    7475       REAL qs(klon,klev)
    75        REAL cbmf(klon)
    76        SAVE cbmf
     76cym       REAL cbmf(klon)
     77cym       SAVE cbmf
     78       REAL,ALLOCATABLE,SAVE :: cbmf(:)
    7779       INTEGER ifrst
    7880       SAVE ifrst
    … …  
    8587      IF (ifrst .EQ. 0) THEN
    8688         ifrst = 1
     89         allocate(cbmf(klon))
    8790         DO i = 1, klon
    8891          cbmf(i) = 0.

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conflx.F

    r524 r634  
    88     s                   kcbot, kctop, kdtop, pmflxr, pmflxs)
    99c
     10      USE dimphy
    1011      IMPLICIT none
    1112c======================================================================
    … …  
    1718c         et lessivage des traceurs passifs.
    1819c======================================================================
    19 #include "dimensions.h"
    20 #include "dimphy.h"
     20cym#include "dimensions.h"
     21cym#include "dimphy.h"
    2122#include "YOMCST.h"
    2223#include "YOETHF.h"
    … …  
    214215     .                   pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
    215216     .                   dt_con, dq_con, pmflxr, pmflxs)
     217      USE dimphy
    216218      IMPLICIT none
    217219C     ------------------------------------------------------------------
    218 #include "dimensions.h"
    219 #include "dimphy.h"
     220cym#include "dimensions.h"
     221cym#include "dimphy.h"
    220222#include "YOMCST.h"
    221223#include "YOETHF.h"
    … …  
    504506     .           pdmfdp, pmfu, pmfus, pmfuq, pdmfup, pdpmel, plu, plude,
    505507     .           klab,pen_u, pde_u, pen_d, pde_d)
     508      USE dimphy
    506509      IMPLICIT none
    507510C----------------------------------------------------------------------
    … …  
    510513C AND INITIALIZES VALUES FOR UPDRAFTS
    511514C----------------------------------------------------------------------
    512 #include "dimensions.h"
    513 #include "dimphy.h"
     515cym#include "dimensions.h"
     516cym#include "dimphy.h"
    514517#include "YOMCST.h"
    515518#include "YOETHF.h"
    … …  
    629632      SUBROUTINE flxbase(ptenh, pqenh, pgeoh, paph,
    630633     *     ptu, pqu, plu, ldcum, kcbot, klab)
     634      USE dimphy
    631635      IMPLICIT none
    632636C----------------------------------------------------------------------
    … …  
    641645C (NON ENTRAINING PLUME,I.E.CONSTANT MASSFLUX)
    642646C----------------------------------------------------------------------
    643 #include "dimensions.h"
    644 #include "dimphy.h"
     647cym#include "dimensions.h"
     648cym#include "dimphy.h"
    645649#include "YOMCST.h"
    646650#include "YOETHF.h"
    … …  
    714718     .     pmful, plude, pdmfup, kcbot, kctop, kctop0, kcum,
    715719     .     pen_u, pde_u)
     720      USE dimphy
    716721      IMPLICIT none
    717722C----------------------------------------------------------------------
    … …  
    719724C FOR CUMULUS PARAMETERIZATION
    720725C----------------------------------------------------------------------
    721 #include "dimensions.h"
    722 #include "dimphy.h"
     726cym#include "dimensions.h"
     727cym#include "dimphy.h"
    723728#include "YOMCST.h"
    724729#include "YOETHF.h"
    … …  
    10181023     .  ,  pten, prfl, psfl, pdpmel, ktopm2
    10191024     .  ,  pmflxr, pmflxs)
     1025      USE dimphy
    10201026      IMPLICIT none
    10211027C----------------------------------------------------------------------
    … …  
    10231029C FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER
    10241030C----------------------------------------------------------------------
    1025 #include "dimensions.h"
    1026 #include "dimphy.h"
     1031cym#include "dimensions.h"
     1032cym#include "dimphy.h"
    10271033#include "YOMCST.h"
    10281034#include "YOETHF.h"
    … …  
    12621268     .  ,  pmfus, pmfds, pmfuq, pmfdq, pmful, pdmfup, pdmfdp
    12631269     .  ,  pdpmel, dt_con, dq_con)
     1270      USE dimphy
    12641271      IMPLICIT none
    12651272c----------------------------------------------------------------------
    12661273c calculer les tendances T et Q
    12671274c----------------------------------------------------------------------
    1268 #include "dimensions.h"
    1269 #include "dimphy.h"
     1275cym#include "dimensions.h"
     1276cym#include "dimphy.h"
    12701277#include "YOMCST.h"
    12711278#include "YOETHF.h"
    … …  
    13331340     .     ldcum, kcbot, kctop, pmfub, prfl, ptd, pqd,
    13341341     .     pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
     1342      USE dimphy
    13351343      IMPLICIT none
    13361344C
    … …  
    13501358C MOIST ENVIRONMENTAL AIR AND CLOUD AIR.
    13511359C----------------------------------------------------------------------
    1352 #include "dimensions.h"
    1353 #include "dimphy.h"
     1360cym#include "dimensions.h"
     1361cym#include "dimphy.h"
    13541362#include "YOMCST.h"
    13551363#include "YOETHF.h"
    … …  
    14441452     .           ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp,
    14451453     .           lddraf, pen_d, pde_d)
     1454      USE dimphy
    14461455      IMPLICIT none
    14471456C
    … …  
    14611470C
    14621471C----------------------------------------------------------------------
    1463 #include "dimensions.h"
    1464 #include "dimphy.h"
     1472cym#include "dimensions.h"
     1473cym#include "dimphy.h"
    14651474#include "YOMCST.h"
    14661475#include "YOETHF.h"
    … …  
    15591568      END
    15601569      SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
     1570      USE dimphy
    15611571      IMPLICIT none
    15621572c======================================================================
    … …  
    15681578C        kcall=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    15691579C
    1570 #include "dimensions.h"
    1571 #include "dimphy.h"
     1580cym#include "dimensions.h"
     1581cym#include "dimphy.h"
    15721582#include "YOMCST.h"
    15731583C

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/conlmd.F

    r524 r634  
    44      SUBROUTINE conlmd (dtime, paprs, pplay, t, q, conv_q,
    55     s                   d_t, d_q, rain, snow, ibas, itop)
     6      USE dimphy
    67      IMPLICIT none
    78c======================================================================
    … …  
    1011c        Ajustement humide (Manabe) + Ajustement convectif (Kuo)
    1112c======================================================================
    12 #include "dimensions.h"
    13 #include "dimphy.h"
     13cym#include "dimensions.h"
     14cym#include "dimphy.h"
    1415#include "YOMCST.h"
    1516#include "YOETHF.h"
    … …  
    9394     s                   d_t, d_q, d_ql, rneb,
    9495     s                   rain, snow, ibas, itop)
     96      USE dimphy
    9597      IMPLICIT none
    9698c======================================================================
    … …  
    105107c du modele.
    106108c======================================================================
    107 #include "dimensions.h"
    108 #include "dimphy.h"
     109cym#include "dimensions.h"
     110cym#include "dimphy.h"
    109111#include "YOMCST.h"
    110112c
    … …  
    301303     s                    d_t, d_q, d_ql, rneb,
    302304     s                    rain, snow, ibas, itop,accompli,imprim)
     305      USE dimphy
    303306      IMPLICIT none
    304307c======================================================================
    … …  
    309312c        et itop est le haut du plus haut bloc
    310313c======================================================================
    311 #include "dimensions.h"
    312 #include "dimphy.h"
     314cym#include "dimensions.h"
     315cym#include "dimphy.h"
    313316#include "YOMCST.h"
    314317c
    … …  
    10641067     s                  d_t, d_q, d_ql, rneb,
    10651068     s                  rain, snow, ibas, itop)
     1069      USE dimphy
    10661070      IMPLICIT none
    10671071c======================================================================
    … …  
    10711075c N.B. version vectorielle (le 6 oct. 1997)
    10721076c======================================================================
    1073 #include "dimensions.h"
    1074 #include "dimphy.h"
     1077cym#include "dimensions.h"
     1078cym#include "dimphy.h"
    10751079#include "YOMCST.h"
    10761080c
    … …  
    15871591      END
    15881592      SUBROUTINE kuofcl(pt, pq, pg, pp, LDCUM, kcbot)
     1593      USE dimphy
    15891594      IMPLICIT none
    15901595c======================================================================
    … …  
    16031608c kcbot---output-I- Niveau du bas de la convection
    16041609c======================================================================
    1605 #include "dimensions.h"
    1606 #include "dimphy.h"
     1610cym#include "dimensions.h"
     1611cym#include "dimphy.h"
    16071612#include "YOMCST.h"
    16081613#include "YOETHF.h"
    … …  
    16881693      END
    16891694      SUBROUTINE adjtq(pp, pt, pq, LDFLAG, KCALL)
     1695      USE dimphy
    16901696      IMPLICIT none
    16911697c======================================================================
    … …  
    17061712C        KCALL=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    17071713C
    1708 #include "dimensions.h"
    1709 #include "dimphy.h"
     1714cym#include "dimensions.h"
     1715cym#include "dimphy.h"
    17101716#include "YOMCST.h"
    17111717C
    … …  
    17971803     .                 d_t, d_q, d_ql, rneb,
    17981804     .                 rain, snow, ibas, itop)
     1805      USE dimphy
    17991806      IMPLICIT NONE
    18001807c
    18011808c Ajustement humide (Schema de convection de Manabe)
    18021809C.
    1803 #include "dimensions.h"
    1804 #include "dimphy.h"
     1810cym#include "dimensions.h"
     1811cym#include "dimphy.h"
    18051812#include "YOMCST.h"
    18061813c
    … …  
    20952102     .                 d_t, d_q, d_ql,rneb,
    20962103     .                 rain, snow, ibas, itop)
     2104      USE dimphy
    20972105      IMPLICIT NONE
    20982106c
    2099 #include "dimensions.h"
    2100 #include "dimphy.h"
     2107cym#include "dimensions.h"
     2108cym#include "dimphy.h"
    21012109#include "YOMCST.h"
    21022110c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/convect1.F

    r524 r634  
    107107c
    108108c
     109       USE dimphy
    109110      implicit none
    110111c
    111 #include "dimensions.h"
    112 #include "dimphy.h"
     112cym#include "dimensions.h"
     113cym#include "dimphy.h"
    113114c
    114115      integer len

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/convect2.F

    r524 r634  
    148148c
    149149c
     150      USE dimphy
    150151      implicit none
    151152c
    152 #include "dimensions.h"
    153 #include "dimphy.h"
     153cym#include "dimensions.h"
     154cym#include "dimphy.h"
    154155c
    155156      integer kmax2,imax2,kmin2,imin2

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/convect3.F

    r524 r634  
    1818cFleur       Introduction des traceurs dans convect3 le 6 juin 200
    1919c#################################################################
     20      USE dimphy
     21
    2022#include "dimensions.h"
    21 #include "dimphy.h"
     23cym#include "dimphy.h"
    2224      PARAMETER (NA=60)
    2325

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/cv_driver.F

    r633 r634  
    1111     &                   da1,phi1,mp1)
    1212C
     13      USE dimphy
    1314      implicit none
    1415C
    … …  
    6465c
    6566c
    66 #include "dimensions.h"
    67 #include "dimphy.h"
     67cym#include "dimensions.h"
     68cym#include "dimphy.h"
    6869
    6970      integer len
    … …  
    250251c (local) compressed fields:
    251252c
    252       integer nloc
    253       parameter (nloc=klon) ! pour l'instant
    254 
     253cym      integer nloc
     254cym      parameter (nloc=klon) ! pour l'instant
     255#define nloc klon
    255256      integer idcum(nloc)
    256257      integer iflag(nloc),nk(nloc),icb(nloc)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/cvltr.F

    r633 r634  
    33c
    44      SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,pplay,x,upd,dnd,dx)
     5      USE dimphy
    56      IMPLICIT NONE
    67c=====================================================================
    … …  
    910c=====================================================================
    1011c
    11 #include "dimensions.h"
    12 #include "dimphy.h"
     12
     13
     14clf#include "dimensions.h"
     15clf#include "dimphy.h"
    1316#include "YOMCST.h"
    1417#include "YOECUMF.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/fisrtilp.F

    r633 r634  
    1010
    1111c
     12      USE dimphy
    1213      IMPLICIT none
    1314c======================================================================
    … …  
    1819c======================================================================
    1920c======================================================================
    20 #include "dimensions.h"
    21 #include "dimphy.h"
     21cym#include "dimensions.h"
     22cym#include "dimphy.h"
    2223#include "YOMCST.h"
    2324#include "tracstoke.h"
    … …  
    110111      REAL zlh_solid(klon), zm_solid
    111112cIM
    112       INTEGER klevm1
     113cym      INTEGER klevm1
    113114c---------------------------------------------------------------
    114115c
    … …  
    210211c
    211212cIM : klevm1
    212       klevm1=klev-1
     213cym      klevm1=klev-1
    213214      DO 9999 k = klev, 1, -1
    214215c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/fisrtilp_tr.F

    r524 r634  
    1111
    1212c
     13      USE dimphy
    1314      IMPLICIT none
    1415c======================================================================
    … …  
    1920c======================================================================
    2021c======================================================================
    21 #include "dimensions.h"
    22 #include "dimphy.h"
     22cym#include "dimensions.h"
     23cym#include "dimphy.h"
    2324#include "YOMCST.h"
    2425#include "tracstoke.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/flxtr.F

    r524 r634  
    44      SUBROUTINE flxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,
    55     .                 pt,pplay,paprs,kcbot,kctop,kdtop,x,dx)
     6      USE dimphy
    67      IMPLICIT NONE
    78c=====================================================================
    … …  
    2425c=====================================================================
    2526c
    26 #include "dimensions.h"
    27 #include "dimphy.h"
     27cym#include "dimensions.h"
     28cym#include "dimphy.h"
    2829#include "YOMCST.h"
    2930#include "YOECUMF.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/hgardfou.F

    r524 r634  
    33!
    44      SUBROUTINE hgardfou (t,tsol,text)
     5      use dimphy
    56      IMPLICIT none
    67c======================================================================
    78c Verifier la temperature
    89c======================================================================
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112#include "YOMCST.h"
    1213#include "indicesol.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/histo_o500_pctau.F

    r524 r634  
    33!
    44      SUBROUTINE histo_o500_pctau(nbreg,pct_ocean,w,histo,histoW,nhisto)
     5      USE dimphy
    56      IMPLICIT none
    67
    78      INTEGER :: ij, k, l, nw
    89      INTEGER :: nreg, nbreg
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112      INTEGER, PARAMETER :: kmax=8, lmax=8
    1213      INTEGER, PARAMETER :: kmaxm1=kmax-1, lmaxm1=lmax-1

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/homogene.F

    r524 r634  
    33!
    44      SUBROUTINE homogene(paprs, q, dq, u,v, du, dv)
     5      USE dimphy
    56      IMPLICIT NONE
    67c==============================================================
    … …  
    1718c dv:   output, incrementation pour v
    1819c==============================================================
    19 #include "dimensions.h"
    20 #include "dimphy.h"
     20cym#include "dimensions.h"
     21cym#include "dimphy.h"
    2122c
    2223      REAL paprs(klon,klev+1)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/hydrol.F

    r524 r634  
    66      SUBROUTINE hydrol(dtime,pctsrf,rain_fall,snow_fall,evap,
    77     .                  agesno, tsol,qsol,snow,runoff)
     8      USE dimphy
    89      IMPLICIT none
    910c======================================================================
    … …  
    2223c snow: couverture neigeuse
    2324C
    24 #include "dimensions.h"
    25 #include "dimphy.h"
     25cym#include "dimensions.h"
     26cym#include "dimphy.h"
    2627#include "YOMCST.h"
    2728#include "indicesol.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histISCCP.h

    r524 r634  
    3232c definition coordonnees lon,lat en globale
    3333c
    34         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    35         DO i = 1, iim
    36           zx_lon(i,1) = rlon(i+1)
    37           zx_lon(i,jjmp1) = rlon(i+1)
    38         ENDDO
     34cym        CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     35cym        DO i = 1, iim
     36cym          zx_lon(i,1) = rlon(i+1)
     37cym          zx_lon(i,jjmp1) = rlon(i+1)
     38cym        ENDDO
    3939
    40         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     40cym        CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    4141c
    42          CALL histbeg("histISCCP.nc", iim,zx_lon(:,1),jjmp1,zx_lat(1,:),
    43      .                 1, iim, 1, jjmp1,
    44      .                 itau_phy, zjulian, dtime,
     42cym         CALL histbeg("histISCCP.nc", iim,zx_lon(:,1),jjmp1,zx_lat(1,:),
     43cym     .                 1, iim, 1, jjmp1,
     44cym     .                 itau_phy, zjulian, dtime,
     45cym     .                 nhori, nid_isccp)
     46
     47         CALL histbeg_phy("histISCCP.nc", itau_phy, zjulian, dtime,
    4548     .                 nhori, nid_isccp)
    4649c
    … …  
    5356          CALL histdef(nid_isccp, "cldISCCP_"//taulev(k),
    5457     .                "LMDZ ISCCP cld", "%",
    55      .                iim, jjmp1,nhori,lmaxm1,1,lmaxm1,nvert,32,
     58     .                iim, jjphy_nb,nhori,lmaxm1,1,lmaxm1,nvert,32,
    5659     .                "ave(X)", zsto,zout)
    5760         ENDDO
    … …  
    5962         CALL histdef(nid_isccp, "nsunlit",
    6063     .                "Nb of calls with sunlit ", "%",
    61      .                iim, jjmp1,nhori,1,1,1,-99,32,
     64     .                iim, jjphy_nb,nhori,1,1,1,-99,32,
    6265     .                "ave(X)", zsto,zout)
    6366c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histREGDYN.h

    r524 r634  
    44
    55      IF (ok_regdyn) THEN
     6     
     7        if (monocpu) then
    68c
    79         PRINT*, 'La frequence de sortie REGDYN est de ', ecrit_mth
    … …  
    117119c
    118120         CALL histend(nid_regdyn)
     121         
     122         endif ! monocpu
    119123
    120124      endif ! ok_regdyn

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histday.h

    r633 r634  
    1313         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1414c
    15          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    16          DO i = 1, iim
    17             zx_lon(i,1) = rlon(i+1)
    18             zx_lon(i,jjmp1) = rlon(i+1)
    19          ENDDO
     15cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     16cym         DO i = 1, iim
     17cym            zx_lon(i,1) = rlon(i+1)
     18cym            zx_lon(i,jjmp1) = rlon(i+1)
     19cym         ENDDO
    2020         DO ll=1,klev
    2121            znivsig(ll)=float(ll)
    2222         ENDDO
    23          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    24          CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    25      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    26      .                 nhori, nid_day)
     23cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     24cym         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     25cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     26cym     .                 nhori, nid_day)
     27
     28         CALL histbeg_phy("histday",itau_phy, zjulian, dtime,
     29     .                    nhori, nid_day)
     30
    2731         write(*,*)'Journee ', itau_phy, zjulian
    2832         CALL histvert(nid_day, "presnivs", "Vertical levels", "mb",
    … …  
    3236c
    3337         CALL histdef(nid_day, "phis", "Surface geop. height", "-",
    34      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     38     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3539     .                "once", zsto,zout)
    3640c
    3741         CALL histdef(nid_day, "aire", "Grid area", "-",
    38      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     42     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3943     .                "once", zsto,zout)
    4044c
    4145         CALL histdef(nid_day, "contfracATM","% sfce ter+lic ","-",
    42      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     46     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4347     .                "once", zsto,zout)
    4448c
    4549         CALL histdef(nid_day, "contfracOR","% sfce terre OR", "-",
    46      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     50     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4751     .                "once", zsto,zout)
    4852c
    … …  
    5054c
    5155         CALL histdef(nid_day, "tsol", "Surface Temperature", "K",
    52      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     56     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5357     .                "ave(X)", zsto,zout)
    5458c
    5559         CALL histdef(nid_day, "t2m", "Temperature 2m", "K",
    56      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     60     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5761     .                "ave(X)", zsto,zout)
    5862c
    … …  
    6266         CALL histdef(nid_day, "t2m_min", "Temp. 2m min.",
    6367     .                "K",
    64      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     68     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6569     .                t2mincels, zsto,zout)
    6670c
    6771         CALL histdef(nid_day, "t2m_max", "Temp. 2m max.",
    6872     .                "K",
    69      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     73     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7074     .                t2maxcels, zsto,zout)
    7175c
    7276         CALL histdef(nid_day, "plul", "Large-scale Precip.",
    7377     .   "kg/(s*m2)",
    74      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     78     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7579     .                "ave(X)", zsto,zout)
    7680c
    7781         CALL histdef(nid_day, "pluc", "Convective Precip.",
    7882     .   "kg/(s*m2)",
    79      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     83     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8084     .                "ave(X)", zsto,zout)
    8185c
    8286         CALL histdef(nid_day, "snowl", "Solid Large-scale Precip.",
    8387     .   "kg/(s*m2)",
    84      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     88     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8589     .                "ave(X)", zsto,zout)
    8690c
    … …  
    8892         CALL histdef(nid_day, "snowc", "Solid Convective Precip.",
    8993     .   "kg/(s*m2)",
    90      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     94     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9195     .                "ave(X)", zsto,zout)
    9296         ENDIF !snowc=0.
    9397c
    9498         CALL histdef(nid_day, "flat", "Latent heat flux", "W/m2",
    95      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     99     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    96100     .                "ave(X)", zsto,zout)
    97101c
    98102         CALL histdef(nid_day, "sicf", "Sea-ice fraction", "-",
    99      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     103     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    100104     .                "inst(X)", zsto1,zout)
    101105c
    102106         CALL histdef(nid_day, "q2m", "Specific humidity", "kg/kg",
    103      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     107     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    104108     .                "ave(X)", zsto,zout)
    105109c
    106110         CALL histdef(nid_day, "u10m", "Vent zonal 10m", "m/s",
    107      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     111     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    108112     .                "ave(X)", zsto,zout)
    109113c
    110114         CALL histdef(nid_day, "v10m", "Vent meridien 10m", "m/s",
    111      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     115     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    112116     .                "ave(X)", zsto,zout)
    113117c
    114118         CALL histdef(nid_day, "wind10m","10-m wind speed","m/s",
    115      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     119     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    116120     .                "ave(X)", zsto,zout)
    117121c
    118122         CALL histdef(nid_day, "wind10max", "10-m wind speed max.",
    119123     .                "m/s",
    120      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     124     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    121125     .                t2maxcels, zsto,zout)
    122126c
    123127         CALL histdef(nid_day, "psol", "Surface Pressure", "Pa",
    124      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     128     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    125129     .                "ave(X)", zsto,zout)
    126130c
    127131         CALL histdef(nid_day, "precip","Precipitation Totale liq+sol"
    128132     .                , "kg/(s*m2)",
    129      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     133     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    130134     .                "ave(X)", zsto,zout)
    131135c
    132136         CALL histdef(nid_day, "snowf", "Snow fall", "kg/(s*m2)",
    133      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     137     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    134138     .                "ave(X)", zsto,zout)
    135139c
    136140         CALL histdef(nid_day, "snow_mass", "Snow Mass", "kg/m2",
    137      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     141     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    138142     .                "ave(X)", zsto,zout)
    139143c
    140144         CALL histdef(nid_day, "evap", "Evaporation", "kg/(s*m2)",
    141      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     145     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    142146     .                "ave(X)", zsto,zout)
    143147c
    144148         CALL histdef(nid_day, "tops", "Solar rad. at TOA", "W/m2",
    145      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     149     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    146150     .                "ave(X)", zsto,zout)
    147151c
    148152         CALL histdef(nid_day, "topl", "IR rad. at TOA", "W/m2",
    149      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     153     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    150154     .                "ave(X)", zsto,zout)
    151155c
    152156         CALL histdef(nid_day, "sols", "Net Solar rad. at surf.",
    153157     .                "W/m2",
    154      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     158     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    155159     .                "ave(X)", zsto,zout)
    156160c
    157161         CALL histdef(nid_day, "soll", "Net IR rad. at surface", "W/m2",
    158      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     162     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    159163     .                "ave(X)", zsto,zout)
    160164c
    161165         CALL histdef(nid_day, "cldl", "Low-level cloudiness", "-",
    162      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     166     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    163167     .                "ave(X)", zsto,zout)
    164168c
    165169         CALL histdef(nid_day, "cldm", "Mid-level cloudiness", "-",
    166      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     170     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    167171     .                "ave(X)", zsto,zout)
    168172c
    169173         CALL histdef(nid_day, "cldh", "High-level cloudiness", "-",
    170      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     174     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    171175     .                "ave(X)", zsto,zout)
    172176c
    173177         CALL histdef(nid_day, "cldt", "Total cloudiness", "-",
    174      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     178     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    175179     .                "ave(X)", zsto,zout)
    176180c
    177181         CALL histdef(nid_day, "cldq", "Cloud liquid water path",
    178182     .                "kg/m2",
    179      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     183     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    180184     .                "ave(X)", zsto,zout)
    181185c
    182186         CALL histdef(nid_day, "prw", "Precipitable water", "kg/m2",
    183      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     187     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    184188     .                "ave(X)", zsto,zout)
    185189c
    … …  
    189193          CALL histdef(nid_day, "u"//clev(k),
    190194     .                 "Zonal wind"//clev(k)//"mb","m/s",
    191      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     195     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    192196     .                "ave(X)", zsto,zout)
    193197c
    194198          CALL histdef(nid_day, "v"//clev(k),
    195199     .                 "Meridional wind"//clev(k)//"mb","m/s",
    196      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     200     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    197201     .                "ave(X)", zsto,zout)
    198202c
    … …  
    200204c
    201205         CALL histdef(nid_day, "w500", "Verical wind 500mb", "m/s",
    202      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     206     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    203207     .                "ave(X)", zsto,zout)
    204208c
    205209         CALL histdef(nid_day,"phi500", "Geopotentiel a 500mb","m2/s2",
    206      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     210     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    207211     .                "ave(X)", zsto,zout)
    208212c
    209213         CALL histdef(nid_day, "slp", "Sea Level Pressure", "Pa",
    210      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     214     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    211215     .                "ave(X)", zsto,zout)
    212216c
    213217         CALL histdef(nid_day, "cape_max", "CAPE max.",
    214218     .                "J/kg",
    215      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     219     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    216220     .                capemaxcels, zsto,zout)
    217221c
    218222         CALL histdef(nid_day, "solldown", "Down. IR rad. at surface",
    219      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     223     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    220224     .                "ave(X)", zsto,zout)
    221225c
    222226         CALL histdef(nid_day, "sens", "Sensible heat flux", "W/m2",
    223      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     227     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    224228     .                "ave(X)", zsto,zout)
    225229c
    226230         CALL histdef(nid_day, "SWdnSFC", "SWdn at surface","W/m2",
    227      .                iim,jjmp1,nhori, 1,1,1,-99,
     231     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    228232     .                32, "ave(X)", zsto,zout)
    229233c
    … …  
    233237c
    234238         CALL histdef(nid_day, "bils", "Surf. total heat flux", "W/m2",
    235      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     239     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    236240     .                "ave(X)", zsto,zout)
    237241c
    238242         CALL histdef(nid_day, "fder", "Heat flux derivation", "W/m2/K",
    239      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     243     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    240244     .                "ave(X)", zsto,zout)
    241245c
    … …  
    251255c
    252256         CALL histdef(nid_day, "temp", "Air temperature", "K",
    253      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     257     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    254258     .                "ave(X)", zsto,zout)
    255259c
    256260         CALL histdef(nid_day, "ovap", "Specific humidity", "kg/kg",
    257      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     261     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    258262     .                "ave(X)", zsto,zout)
    259263c
    260264         CALL histdef(nid_day, "geop", "Geopotential height", "m",
    261      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     265     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    262266     .                "ave(X)", zsto,zout)
    263267c
    264268         CALL histdef(nid_day, "vitu", "Zonal wind", "m/s",
    265      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     269     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    266270     .                "ave(X)", zsto,zout)
    267271c
    268272         CALL histdef(nid_day, "vitv", "Meridional wind", "m/s",
    269      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     273     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    270274     .                "ave(X)", zsto,zout)
    271275c
    272276         CALL histdef(nid_day, "vitw", "Vertical wind", "Pa/s",
    273      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     277     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    274278     .                "ave(X)", zsto,zout)
    275279c
    276280         CALL histdef(nid_day, "pres", "Air pressure", "Pa",
    277      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     281     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    278282     .                "ave(X)", zsto,zout)
    279283c
    … …  
    291295c
    292296         CALL histdef(nid_day, "SWupTOA", "SWup at TOA","W/m2",
    293      .                iim,jjmp1,nhori, 1,1,1,-99,
     297     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    294298     .                32, "ave(X)", zsto,zout)
    295299c
    296300         CALL histdef(nid_day, "SWupSFC", "SWup at surface","W/m2",
    297      .                iim,jjmp1,nhori, 1,1,1,-99,
     301     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    298302     .                32, "ave(X)", zsto,zout)
    299303c
    300304         CALL histdef(nid_day, "SWdnTOA", "SWdn at TOA","W/m2",
    301      .                iim,jjmp1,nhori, 1,1,1,-99,
     305     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    302306     .                32, "ave(X)", zsto,zout)
    303307c
    304308         CALL histdef(nid_day, "SWupTOAclr",
    305309     .                "SWup clear sky at TOA","W/m2",
    306      .                iim,jjmp1,nhori, 1,1,1,-99,
     310     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    307311     .                32, "ave(X)", zsto,zout)
    308312
    309313         CALL histdef(nid_day, "SWupSFCclr",
    310314     .                "SWup clear sky at surface","W/m2",
    311      .                iim,jjmp1,nhori, 1,1,1,-99,
     315     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    312316     .                32, "ave(X)", zsto,zout)
    313317
    314318         CALL histdef(nid_day, "SWdnTOAclr",
    315319     .                "SWdn clear sky at TOA","W/m2",
    316      .                iim,jjmp1,nhori, 1,1,1,-99,
     320     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    317321     .                32, "ave(X)", zsto,zout)
    318322
    319323         CALL histdef(nid_day, "SWdnSFCclr",
    320324     .                "SWdn clear sky at surface","W/m2",
    321      .                iim,jjmp1,nhori, 1,1,1,-99,
     325     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    322326     .                32, "ave(X)", zsto,zout)
    323327c
    … …  
    329333c
    330334         CALL histdef(nid_day, "tter", "Surface Temperature", "K",
    331      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     335     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    332336     .                "ave(X)", zsto,zout)
    333337c
    334338         CALL histdef(nid_day, "tlic", "Surface Temperature", "K",
    335      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     339     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    336340     .                "ave(X)", zsto,zout)
    337341c
    338342         CALL histdef(nid_day, "toce", "Surface Temperature", "K",
    339      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     343     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    340344     .                "ave(X)", zsto,zout)
    341345c
    342346         CALL histdef(nid_day, "tsic", "Surface Temperature", "K",
    343      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     347     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    344348     .                "ave(X)", zsto,zout)
    345349c
    346350         CALL histdef(nid_day, "t2mter", "Temp.terre 2m", "K",
    347      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     351     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    348352     .                "ave(X)", zsto,zout)
    349353c
    350354         CALL histdef(nid_day, "t2mlic", "Temp.lic 2m", "K",
    351      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     355     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    352356     .                "ave(X)", zsto,zout)
    353357c
    354358         CALL histdef(nid_day, "t2moce", "Temp.oce 2m", "K",
    355      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     359     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    356360     .                "ave(X)", zsto,zout)
    357361c
    358362         CALL histdef(nid_day, "t2msic", "Temp.sic 2m", "K",
    359      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     363     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    360364     .                "ave(X)", zsto,zout)
    361365c
    362366         CALL histdef(nid_day, "t2mter_min", "Temp.terre 2m min.",
    363367     .                "K",
    364      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     368     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    365369     .                t2mincels, zsto,zout)
    366370c
    367371         CALL histdef(nid_day, "t2mter_max", "Temp.terre 2m max.",
    368372     .                "K",
    369      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     373     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    370374     .                t2maxcels, zsto,zout)
    371375c
    372376         CALL histdef(nid_day, "u10mter", "Vent zonal ter 10m", "m/s",
    373      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     377     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    374378     .                "ave(X)", zsto,zout)
    375379c
    376380         CALL histdef(nid_day, "u10mlic", "Vent zonal lic 10m", "m/s",
    377      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     381     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    378382     .                "ave(X)", zsto,zout)
    379383c
    380384         CALL histdef(nid_day, "u10moce", "Vent zonal oce 10m", "m/s",
    381      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     385     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    382386     .                "ave(X)", zsto,zout)
    383387c
    384388         CALL histdef(nid_day, "u10msic", "Vent zonal sic 10m",
    385      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     389     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    386390     .                "ave(X)", zsto,zout)
    387391c
    388392         CALL histdef(nid_day, "v10mter", "Vent meridien ter 10m",
    389      .                "m/s", iim,jjmp1,nhori, 1,1,1, -99, 32,
     393     .                "m/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    390394     .                "ave(X)", zsto,zout)
    391395c
    392396         CALL histdef(nid_day, "v10mlic", "Vent meridien lic 10m",
    393      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     397     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    394398     .                "ave(X)", zsto,zout)
    395399c
    396400         CALL histdef(nid_day, "v10moce", "Vent meridien oce 10m",
    397      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     401     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    398402     .                "ave(X)", zsto,zout)
    399403c
    400404         CALL histdef(nid_day, "v10msic", "Vent meridien sic 10m",
    401      .                 "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     405     .                 "m/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    402406     .                "ave(X)", zsto,zout)
    403407c
    … …  
    406410           call histdef(nid_day, "pourc_"//clnsurf(nsrf),
    407411     $         "Fraction"//clnsurf(nsrf), "W/m2", 
    408      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     412     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    409413     $         "ave(X)", zsto,zout)
    410414C
    411415           call histdef(nid_day, "tsol_"//clnsurf(nsrf),
    412416     $         "Fraction"//clnsurf(nsrf), "W/m2", 
    413      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     417     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    414418     $         "ave(X)", zsto,zout)
    415419C
    416420           call histdef(nid_day, "sens_"//clnsurf(nsrf),
    417421     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    418      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     422     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    419423     $         "ave(X)", zsto,zout)
    420424c
    421425           call histdef(nid_day, "lat_"//clnsurf(nsrf),
    422426     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    423      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     427     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    424428     $         "ave(X)", zsto,zout)
    425429C
    426430           call histdef(nid_day, "taux_"//clnsurf(nsrf),
    427431     $         "Zonal wind stress"//clnsurf(nsrf),"Pa",
    428      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     432     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    429433     $         "ave(X)", zsto,zout)
    430434
    431435           call histdef(nid_day, "tauy_"//clnsurf(nsrf),
    432436     $         "Meridional xind stress "//clnsurf(nsrf), "Pa", 
    433      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     437     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    434438     $         "ave(X)", zsto,zout)
    435439C
    436440           call histdef(nid_day, "albe_"//clnsurf(nsrf),
    437441     $         "Albedo surf. "//clnsurf(nsrf), "W/m2", 
    438      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     442     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    439443     $         "ave(X)", zsto,zout)
    440444C
    441445           call histdef(nid_day, "rugs_"//clnsurf(nsrf),
    442446     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    443      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     447     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    444448     $         "ave(X)", zsto,zout)
    445449C

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histhf.h

    r633 r634  
    1414
    1515c
    16          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    17          DO i = 1, iim
    18             zx_lon(i,1) = rlon(i+1)
    19             zx_lon(i,jjmp1) = rlon(i+1)
    20          ENDDO
    21 
    22          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     16cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     17cym         DO i = 1, iim
     18cym            zx_lon(i,1) = rlon(i+1)
     19cym            zx_lon(i,jjmp1) = rlon(i+1)
     20cym         ENDDO
     21
     22cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    2323
    2424cccIM      CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat,
    25          CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    26      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     25cym         CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     26cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     27cym     .                 nhori, nid_hf)
     28
     29         CALL histbeg_phy("histhf", itau_phy, zjulian, dtime,
    2730     .                 nhori, nid_hf)
    2831
    … …  
    4245c
    4346         CALL histdef(nid_hf, "aireTER","Grid area CONT","-",
    44      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     47     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4548     .                "once", zsto,zout)
    4649c
    4750         CALL histdef(nid_hf, "contfracATM","% sfce ter+lic ","-",
    48      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     51     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4952     .                "once", zsto,zout)
    5053c
    5154         CALL histdef(nid_hf, "contfracOR","% sfce terre OR", "-",
    52      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     55     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5356     .                "once", zsto,zout)
    5457c
    … …  
    5659c
    5760         CALL histdef(nid_hf, "t2m", "Temperature 2m", "K",
    58      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     61     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5962     .                "inst(X)", zsto,zout)
    6063c
    6164         CALL histdef(nid_hf, "q2m", "Specific humidity", "kg/kg",
    62      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     65     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6366     .                "inst(X)", zsto,zout)
    6467c
    6568         CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa",
    66      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     69     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6770     .                "inst(X)", zsto,zout)
    6871c
    … …  
    7073
    7174         CALL histdef(nid_hf, "rain", "Precipitation", "kg/m^2s",
    72      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     75     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7376     .                "ave(X)", zsto1,zout)
    7477c
    … …  
    7679c
    7780         CALL histdef(nid_hf, "tsol", "Surface Temperature", "K",
    78      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     81     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7982     .                "inst(X)", zsto,zout)
    8083c
    8184         CALL histdef(nid_hf, "slp", "Sea Level Pressure", "Pa",
    82      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     85     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8386     .                "inst(X)", zsto,zout)
    8487c
    8588c
    8689         CALL histdef(nid_hf, "u10m", "Vent zonal 10m", "m/s",
    87      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     90     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8891     .                "inst(X)", zsto,zout)
    8992c
    9093         CALL histdef(nid_hf, "v10m", "Vent meridien 10m", "m/s",
    91      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     94     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9295     .                "inst(X)", zsto,zout)
    9396c
    9497         CALL histdef(nid_hf, "wind10m","10-m wind speed","m/s",
    95      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     98     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9699     .                "inst(X)", zsto,zout)
    97100c
    … …  
    100103          CALL histdef(nid_hf, "phi"//clev(k),
    101104     .                "Geopotential"//clev(k)//"mb", "m2/s2",
    102      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     105     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    103106     .                "inst(X)", zsto,zout)
    104107          ENDIF !clev(k).EQ."500"
    … …  
    110113c
    111114         CALL histdef(nid_hf, "cldt", "Total cloudiness", "-",
    112      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     115     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    113116     .                "ave(X)", zsto1,zout)
    114117c
    … …  
    116119         CALL histdef(nid_hf, "SWdownOR",
    117120     .                "Sfce incident SW down radiation OR", "W/m^2",
    118      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     121     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    119122     .                "ave(X)", zsto1,zout)
    120123c
    121124         CALL histdef(nid_hf, "SWnetOR",
    122125     .                "Sfce incident SW net radiation OR", "W/m^2",
    123      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     126     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    124127     .                "ave(X)", zsto1,zout)
    125128c -- LOOP
    … …  
    127130         CALL histdef(nid_hf, "LWdownOR",
    128131     .                "Sfce incident LW radiation OR", "W/m^2",
    129      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     132     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    130133     .                "ave(X)", zsto1,zout)
    131134      ENDIF !lev_histhf.GE.2
    … …  
    139142          CALL histdef(nid_hf, "t"//clev(k),
    140143     .                 "Temperature"//clev(k)//"mb","K",
    141      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     144     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    142145     .                "inst(X)", zsto,zout)
    143146c
    … …  
    145148          CALL histdef(nid_hf, "phi"//clev(k),
    146149     .                "Geopotential"//clev(k)//"mb", "m2/s2",
    147      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     150     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    148151     .                "inst(X)", zsto,zout)
    149152          ENDIF
    … …  
    151154          CALL histdef(nid_hf, "q"//clev(k),
    152155     .                 "Specific humidity"//clev(k)//"mb","kg/kg",
    153      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     156     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    154157     .                "inst(X)", zsto,zout)
    155158c
    … …  
    157160         CALL histdef(nid_hf, "rh"//clev(k),
    158161     .                 "Relative humidity"//clev(k)//"mb", "%",
    159      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     162     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    160163     .                "inst(X)", zsto,zout)
    161164         ENDIF
    … …  
    163166          CALL histdef(nid_hf, "u"//clev(k),
    164167     .                 "Zonal wind"//clev(k)//"mb","m/s",
    165      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     168     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    166169     .                "inst(X)", zsto,zout)
    167170c
    168171          CALL histdef(nid_hf, "v"//clev(k),
    169172     .                 "Meridional wind"//clev(k)//"mb","m/s",
    170      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     173     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    171174     .                "inst(X)", zsto,zout)
    172175c
    … …  
    174177         IF(1.EQ.0) THEN
    175178         CALL histdef(nid_hf, "cdrm", " Momentum drag coef.", "-",
    176      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     179     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    177180     .                "inst(X)", zsto,zout)
    178181c
    179182         CALL histdef(nid_hf, "cdrh", "Heat drag coef.", "-",
    180      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     183     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    181184     .                "inst(X)", zsto,zout)
    182185         ENDIF !(1.EQ.0) THEN

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histhf3d.h

    r524 r634  
    2020
    2121c
    22          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    23          DO i = 1, iim
    24             zx_lon(i,1) = rlon(i+1)
    25             zx_lon(i,jjmp1) = rlon(i+1)
    26          ENDDO
     22cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     23cym         DO i = 1, iim
     24cym            zx_lon(i,1) = rlon(i+1)
     25cym            zx_lon(i,jjmp1) = rlon(i+1)
     26cym         ENDDO
    2727
    28          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     28cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    2929
    3030cccIM      CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat,
    31          CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    32      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     31cym         CALL histbeg("histhf3d", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     32cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     33cym     .                 nhori, nid_hf3d)
     34         CALL histbeg_phy("histhf3d", itau_phy, zjulian, dtime,
    3335     .                 nhori, nid_hf3d)
    3436
    … …  
    4244c
    4345         CALL histdef(nid_hf3d, "temp", "Air temperature", "K",
    44      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     46     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    4547     .                "ave(X)", zsto,zout)
    4648c
    4749         CALL histdef(nid_hf3d, "ovap", "Specific humidity", "kg/kg",
    48      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     50     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    4951     .                "ave(X)", zsto,zout)
    5052c
    5153         CALL histdef(nid_hf3d, "vitu", "Zonal wind", "m/s",
    52      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     54     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    5355     .                "ave(X)", zsto,zout)
    5456c
    5557         CALL histdef(nid_hf3d, "vitv", "Meridional wind", "m/s",
    56      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     58     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    5759     .                "ave(X)", zsto,zout)
    5860c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histins.h

    r524 r634  
    1010         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1111c
    12          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    13          DO i = 1, iim
    14             zx_lon(i,1) = rlon(i+1)
    15             zx_lon(i,jjmp1) = rlon(i+1)
    16          ENDDO
     12cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     13cym         DO i = 1, iim
     14cym            zx_lon(i,1) = rlon(i+1)
     15cym            zx_lon(i,jjmp1) = rlon(i+1)
     16cym         ENDDO
    1717         DO ll=1,klev
    1818            znivsig(ll)=float(ll)
    1919         ENDDO
    20          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    21          CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    22      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     20cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     21cym         CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     22cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     23cym     .                 nhori, nid_ins)
     24         CALL histbeg_phy("histins", itau_phy, zjulian, dtime,
    2325     .                 nhori, nid_ins)
    2426         write(*,*)'Inst ', itau_phy, zjulian
    … …  
    3032c
    3133         CALL histdef(nid_ins, "phis", "Surface geop. height", "-",
    32      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     34     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3335     .                "once", zsto,zout)
    3436c
    3537         CALL histdef(nid_ins, "aire", "Grid area", "-",
    36      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     38     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    3739     .                "once", zsto,zout)
    3840c
    … …  
    4042c
    4143        CALL histdef(nid_ins, "tsol", "Surface Temperature", "K",
    42      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     44     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4345     .                "inst(X)", zsto,zout)
    4446c
    4547         CALL histdef(nid_ins, "t2m", "Temperature 2m", "K",
    46      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     48     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4749     .                "inst(X)", zsto,zout)
    4850c
    4951         CALL histdef(nid_ins, "q2m", "Specific humidity 2m", "Kg/Kg",
    50      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     52     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5153     .                "inst(X)", zsto,zout)
    5254c
    5355         CALL histdef(nid_ins, "u10m", "Vent zonal 10m", "m/s",
    54      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     56     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5557     .                "inst(X)", zsto,zout)
    5658c
    5759         CALL histdef(nid_ins, "v10m", "Vent meridien 10m", "m/s",
    58      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     60     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5961     .                "inst(X)", zsto,zout)
    6062c
    6163        CALL histdef(nid_ins, "psol", "Surface Pressure", "Pa",
    62      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     64     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6365     .                "inst(X)", zsto,zout)
    6466c
    6567         CALL histdef(nid_ins, "plul", "Large-scale Precip.", "mm/day",
    66      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     68     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6769     .                "inst(X)", zsto,zout)
    6870c
    6971         CALL histdef(nid_ins, "pluc", "Convective Precip.", "mm/day",
    70      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     72     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7173     .                "inst(X)", zsto,zout)
    7274c
    7375         CALL histdef(nid_ins, "cdrm", "Momentum drag coef.", "-",
    74      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     76     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7577     .                "inst(X)", zsto,zout)
    7678c
    7779         CALL histdef(nid_ins, "cdrh", "Heat drag coef.", "-",
    78      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     80     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7981     .                "inst(X)", zsto,zout)
    8082c
    8183         CALL histdef(nid_ins, "precip", "Precipitation Totale liq+sol",
    8284     .                "kg/(s*m2)",
    83      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     85     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8486     .                "inst(X)", zsto,zout)
    8587c
    8688         CALL histdef(nid_ins, "snow", "Snow fall", "kg/(s*m2)",
    87      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     89     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8890     .                "inst(X)", zsto,zout)
    8991c
    9092         CALL histdef(nid_ins, "snow_mass", "Snow Mass", "kg/m2",
    91      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     93     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9294     .                "inst(X)", zsto,zout)
    9395c
    9496         CALL histdef(nid_ins, "topl", "OLR", "W/m2",
    95      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     97     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9698     .                "inst(X)", zsto,zout)
    9799c
    98100         CALL histdef(nid_ins, "evap", "Evaporation", "kg/(s*m2)",
    99      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     101     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    100102     .                "inst(X)", zsto,zout)
    101103c
    102104         CALL histdef(nid_ins, "sols", "Solar rad. at surf.", "W/m2",
    103      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     105     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    104106     .                "inst(X)", zsto,zout)
    105107c
    106108         CALL histdef(nid_ins, "soll", "IR rad. at surface", "W/m2",
    107      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     109     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    108110     .                "inst(X)", zsto,zout)
    109111c
    110112         CALL histdef(nid_ins, "solldown", "Down. IR rad. at surface",
    111      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     113     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    112114     .                "inst(X)", zsto,zout)
    113115c
    114116         CALL histdef(nid_ins, "bils", "Surf. total heat flux", "W/m2",
    115      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     117     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    116118     .                "inst(X)", zsto,zout)
    117119c
    118120         CALL histdef(nid_ins, "sens", "Sensible heat flux", "W/m2",
    119      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     121     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    120122     .                "inst(X)", zsto,zout)
    121123c
    122124         CALL histdef(nid_ins, "fder", "Heat flux derivation", "W/m2",
    123      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     125     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    124126     .                "inst(X)", zsto,zout)
    125127c
    126128      CALL histdef(nid_ins, "dtsvdfo", "Boundary-layer dTs(o)", "K/s",
    127      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     129     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    128130     .                "inst(X)", zsto,zout)
    129131c
    130132      CALL histdef(nid_ins, "dtsvdft", "Boundary-layer dTs(t)", "K/s",
    131      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     133     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    132134     .                "inst(X)", zsto,zout)
    133135c
    134136      CALL histdef(nid_ins, "dtsvdfg", "Boundary-layer dTs(g)", "K/s",
    135      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     137     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    136138     .                "inst(X)", zsto,zout)
    137139c
    138140      CALL histdef(nid_ins, "dtsvdfi", "Boundary-layer dTs(g)", "K/s",
    139      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     141     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    140142     .                "inst(X)", zsto,zout)
    141143
    … …  
    144146           call histdef(nid_ins, "pourc_"//clnsurf(nsrf),
    145147     $         "Fraction"//clnsurf(nsrf), "W/m2", 
    146      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     148     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    147149     $         "inst(X)", zsto,zout)
    148150
    149151           call histdef(nid_ins, "sens_"//clnsurf(nsrf),
    150152     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    151      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     153     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    152154     $         "inst(X)", zsto,zout)
    153155c
    154156           call histdef(nid_ins, "tsol_"//clnsurf(nsrf),
    155157     $         "Surface Temperature"//clnsurf(nsrf), "W/m2", 
    156      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     158     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    157159     $         "inst(X)", zsto,zout)
    158160c
    159161           call histdef(nid_ins, "lat_"//clnsurf(nsrf),
    160162     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    161      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     163     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    162164     $         "inst(X)", zsto,zout)
    163165C
    164166           call histdef(nid_ins, "taux_"//clnsurf(nsrf),
    165167     $         "Zonal wind stress"//clnsurf(nsrf),"Pa",
    166      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     168     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    167169     $         "inst(X)", zsto,zout)
    168170
    169171           call histdef(nid_ins, "tauy_"//clnsurf(nsrf),
    170172     $         "Meridional xind stress "//clnsurf(nsrf), "Pa", 
    171      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     173     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    172174     $         "inst(X)", zsto,zout)
    173175c
    174176           call histdef(nid_ins, "albe_"//clnsurf(nsrf),
    175177     $         "Albedo "//clnsurf(nsrf), "-", 
    176      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     178     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    177179     $         "inst(X)", zsto,zout)
    178180c
    179181           call histdef(nid_ins, "rugs_"//clnsurf(nsrf),
    180182     $         "rugosite "//clnsurf(nsrf), "-", 
    181      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     183     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    182184     $         "inst(X)", zsto,zout)
    183185CXXX
    184186         END DO
    185187         CALL histdef(nid_ins, "rugs", "rugosity", "-",
    186      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     188     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    187189     .                "inst(X)", zsto,zout)
    188190
    189191c
    190192         CALL histdef(nid_ins, "albs", "Surface albedo", "-",
    191      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     193     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    192194     .                "inst(X)", zsto,zout)
    193195         CALL histdef(nid_ins, "albslw", "Surface albedo LW", "-",
    194      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     196     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    195197     .                "inst(X)", zsto,zout)
    196198c
    … …  
    199201c
    200202         CALL histdef(nid_ins, "temp", "Temperature", "K",
    201      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     203     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    202204     .                "inst(X)", zsto,zout)
    203205c
    204206         CALL histdef(nid_ins, "vitu", "Zonal wind", "m/s",
    205      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     207     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    206208     .                "inst(X)", zsto,zout)
    207209c
    208210         CALL histdef(nid_ins, "vitv", "Merid wind", "m/s",
    209      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     211     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    210212     .                "inst(X)", zsto,zout)
    211213c
    212214         CALL histdef(nid_ins, "geop", "Geopotential height", "m",
    213      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     215     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    214216     .                "inst(X)", zsto,zout)
    215217c
    216218         CALL histdef(nid_ins, "pres", "Air pressure", "Pa",
    217      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     219     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    218220     .                "inst(X)", zsto,zout)
    219221c
    220222         CALL histdef(nid_ins, "dtvdf", "Boundary-layer dT", "K/s",
    221      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     223     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    222224     .                "inst(X)", zsto,zout)
    223225c
    224226         CALL histdef(nid_ins, "dqvdf", "Boundary-layer dQ", "Kg/Kg/s",
    225      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     227     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    226228     .                "inst(X)", zsto,zout)
    227229c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histmth.h

    r633 r634  
    1616         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1717c
    18          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    19          DO i = 1, iim
    20             zx_lon(i,1) = rlon(i+1)
    21             zx_lon(i,jjmp1) = rlon(i+1)
    22          ENDDO
     18cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     19cym         DO i = 1, iim
     20cym            zx_lon(i,1) = rlon(i+1)
     21cym            zx_lon(i,jjmp1) = rlon(i+1)
     22cym         ENDDO
    2323         DO ll=1,klev
    2424            znivsig(ll)=float(ll)
    2525         ENDDO
    26          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    27          CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    28      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     26cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     27cym         CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     28cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     29cym     .                 nhori, nid_mth)
     30
     31           CALL histbeg_phy("histmth.nc",itau_phy, zjulian, dtime,
    2932     .                 nhori, nid_mth)
    30          write(*,*)'Mensuel ', itau_phy, zjulian
     33     
     34       write(*,*)'Mensuel ', itau_phy, zjulian
    3135         CALL histvert(nid_mth, "presnivs", "Vertical levels", "mb",
    3236     .                 klev, presnivs, nvert)
    … …  
    3741      IF(lev_histmth.GE.1) THEN
    3842         CALL histdef(nid_mth, "phis", "Surface geop. height", "-",
    39      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     43     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4044     .                "once",  zsto,zout)
    4145c
    4246         CALL histdef(nid_mth, "aire", "Grid area", "-",
    43      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     47     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4448     .                "once",  zsto,zout)
    4549c
    4650           call histdef(nid_mth, "pourc_"//clnsurf(is_ter),
    4751     $         "Fraction "//clnsurf(is_ter), "W/m2", 
    48      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     52     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4953     $         "once", zsto,zout)
    5054c
    … …  
    5256c
    5357         CALL histdef(nid_mth, "slp", "Sea Level Pressure", "Pa",
    54      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     58     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5559     .                "ave(X)", zsto,zout)
    5660c
    5761         CALL histdef(nid_mth, "tsol", "Surface Temperature", "K",
    58      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     62     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5963     .                "ave(X)", zsto,zout)
    6064c
    6165         CALL histdef(nid_mth, "t2m", "Temperature 2m", "K",
    62      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     66     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6367     .                "ave(X)", zsto,zout)
    6468c ENSEMBLES BEG
    6569         CALL histdef(nid_mth, "t2m_min", "Temp. 2m min.",
    6670     .                "K",
    67      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     71     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6872     .                t2mincels, zsto,zout)
    6973c
    7074         CALL histdef(nid_mth, "t2m_max", "Temp. 2m max.",
    7175     .                "K",
    72      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     76     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7377     .                t2maxcels, zsto,zout)
    7478c
    7579c        CALL histdef(nid_mth, "tsoil", "Sfce soil Temperature",
    7680c    .                "K",
    77 c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     81c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7882c    .                "ave(X)", zsto,zout)
    7983c
    8084         CALL histdef(nid_mth, "wind10m","10-m wind speed","m/s",
    81      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     85     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8286     .                "ave(X)", zsto,zout)
    8387c
    8488         CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
    85      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     89     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    8690     .                "ave(X)", zsto,zout)
    8791
    … …  
    8993c ENSEMBLES END
    9094         CALL histdef(nid_mth, "q2m", "Specific humidity 2m", "kg/kg",
    91      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     95     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    9296     .                "ave(X)", zsto,zout)
    9397c
    9498         CALL histdef(nid_mth, "u10m", "Vent zonal 10m", "m/s",
    95      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     99     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    96100     .                "ave(X)", zsto,zout)
    97101c
    98102         CALL histdef(nid_mth, "v10m", "Vent meridien 10m", "m/s",
    99      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     103     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    100104     .                "ave(X)", zsto,zout)
    101105c
    102106         CALL histdef(nid_mth, "psol", "Surface Pressure", "Pa",
    103      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     107     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    104108     .                "ave(X)", zsto,zout)
    105109c
    106110         CALL histdef(nid_mth, "qsurf", "Surface Air humidity", "kg/kg",
    107      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     111     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    108112     .                "ave(X)", zsto,zout)
    109113c
    110114      if (.not. ok_veget) then
    111115         CALL histdef(nid_mth, "qsol", "Soil watter content", "mm",
    112      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     116     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    113117     .                "ave(X)", zsto,zout)
    114118      endif
    … …  
    116120         CALL histdef(nid_mth, "ndayrain",
    117121     .                "Number of day with rain (liq+sol)", "-",
    118      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     122     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    119123     .                "inst(X)", zsto1,zout)
    120124c
    121125         CALL histdef(nid_mth, "precip", "Precipitation Totale liq+sol",
    122126     .                "kg/(s*m2)",
    123      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     127     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    124128     .                "ave(X)", zsto,zout)
    125129c
    126130         CALL histdef(nid_mth, "plul", "Large-scale Precip.",
    127131     .   "kg/(s*m2)",
    128      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     132     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    129133     .                "ave(X)", zsto,zout)
    130134c
    131135         CALL histdef(nid_mth, "pluc", "Convective Precip.",
    132136     .   "kg/(s*m2)",
    133      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     137     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    134138     .                "ave(X)", zsto,zout)
    135139c
    136140         CALL histdef(nid_mth, "snow", "Snow fall", "kg/(s*m2)",
    137      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     141     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    138142     .                "ave(X)", zsto,zout)
    139143c
    140144         CALL histdef(nid_mth, "snow_mass", "Snow Mass", "kg/m2",
    141      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     145     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    142146     .                "ave(X)", zsto,zout)
    143147c
    144148         CALL histdef(nid_mth, "evap", "Evaporation", "kg/(s*m2)",
    145      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     149     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    146150     .                "ave(X)", zsto,zout)
    147151c
    148152         CALL histdef(nid_mth, "tops", "Solar rad. at TOA", "W/m2",
    149      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     153     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    150154     .                "ave(X)", zsto,zout)
    151155c
    152156         CALL histdef(nid_mth, "tops0", "Solar rad. at TOA", "W/m2",
    153      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     157     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    154158     .                "ave(X)", zsto,zout)
    155159c
    156160         CALL histdef(nid_mth, "topl", "IR rad. at TOA", "W/m2",
    157      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     161     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    158162     .                "ave(X)", zsto,zout)
    159163c
    160164         CALL histdef(nid_mth, "topl0", "IR rad. at TOA", "W/m2",
    161      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     165     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    162166     .                "ave(X)", zsto,zout)
    163167c
    164168         CALL histdef(nid_mth, "SWupTOA", "SWup at TOA","W/m2",
    165      .                iim,jjmp1,nhori, 1,1,1,-99,
     169     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    166170     .                32, "ave(X)", zsto2,zout)
    167171c
    168172         CALL histdef(nid_mth, "SWupTOAclr",
    169173     .                "SWup clear sky at TOA","W/m2",
    170      .                iim,jjmp1,nhori, 1,1,1,-99,
     174     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    171175     .                32, "ave(X)", zsto2,zout)
    172176c
    173177         CALL histdef(nid_mth, "SWdnTOA", "SWdn at TOA","W/m2",
    174      .                iim,jjmp1,nhori, 1,1,1,-99,
     178     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    175179     .                32, "ave(X)", zsto2,zout)
    176180c
    177181         CALL histdef(nid_mth, "SWdnTOAclr",
    178182     .                "SWdn clear sky at TOA","W/m2",
    179      .                iim,jjmp1,nhori, 1,1,1,-99,
     183     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    180184     .                32, "ave(X)", zsto2,zout)
    181185c
    182186         CALL histdef(nid_mth, "SWup200", "SWup at 200hPa","W/m2",
    183      .                iim,jjmp1,nhori, 1,1,1,-99,
     187     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    184188     .                32, "ave(X)", zsto2,zout)
    185189c
    186190         CALL histdef(nid_mth, "SWup200clr",
    187191     .                "SWup clear sky at 200hPa","W/m2",
    188      .                iim,jjmp1,nhori, 1,1,1,-99,
     192     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    189193     .                32, "ave(X)", zsto2,zout)
    190194c
    191195         CALL histdef(nid_mth, "SWdn200", "SWdn at 200hPa","W/m2",
    192      .                iim,jjmp1,nhori, 1,1,1,-99,
     196     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    193197     .                32, "ave(X)", zsto2,zout)
    194198c
    195199         CALL histdef(nid_mth, "SWdn200clr",
    196200     .                "SWdn clear sky at 200hPa","W/m2",
    197      .                iim,jjmp1,nhori, 1,1,1,-99,
     201     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    198202     .                32, "ave(X)", zsto2,zout)
    199203c
    200204         CALL histdef(nid_mth, "LWup200", "LWup at 200hPa","W/m2",
    201      .                iim,jjmp1,nhori, 1,1,1,-99,
     205     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    202206     .                32, "ave(X)", zsto2,zout)
    203207c
    204208         CALL histdef(nid_mth, "LWup200clr",
    205209     .                "LWup clear sky at 200hPa","W/m2",
    206      .                iim,jjmp1,nhori, 1,1,1,-99,
     210     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    207211     .                32, "ave(X)", zsto2,zout)
    208212c
    209213         CALL histdef(nid_mth, "LWdn200", "LWdn at 200hPa","W/m2",
    210      .                iim,jjmp1,nhori, 1,1,1,-99,
     214     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    211215     .                32, "ave(X)", zsto2,zout)
    212216c
    213217         CALL histdef(nid_mth, "LWdn200clr",
    214218     .                "LWdn clear sky at 200hPa","W/m2",
    215      .                iim,jjmp1,nhori, 1,1,1,-99,
     219     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    216220     .                32, "ave(X)", zsto2,zout)
    217221c
    218222         CALL histdef(nid_mth, "sols", "Solar rad. at surf.", "W/m2",
    219      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     223     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    220224     .                "ave(X)", zsto,zout)
    221225c
    222226         CALL histdef(nid_mth, "sols0", "Solar rad. at surf.", "W/m2",
    223      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     227     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    224228     .                "ave(X)", zsto,zout)
    225229c
    226230         CALL histdef(nid_mth, "soll", "IR rad. at surface", "W/m2",
    227      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     231     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    228232     .                "ave(X)", zsto,zout)
    229233c
    230234         CALL histdef(nid_mth, "soll0", "IR rad. at surface", "W/m2",
    231      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     235     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    232236     .                "ave(X)", zsto,zout)
    233237c
    234238         CALL histdef(nid_mth, "SWupSFC", "SWup at surface","W/m2",
    235      .                iim,jjmp1,nhori, 1,1,1,-99,
     239     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    236240     .                32, "ave(X)", zsto2,zout)
    237241c
    238242         CALL histdef(nid_mth, "SWupSFCclr",
    239243     .                "SWup clear sky at surface","W/m2",
    240      .                iim,jjmp1,nhori, 1,1,1,-99,
     244     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    241245     .                32, "ave(X)", zsto2,zout)
    242246c
    243247         CALL histdef(nid_mth, "SWdnSFC", "SWdn at surface","W/m2",
    244      .                iim,jjmp1,nhori, 1,1,1,-99,
     248     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    245249     .                32, "ave(X)", zsto2,zout)
    246250c
    247251         CALL histdef(nid_mth, "SWdnSFCclr",
    248252     .                "SWdn clear sky at surface","W/m2",
    249      .                iim,jjmp1,nhori, 1,1,1,-99,
     253     .                iim,jjphy_nb,nhori, 1,1,1,-99,
    250254     .                32, "ave(X)", zsto2,zout)
    251255c
    252256         CALL histdef(nid_mth,"LWupSFC","Upwd. IR rad. at surface",
    253      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     257     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    254258     .                "ave(X)", zsto2,zout)
    255259c
    256260         CALL histdef(nid_mth,"LWdnSFC","Down. IR rad. at surface",
    257      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     261     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    258262     .                "ave(X)", zsto2,zout)
    259263c
    260264         CALL histdef(nid_mth,"LWupSFCclr",
    261265     .                "CS Upwd. IR rad. at surface",
    262      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     266     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    263267     .                "ave(X)", zsto2,zout)
    264268c
    265269         CALL histdef(nid_mth,"LWdnSFCclr",
    266270     .                "Down. CS IR rad. at surface",
    267      .                "W/m2", iim,jjmp1,nhori, 1,1,1, -99, 32,
     271     .                "W/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    268272     .                "ave(X)", zsto2,zout)
    269273c
    270274         CALL histdef(nid_mth, "bils", "Surf. total heat flux", "W/m2",
    271      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     275     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    272276     .                "ave(X)", zsto,zout)
    273277c
    274278         CALL histdef(nid_mth, "sens", "Sensible heat flux", "W/m2",
    275      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     279     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    276280     .                "ave(X)", zsto,zout)
    277281c
    278282         CALL histdef(nid_mth, "fder", "Heat flux derivation", "W/m2",
    279      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     283     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    280284     .                "ave(X)", zsto,zout)
    281285c
    … …  
    284288c     IF (ok_ade.OR.ok_aie) THEN
    285289         CALL histdef(nid_mth, "topsad", "ADE at TOA", "W/m2",
    286      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     290     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    287291     .                "ave(X)", zsto,zout)
    288292c
    289293         CALL histdef(nid_mth, "solsad", "ADE at sfc", "W/m2",
    290      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     294     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    291295     .                "ave(X)", zsto,zout)
    292296c
    293297         CALL histdef(nid_mth, "topsai", "AIE at TOA", "W/m2",
    294      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     298     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    295299     .                "ave(X)", zsto,zout)
    296300c
    297301         CALL histdef(nid_mth, "solsai", "AIE at sfc", "W/m2",
    298      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     302     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    299303     .                "ave(X)", zsto,zout)
    300304c     endif
    … …  
    303307c
    304308c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    305 c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     309c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    306310c    .                "ave(X)", zsto,zout)
    307311c
    308312c        CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
    309 c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     313c    .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    310314c    .                "ave(X)", zsto,zout)
    311315c
    312316         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
    313      .                "W/m2",iim,jjmp1,nhori, 1,1,1, -99, 32,
     317     .                "W/m2",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    314318     .                "ave(X)", zsto,zout)
    315319c
    316320         CALL histdef(nid_mth, "fqcalving","Ice Calving",
    317      .                "kg/m2/s",iim,jjmp1,nhori, 1,1,1, -99, 32,
     321     .                "kg/m2/s",iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    318322     .                "ave(X)", zsto,zout)
    319323cIM: 171003
    … …  
    321325           call histdef(nid_mth, "taux_"//clnsurf(nsrf),
    322326     $         "Zonal wind stress"//clnsurf(nsrf), "Pa", 
    323      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     327     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    324328     $         "ave(X)", zsto,zout)
    325329
    326330           call histdef(nid_mth, "tauy_"//clnsurf(nsrf),
    327331     $         "Meridional xind stress "//clnsurf(nsrf), "Pa", 
    328      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     332     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    329333     $         "ave(X)", zsto,zout)
    330334         ENDDO
    … …  
    336340           call histdef(nid_mth, "pourc_"//clnsurf(nsrf),
    337341     $         "Fraction "//clnsurf(nsrf), "W/m2", 
    338      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     342     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    339343     $         "ave(X)", zsto,zout)
    340344          ENDIF !nsrf.GT.1
    … …  
    342346           call histdef(nid_mth, "tsol_"//clnsurf(nsrf),
    343347     $         "Fraction "//clnsurf(nsrf), "W/m2", 
    344      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     348     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    345349     $         "ave(X)", zsto,zout)
    346350C
    347351           call histdef(nid_mth, "sens_"//clnsurf(nsrf),
    348352     $         "Sensible heat flux "//clnsurf(nsrf), "W/m2", 
    349      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     353     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    350354     $         "ave(X)", zsto,zout)
    351355c
    352356           call histdef(nid_mth, "lat_"//clnsurf(nsrf),
    353357     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    354      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     358     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    355359     $         "ave(X)", zsto,zout)
    356360C
    357361           call histdef(nid_mth, "flw_"//clnsurf(nsrf),
    358362     $         "LW "//clnsurf(nsrf), "W/m2",
    359      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     363     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    360364     $         "ave(X)", zsto2,zout)
    361365c
    362366           call histdef(nid_mth, "fsw_"//clnsurf(nsrf),
    363367     $         "SW "//clnsurf(nsrf), "W/m2",
    364      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     368     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    365369     $         "ave(X)", zsto2,zout)
    366370C
    367371           call histdef(nid_mth, "wbils_"//clnsurf(nsrf),
    368372     $         "Bilan sol "//clnsurf(nsrf), "W/m2",
    369      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     373     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    370374     $         "ave(X)", zsto,zout)
    371375C
    … …  
    373377c
    374378         CALL histdef(nid_mth, "cdrm", "Momentum drag coef.", "-",
    375      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     379     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    376380     .                "ave(X)", zsto,zout)
    377381c
    378382         CALL histdef(nid_mth, "cdrh", "Heat drag coef.", "-",
    379      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     383     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    380384     .                "ave(X)", zsto,zout)
    381385c
    382386         CALL histdef(nid_mth, "cldl", "Low-level cloudiness", "-",
    383      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     387     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    384388     .                "ave(X)", zsto,zout)
    385389c
    386390         CALL histdef(nid_mth, "cldm", "Mid-level cloudiness", "-",
    387      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     391     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    388392     .                "ave(X)", zsto,zout)
    389393c
    390394         CALL histdef(nid_mth, "cldh", "High-level cloudiness", "-",
    391      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     395     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    392396     .                "ave(X)", zsto,zout)
    393397c
    394398         CALL histdef(nid_mth, "cldt", "Total cloudiness", "-",
    395      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     399     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    396400     .                "ave(X)", zsto,zout)
    397401c
    398402         CALL histdef(nid_mth,"cldq","Cloud liquid water path","kg/m2",
    399      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     403     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    400404     .                "ave(X)", zsto,zout)
    401405cIM: 071003
    402406         CALL histdef(nid_mth,"lwp","Cloud water path","kg/m2",
    403      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     407     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    404408     .                "ave(X)", zsto,zout)
    405409c
    406410         CALL histdef(nid_mth,"iwp","Cloud ice water path","kg/m2",
    407      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     411     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    408412     .                "ave(X)", zsto,zout)
    409413cIM: 071003
    410414c
    411415         CALL histdef(nid_mth, "ue", "Zonal energy transport", "-",
    412      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     416     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    413417     .                "ave(X)", zsto,zout)
    414418c
    415419         CALL histdef(nid_mth, "ve", "Merid energy transport", "-",
    416      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     420     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    417421     .                "ave(X)", zsto,zout)
    418422c
    419423         CALL histdef(nid_mth, "uq", "Zonal humidity transport", "-",
    420      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     424     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    421425     .                "ave(X)", zsto,zout)
    422426c
    423427         CALL histdef(nid_mth, "vq", "Merid humidity transport", "-",
    424      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     428     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    425429     .                "ave(X)", zsto,zout)
    426430cKE43
    … …  
    428432c
    429433         CALL histdef(nid_mth, "cape", "Conv avlbl pot ener", "J/kg",
    430      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     434     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    431435     .                "ave(X)", zsto,zout)
    432436c
    433437         CALL histdef(nid_mth, "pbase", "Cld base pressure", "hPa",
    434      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     438     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    435439     .                "ave(X)", zsto,zout)
    436440c
    437441         CALL histdef(nid_mth, "ptop", "Cld top pressure", "hPa",
    438      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     442     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    439443     .                "ave(X)", zsto,zout)
    440444c
    441445         CALL histdef(nid_mth, "fbase", "Cld base mass flux", "kg/m2/s",
    442      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     446     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    443447     .                "ave(X)", zsto,zout)
    444448c
    … …  
    446450c
    447451         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
    448      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     452     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    449453     .                "ave(X)", zsto,zout)
    450454c
    … …  
    455459          CALL histdef(nid_mth, "u"//clev(k),
    456460     .                 "Zonal wind"//clev(k)//"mb","m/s",
    457      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     461     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    458462     .                "ave(X)", zsto,zout)
    459463c
    460464          CALL histdef(nid_mth, "v"//clev(k),
    461465     .                 "Meridional wind"//clev(k)//"mb","m/s",
    462      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     466     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    463467     .                "ave(X)", zsto,zout)
    464468c
    465469          CALL histdef(nid_mth, "w"//clev(k),
    466470     .                 "Vertical wind"//clev(k)//"mb","Pa/s",
    467      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     471     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    468472     .                "ave(X)", zsto,zout)
    469473c
    470474          CALL histdef(nid_mth, "phi"//clev(k),
    471475     .                 "Geopotential"//clev(k)//"mb","m2/s2",
    472      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     476     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    473477     .                "ave(X)", zsto,zout)
    474478c
    … …  
    482486c
    483487         CALL histdef(nid_mth,"lwcon","Cloud water content","kg/kg",
    484      .                iim,jjmp1,nhori, klev,1,klev, nvert, 32,
     488     .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
    485489     .                "ave(X)", zsto,zout)
    486490c
    487491         CALL histdef(nid_mth,"iwcon","Cloud ice water content","kg/kg",
    488      .                iim,jjmp1,nhori, klev,1,klev, nvert, 32,
     492     .                iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
    489493     .                "ave(X)", zsto,zout)
    490494c
    491495         CALL histdef(nid_mth, "temp", "Air temperature", "K",
    492      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     496     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    493497     .                "ave(X)", zsto,zout)
    494498c
    495499         CALL histdef(nid_mth, "ovap", "Specific humidity", "kg/kg",
    496      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     500     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    497501     .                "ave(X)", zsto,zout)
    498502c
    499503c        CALL histdef(nid_mth,"wvap","Water vapor mixing ratio","kg/kg",
    500 c    .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     504c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    501505c    .                "ave(X)", zsto,zout)
    502506c
    503507         CALL histdef(nid_mth, "geop", "Geopotential height", "m",
    504      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     508     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    505509     .                "ave(X)", zsto,zout)
    506510c
    507511         CALL histdef(nid_mth, "vitu", "Zonal wind", "m/s",
    508      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     512     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    509513     .                "ave(X)", zsto,zout)
    510514c
    511515         CALL histdef(nid_mth, "vitv", "Meridional wind", "m/s",
    512      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     516     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    513517     .                "ave(X)", zsto,zout)
    514518c
    515519         CALL histdef(nid_mth, "vitw", "Vertical wind", "Pa/s",
    516      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     520     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    517521     .                "ave(X)", zsto,zout)
    518522c
    519523         CALL histdef(nid_mth, "pres", "Air pressure", "Pa",
    520      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     524     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    521525     .                "ave(X)", zsto,zout)
    522526c
    523527        CALL histdef(nid_mth, "rneb", "Cloud fraction", "-",
    524      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     528     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    525529     .                "ave(X)", zsto,zout)
    526530c
    527531         CALL histdef(nid_mth, "rnebcon", "Convective Cloud Fraction"
    528532     .                , "-",
    529      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     533     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    530534     .                "ave(X)", zsto,zout)
    531535c
    532536         CALL histdef(nid_mth, "rhum", "Relative humidity", "-",
    533      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     537     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    534538     .                "ave(X)", zsto,zout)
    535539c
    536540         CALL histdef(nid_mth, "ozone", "Ozone concentration", "-",
    537      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     541     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    538542     .                "ave(X)", zsto,zout)
    539543c
    540544         CALL histdef(nid_mth, "dtphy", "Physics dT", "K/s",
    541      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     545     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    542546     .                "ave(X)", zsto,zout)
    543547c
    544548         CALL histdef(nid_mth, "dqphy", "Physics dQ", "kg/kg/s",
    545      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     549     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    546550     .                "ave(X)", zsto,zout)
    547551c
    … …  
    559563           call histdef(nid_mth, "albe_"//clnsurf(nsrf),
    560564     $         "Albedo surf. "//clnsurf(nsrf), "-", 
    561      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     565     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    562566     $         "ave(X)", zsto,zout)
    563567c
    564568           call histdef(nid_mth, "rugs_"//clnsurf(nsrf),
    565569     $         "Latent heat flux "//clnsurf(nsrf), "W/m2", 
    566      $         iim,jjmp1,nhori, 1,1,1, -99, 32,
     570     $         iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    567571     $         "ave(X)", zsto,zout)
    568572c
    569573         CALL histdef(nid_mth, "ages_"//clnsurf(nsrf), "Snow age","day",
    570      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     574     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    571575     .                "ave(X)", zsto,zout)
    572576c
    … …  
    574578c
    575579         CALL histdef(nid_mth, "albs", "Surface albedo", "-",
    576      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     580     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    577581     .                "ave(X)", zsto,zout)
    578582         CALL histdef(nid_mth, "albslw", "Surface albedo LW", "-",
    579      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     583     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    580584     .                "ave(X)", zsto,zout)
    581585c
    … …  
    587591     .                "Convective Cloud Liquid water content"
    588592     .                , "kg/kg",
    589      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     593     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    590594     .                "ave(X)", zsto,zout)
    591595c
    … …  
    593597c
    594598         CALL histdef(nid_mth,"Ma","undilute adiab updraft","kg/m2/s",
    595      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     599     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    596600     .                "ave(X)", zsto,zout)
    597601c
    598602         CALL histdef(nid_mth, "upwd", "saturated updraft", "kg/m2/s",
    599      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     603     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    600604     .                "ave(X)", zsto,zout)
    601605c
    602606         CALL histdef(nid_mth, "dnwd", "saturated downdraft","kg/m2/s",
    603      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     607     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    604608     .                "ave(X)", zsto,zout)
    605609c
    606610         CALL histdef(nid_mth, "dnwd0", "unsat. downdraft", "kg/m2/s",
    607      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     611     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    608612     .                "ave(X)", zsto,zout)
    609613      ENDIF !iflag_con.GE.3
    … …  
    611615c
    612616         CALL histdef(nid_mth, "dtdyn", "Dynamics dT", "K/s",
    613      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     617     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    614618     .                "ave(X)", zsto,zout)
    615619c
    616620         CALL histdef(nid_mth, "dqdyn", "Dynamics dQ", "kg/kg/s",
    617      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     621     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    618622     .                "ave(X)", zsto,zout)
    619623c
    620624         CALL histdef(nid_mth, "dtcon", "Convection dT", "K/s",
    621      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     625     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    622626     .                "ave(X)", zsto,zout)
    623627c
    624628c        CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
    625 c    .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     629c    .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    626630c    .                "ave(X)", zsto,zout)
    627631c
    628632         CALL histdef(nid_mth, "dqcon", "Convection dQ", "kg/kg/s",
    629      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     633     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    630634     .                "ave(X)", zsto,zout)
    631635c
    632636         CALL histdef(nid_mth, "dtlsc", "Condensation dT", "K/s",
    633      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     637     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    634638     .                "ave(X)", zsto,zout)
    635639cIM: 071003
    636640         CALL histdef(nid_mth, "dtlschr",
    637      $       "Large-scale condensational heating rate", "K/s",iim,jjmp1
    638      $       ,nhori, klev,1,klev,nvert, 32,"ave(X)", zsto,zout)
     641     $       "Large-scale condensational heating rate", "K/s",iim,
     642     $       jjphy_nb,nhori, klev,1,klev,nvert, 32,"ave(X)", zsto,zout)
    639643c
    640644         CALL histdef(nid_mth, "dqlsc", "Condensation dQ", "kg/kg/s",
    641      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     645     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    642646     .                "ave(X)", zsto,zout)
    643647c
    644648         CALL histdef(nid_mth, "dtvdf", "Boundary-layer dT", "K/s",
    645      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     649     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    646650     .                "ave(X)", zsto,zout)
    647651c
    648652         CALL histdef(nid_mth, "dqvdf", "Boundary-layer dQ", "kg/kg/s",
    649      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     653     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    650654     .                "ave(X)", zsto,zout)
    651655c
    652656         CALL histdef(nid_mth, "dteva", "Reevaporation dT", "K/s",
    653      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     657     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    654658     .                "ave(X)", zsto,zout)
    655659c
    656660         CALL histdef(nid_mth, "dqeva", "Reevaporation dQ", "kg/kg/s",
    657      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     661     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    658662     .                "ave(X)", zsto,zout)
    659663
    660664         CALL histdef(nid_mth, "ptconv", "POINTS CONVECTIFS"," ",
    661      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     665     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    662666     .                "ave(X)", zsto,zout)
    663667
    664668         CALL histdef(nid_mth, "ratqs", "RATQS"," ",
    665      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     669     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    666670     .                "ave(X)", zsto,zout)
    667671
    668672c
    669673         CALL histdef(nid_mth, "dtajs", "Dry adjust. dT", "K/s",
    670      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     674     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    671675     .                "ave(X)", zsto,zout)
    672676
    673677         CALL histdef(nid_mth, "dqajs", "Dry adjust. dQ", "kg/kg/s",
    674      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     678     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    675679     .                "ave(X)", zsto,zout)
    676680c
    677681         CALL histdef(nid_mth, "dtswr", "SW radiation dT", "K/s",
    678      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     682     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    679683     .                "ave(X)", zsto,zout)
    680684c
    681685         CALL histdef(nid_mth, "dtsw0", "CS SW radiation dT", "K/s",
    682      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     686     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    683687     .                "ave(X)", zsto,zout)
    684688c
    685689         CALL histdef(nid_mth, "dtlwr", "LW radiation dT", "K/s",
    686      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     690     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    687691     .                "ave(X)", zsto,zout)
    688692c
    689693         CALL histdef(nid_mth,"dtlw0","CS LW radiation dT","K/s",
    690      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     694     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    691695     .                "ave(X)", zsto,zout)
    692696c
    693697         CALL histdef(nid_mth, "dtec", "Cinetic dissip dT", "K/s",
    694      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     698     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    695699     .                "ave(X)", zsto,zout)
    696700c
    697701         CALL histdef(nid_mth, "duvdf", "Boundary-layer dU", "m/s2",
    698      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     702     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    699703     .                "ave(X)", zsto,zout)
    700704c
    701705         CALL histdef(nid_mth, "dvvdf", "Boundary-layer dV", "m/s2",
    702      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     706     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    703707     .                "ave(X)", zsto,zout)
    704708c
    705709         IF (ok_orodr) THEN
    706710         CALL histdef(nid_mth, "duoro", "Orography dU", "m/s2",
    707      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     711     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    708712     .                "ave(X)", zsto,zout)
    709713c
    710714         CALL histdef(nid_mth, "dvoro", "Orography dV", "m/s2",
    711      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     715     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    712716     .                "ave(X)", zsto,zout)
    713717c
    … …  
    716720         IF (ok_orolf) THEN
    717721         CALL histdef(nid_mth, "dulif", "Orography dU", "m/s2",
    718      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     722     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    719723     .                "ave(X)", zsto,zout)
    720724c
    721725         CALL histdef(nid_mth, "dvlif", "Orography dV", "m/s2",
    722      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     726     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    723727     .                "ave(X)", zsto,zout)
    724728         ENDIF
    … …  
    728732c     IF (ok_ade.OR.ok_aie) THEN
    729733         CALL histdef(nid_mth, "re", "CDR", "um",
    730      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     734     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    731735     .                "ave(X)", zsto,zout)
    732736c
    733737         CALL histdef(nid_mth, "redenom", "CDR denominator", "-",
    734      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     738     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    735739     .                "ave(X)", zsto,zout)
    736740c
    737741         CALL histdef(nid_mth, "tau", "cloud opt thickness", "-",
    738      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     742     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    739743     .                "ave(X)", zsto,zout)
    740744c
    741745         CALL histdef(nid_mth, "taupi", "cloud opt thickn. (pi)", "-",
    742      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     746     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    743747     .                "ave(X)", zsto,zout)
    744748c     endif
    … …  
    748752         iiq=niadv(iq)
    749753         CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
    750      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     754     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    751755     .                "ave(X)", zsto,zout)
    752756         ENDDO

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histmthNMC.h

    r524 r634  
    1010         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    1111c
    12          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    13          DO i = 1, iim
    14             zx_lon(i,1) = rlon(i+1)
    15             zx_lon(i,jjmp1) = rlon(i+1)
    16          ENDDO
     12cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
     13cym         DO i = 1, iim
     14cym            zx_lon(i,1) = rlon(i+1)
     15cym            zx_lon(i,jjmp1) = rlon(i+1)
     16cym         ENDDO
    1717         DO ll=1,klev
    1818            znivsig(ll)=float(ll)
    1919         ENDDO
    20          CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    21          CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    22      .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     20cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     21cym         CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     22cym     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
     23cym     .                 nhori, nid_nmc)
     24
     25         CALL histbeg_phy("histNMC.nc",itau_phy, zjulian, dtime,
    2326     .                 nhori, nid_nmc)
     27
    2428         write(*,*)'Mensuel NMC ', itau_phy, zjulian
    2529         CALL histvert(nid_nmc, "presnivs", "Vertical levels", "mb",
    … …  
    4448          CALL histdef(nid_nmc, "t"//bb,
    4549     .                 "Temperature"//bb//"mb","K",
    46      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     50     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4751     .                "ave(X)", zsto,zout)
    4852c
    4953         CALL histdef(nid_nmc, "phi"//bb,
    5054     .                "Geopotential"//bb//"mb", "m2/s2",
    51      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     55     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5256     .                "ave(X)", zsto,zout)
    5357c
    5458          CALL histdef(nid_nmc, "q"//bb,
    5559     .                 "Specific humidity"//bb//"mb","kg/kg",
    56      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     60     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    5761     .                "ave(X)", zsto,zout)
    5862c
    5963         CALL histdef(nid_nmc, "rh"//bb,
    6064     .                 "Relative humidity"//bb//"mb", "%",
    61      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     65     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6266     .                "ave(X)", zsto,zout)
    6367c
    6468          CALL histdef(nid_nmc, "u"//bb,
    6569     .                 "Zonal wind"//bb//"mb","K",
    66      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     70     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    6771     .                "ave(X)", zsto,zout)
    6872c
    6973          CALL histdef(nid_nmc, "v"//bb,
    7074     .                 "Meridional wind"//bb//"mb","K",
    71      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     75     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    7276     .                "ave(X)", zsto,zout)
    7377c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ini_histrac.h

    r633 r634  
    44         CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
    55c
    6          CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
    7          DO i = 1, iim
    8             zx_lon(i,1) = xlon(i+1)
    9             zx_lon(i,jjm+1) = xlon(i+1)
    10          ENDDO
    11          CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
    12          CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
    13      .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
     6cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlon,zx_lon)
     7cym         DO i = 1, iim
     8cym            zx_lon(i,1) = xlon(i+1)
     9cym            zx_lon(i,jjm+1) = xlon(i+1)
     10cym         ENDDO
     11cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,xlat,zx_lat)
     12cym         CALL histbeg("histrac", iim,zx_lon(:,1), jjm+1,zx_lat(1,:),
     13cym     .                 1,iim,1,jjm+1, itau_phy, zjulian, pdtphys,
     14cym     .                 nhori, nid_tra)
     15         CALL histbeg_phy("histrac", itau_phy, zjulian, pdtphys,
    1416     .                 nhori, nid_tra)
    1517         CALL histvert(nid_tra, "presnivs", "Vertical levels", "mb",
    … …  
    1719
    1820#ifdef INCA_AER
    19          CALL histbeg("histrac_aer", iim,zx_lon, jjm+1,zx_lat,
    20      .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
     21cym         CALL histbeg("histrac_aer", iim,zx_lon, jjm+1,zx_lat,
     22cym     .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
     23cym     .                 nhori, nid_tra2)
     24         CALL histbeg_phy("histrac_aer", itau_phy, zjulian, pdtphys,
    2125     .                 nhori, nid_tra2)
    2226
    23          CALL histbeg("histrac_inst", iim,zx_lon, jjm+1,zx_lat,
    24      .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
     27cym         CALL histbeg("histrac_inst", iim,zx_lon, jjm+1,zx_lat,
     28cym     .                 1,iim,1,jjm+1,  itau_phy, zjulian, pdtphys,
     29cym     .                 nhori, nid_tra3)
     30         CALL histbeg_phy("histrac_inst",itau_phy, zjulian, pdtphys,
    2531     .                 nhori, nid_tra3)
    2632
    … …  
    4248c
    4349         CALL histdef(nid_tra, "phis", "Surface geop. height", "-",
    44      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     50     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4551     .                "once",  zsto,zout)
    4652c
    4753         CALL histdef(nid_tra, "aire", "Grid area", "-",
    48      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     54     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    4955     .                "once",  zsto,zout)
    5056#ifdef INCA
    5157         CALL histdef(nid_tra, "ps", "Surface pressure", "Pa",
    52      .                iim,jjm+1,nhori, 1,1,1,-99, 32,
     58     .                iim,jjphy_nb,nhori, 1,1,1,-99, 32,
    5359     .                "ave(X)", zsto,zout)
    5460
    5561         CALL histdef(nid_tra, "ptrop", "Tropopause pressure", "Pa",
    56      .                iim,jjm+1,nhori, 1,1,1,-99, 32,
     62     .                iim,jjphy_nb,nhori, 1,1,1,-99, 32,
    5763     .                "ave(X)", zsto,zout)
    5864
    5965C   3d FIELDS
    6066         CALL histdef(nid_tra, "temp", "Air temperature", "K",
    61      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     67     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    6268     .                "ave(X)", zsto,zout)
    6369
    6470         CALL histdef(nid_tra, "u", "zonal wind component", "m/s",
    65      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     71     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    6672     .                "ave(X)", zsto,zout)
    6773
    6874         CALL histdef(nid_tra, "v", "zonal wind component", "m/s",
    69      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     75     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    7076     .                "ave(X)", zsto,zout)
    7177
    7278         CALL histdef(nid_tra, "h2o", "Specific Humidity", "MMR",
    73      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     79     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    7480     .                "ave(X)", zsto,zout)
    7581
    7682         CALL histdef(nid_tra, "pmid", "Pressure", "Pa",
    77      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     83     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    7884     .                "ave(X)", zsto,zout)
    7985
    8086         CALL histdef(nid_tra, "pdel", "Delta Pressure", "Pa",
    81      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     87     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    8288     .                "ave(X)", zsto,zout)
    8389
    8490! MS info
    8591         CALL histdef(nid_tra, "airm", "Air mass", "kg",
    86      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     92     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    8793     .                "ave(X)", zsto,zout)
    8894
    … …  
    9298         WRITE(str2,'(i2.2)') it
    9399         CALL histdef(nid_tra, "j"//str2,"j"//str2, "CM-3 S-1",
    94      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     100     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    95101     .                "ave(X)", zsto,zout)
    96102         ENDDO
    … …  
    98104         WRITE(str2,'(i2.2)') it
    99105         CALL histdef(nid_tra, "w"//str2,"w"//str2, "S-1",
    100      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     106     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    101107     .                "ave(X)", zsto,zout)
    102108         ENDDO
    … …  
    105111         WRITE(str2,'(i2.2)') it
    106112         CALL histdef(nid_tra, "ext"//str2,"ext"//str2, "CM-3 S-1",
    107      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     113     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    108114     .                "ave(X)", zsto,zout)
    109115         ENDDO
    … …  
    112118         WRITE(str2,'(i2.2)') it
    113119         CALL histdef(nid_tra, "INV"//str2, "INV"//str2, "CM-3",
    114      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     120     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    115121     .                "ave(X)", zsto,zout)
    116122         ENDDO
    … …  
    118124#else
    119125         CALL histdef(nid_tra, "jO3","jO3", "CM-3 S-1",
    120      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     126     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    121127     .                "ave(X)", zsto,zout)
    122128         CALL histdef(nid_tra, "jNO2","jNO2", "CM-3 S-1",
    123      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     129     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    124130     .                "ave(X)", zsto,zout)
    125131         CALL histdef(nid_tra, "jH2O2","jH2O2", "CM-3 S-1",
    126      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     132     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    127133     .                "ave(X)", zsto,zout)
    128134         CALL histdef(nid_tra, "wHNO3","wHNO3", "S-1",
    129      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     135     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    130136     .                "ave(X)", zsto,zout)
    131137         CALL histdef(nid_tra, "kN2O5", "kN2O5","CM-3 S-1",
    132      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     138     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    133139     .                "ave(X)", zsto,zout)
    134140         CALL histdef(nid_tra, "LghtNO","LghtNO", "CM-3 S-1",
    135      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     141     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    136142     .                "ave(X)", zsto,zout)
    137143#endif
    … …  
    139145         DO it=1, grpcnt
    140146         CALL histdef(nid_tra, grpsym(it), grpsym(it), "VMR",
    141      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     147     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    142148     .                "ave(X)", zsto,zout)
    143149         ENDDO
    … …  
    147153
    148154        CALL histdef(nid_tra2, "scavcoef_st","scavcoef_st", "S-1",
    149      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     155     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    150156     .                "ave(X)", zsto,zout)
    151157        CALL histdef(nid_tra2, "scavcoef_cv","scavcoef_cv", "S-1",
    152      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     158     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    153159     .                "ave(X)", zsto,zout)
    154160        CALL histdef(nid_tra2, "AngstroemComp","AngstroemComp",
    155      .      "angs comp", iim,jjm+1,nhori, 1,1,1, -99, 32,
     161     .      "angs comp", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    156162     .      "ave(X)", zsto,zout)
    157163
    … …  
    164170
    165171         CALL histdef(nid_tra, "Emi_"//solsym(it), "Emi_"//solsym(it),
    166      .           "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     172     .           "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    167173     .           "ave(X)", zsto,zout)
    168174         CALL histdef(nid_tra, "Dep_"//solsym(it), "Dep_"//solsym(it),
    169      .           "cm/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     175     .           "cm/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    170176     .           "ave(X)", zsto,zout)
    171177#ifdef INCA_AER
    172178        IF  ((it .ge. trmx) .and. (it .le. trnx)) then
    173179          CALL histdef(nid_tra2, "Sed_"//solsym(it), "Sed_"//solsym(it),
    174      .      "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     180     .      "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    175181     .      "ave(X)", zsto,zout)
    176182          CALL histdef(nid_tra2, "Dry_"//solsym(it), "Dry_"//solsym(it),
    177      .      "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     183     .      "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    178184     .      "ave(X)", zsto,zout)
    179185          CALL histdef(nid_tra2, "Wet_"//solsym(it), "Wet_"//solsym(it),
    180      .      "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     186     .      "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    181187     .      "ave(X)", zsto,zout)
    182188          CALL histdef(nid_tra2, "WetST_"//solsym(it), "WetST_"//solsym(it),
    183      .      "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     189     .      "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    184190     .      "ave(X)", zsto,zout)
    185191          CALL histdef(nid_tra2, "WetCV_"//solsym(it), "WetCV_"//solsym(it),
    186      .      "kg/m2/s", iim,jjm+1,nhori, 1,1,1, -99, 32,
     192     .      "kg/m2/s", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    187193     .      "ave(X)", zsto,zout)
    188194          CALL histdef(nid_tra2, "Emi_alt_"//solsym(it), "Emi_alt_"//solsym(it),
    189      .      "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     195     .      "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    190196     .      "ave(X)", zsto,zout)
    191197          CALL histdef(nid_tra2, "Load_"//solsym(it), "Load_"//solsym(it),
    192      .      "kg/m2", iim,jjm+1,nhori, 1,1,1, -99, 32,
     198     .      "kg/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    193199     .      "ave(X)", zsto,zout)
    194200          CALL histdef(nid_tra2, "SConc_"//solsym(it), "SConc_"//solsym(it),
    195      .      "kg/m3", iim,jjm+1,nhori, 1,1,1, -99, 32,
     201     .      "kg/m3", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    196202     .      "ave(X)", zsto,zout)
    197203          do la=1,las
    198204           CALL histdef(nid_tra2, "OD_"//cla(la)//solsym(it),
    199205     .                            "OD_"//cla(la)//solsym(it),
    200      .        "opt. depth", iim,jjm+1,nhori, 1,1,1, -99, 32,
     206     .        "opt. depth", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    201207     .        "ave(X)", zsto,zout)
    202208          enddo
    203209          CALL histdef(nid_tra2, "MD_"//solsym(it), "MD_"//solsym(it),
    204      .      "median diameter", iim,jjm+1,nhori, klev,1,klev, nvert, 32,
     210     .      "median diameter", iim,jjphy_nb,nhori, klev,1,klev, nvert, 32,
    205211     .      "ave(X)", zsto,zout)
    206212          CALL histdef(nid_tra3, "Inst_Load_"//solsym(it),
    207213     .                          "Inst_Load_"//solsym(it),
    208      .      "kg/m2", iim,jjm+1,nhori, 1,1,1, -99, 32,
     214     .      "kg/m2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    209215     .      "inst(X)", zout,zout)
    210216        endif
    211217#endif
    212218         CALL histdef(nid_tra, solsym(it), solsym(it), "VMR",
    213      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     219     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    214220     .                "ave(X)", zsto,zout)
    215221#else
    … …  
    217223         iiq=niadv(iq)
    218224         CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
    219      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     225     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    220226     .                "ave(X)", zsto,zout)
    221227         if (lessivage) THEN
    222228         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
    223      .              "U/m2/s",iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     229     .              "U/m2/s",iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    224230     .              "ave(X)", zsto,zout)
    225231         endif
    … …  
    228234         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
    229235     .                "tendance thermique"// ttext(iiq), "?",
    230      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     236     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    231237     .                "ave(X)", zsto,zout)
    232238         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
    233239     .                "tendance convection"// ttext(iiq), "?",
    234      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     240     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    235241     .                "ave(X)", zsto,zout)
    236242         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
    237243     .                "tendance couche limite"// ttext(iiq), "?",
    238      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     244     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    239245     .                "ave(X)", zsto,zout)
    240246c---fin Olivia   
    … …  
    246252!#ifdef INCA_CH4
    247253         CALL histdef(nid_tra, "O3_column", "O3_column",
    248      .           "DU", iim,jjm+1,nhori, 1,1,1, -99, 32,
     254     .           "DU", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    249255     .           "ave(X)", zsto,zout)
    250256         CALL histdef(nid_tra, "CO_column", "CO_column",
    251      .           "10^18 CM-2", iim,jjm+1,nhori, 1,1,1, -99, 32,
     257     .           "10^18 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    252258     .           "ave(X)", zsto,zout)
    253259         CALL histdef(nid_tra, "CH4_column", "CH4_column",
    254      .           "10^18 CM-2", iim,jjm+1,nhori, 1,1,1, -99, 32,
     260     .           "10^18 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    255261     .           "ave(X)", zsto,zout)
    256262         CALL histdef(nid_tra, "NO2_column", "NO2_column",
    257      .           "10^15 CM-2", iim,jjm+1,nhori, 1,1,1, -99, 32,
     263     .           "10^15 CM-2", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    258264     .           "ave(X)", zsto,zout)
    259265         CALL histdef(nid_tra, "O3_ste", "O3_ste",
    260      .           "CM-2 S-1", iim,jjm+1,nhori, 1,1,1, -99, 32,
     266     .           "CM-2 S-1", iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    261267     .           "ave(X)", zsto,zout)
    262268         CALL histdef(nid_tra, "O3_prod", "O3_prod", "CM-3 S-1",
    263      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     269     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    264270     .                "ave(X)", zsto,zout)
    265271         CALL histdef(nid_tra, "O3_loss", "O3_loss", "CM-3 S-1",
    266      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     272     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    267273     .                "ave(X)", zsto,zout)
    268274
    … …  
    281287! for sulfur cycle
    282288         CALL histdef(nid_tra, "SO2_p_dmsoh", "SO2_p_dmsoh", "CM-3 S-1",
    283      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     289     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    284290     .                "ave(X)", zsto,zout)
    285291         CALL histdef(nid_tra, "SO2_p_dmsno3", "SO2_p_dmsno3", "CM-3 S-1",
    286      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     292     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    287293     .                "ave(X)", zsto,zout)
    288294         CALL histdef(nid_tra, "SO2_p_h2soh", "SO2_p_h2soh", "CM-3 S-1",
    289      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     295     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    290296     .                "ave(X)", zsto,zout)
    291297         CALL histdef(nid_tra, "SO2_p_dmsooh", "SO2_p_dmsooh", "CM-3 S-1",
    292      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     298     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    293299     .                "ave(X)", zsto,zout)
    294300         CALL histdef(nid_tra, "DMSO_p_dmsoh", "DMSO_p_dmsoh", "CM-3 S-1",
    295      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     301     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    296302     .                "ave(X)", zsto,zout)
    297303         CALL histdef(nid_tra, "ASMSAM_p_dmsooh", "ASMSAM_p_dmsooh", "CM-3 S-1",
    298      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     304     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    299305     .                "ave(X)", zsto,zout)
    300306         CALL histdef(nid_tra, "ASSO4M_p_so2oh", "ASSO4M_p_so2oh", "CM-3 S-1",
    301      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     307     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    302308     .                "ave(X)", zsto,zout)
    303309         CALL histdef(nid_tra, "ASSO4M_p_so2h2o2", "ASSO4M_p_h2o2","CM-3 S-1",
    304      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     310     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    305311     .                "ave(X)", zsto,zout)
    306312         CALL histdef(nid_tra, "ASSO4M_p_so2o3", "ASSO4M_p_so2o3", "CM-3 S-1",
    307      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     313     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    308314     .                "ave(X)", zsto,zout)
    309315
    310316         CALL histdef(nid_tra, "Wet3D_SO2", "Wet3D_SO2",
    311      .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     317     .           "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    312318     .           "ave(X)", zsto,zout)
    313319         CALL histdef(nid_tra, "Wet3D_DMS", "Wet3D_DMS",
    314      .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     320     .           "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    315321     .           "ave(X)", zsto,zout)
    316322         CALL histdef(nid_tra, "Wet3D_HNO3", "Wet3D_HNO3",
    317      .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     323     .           "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    318324     .           "ave(X)", zsto,zout)
    319325         CALL histdef(nid_tra, "Wet3D_H2O2", "Wet3D_H2O2",
    320      .           "kg/m2/s", iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     326     .           "kg/m2/s", iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    321327     .           "ave(X)", zsto,zout)
    322328
    323329         CALL histdef(nid_tra, "PH_HIST", "pH over physics time step", "1",
    324      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     330     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    325331     .                "ave(X)", zsto,zout)
    326332#endif
    … …  
    328334#ifdef INCA_NMHC
    329335         CALL histdef(nid_tra, "CO2_basprod", "CO2_basprod", "CM-3 S-1",
    330      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     336     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    331337     .                "ave(X)", zsto,zout)
    332338         CALL histdef(nid_tra, "CO2_nmhcprod", "CO2_nmhcprod", "CM-3 S-1",
    333      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     339     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    334340     .                "ave(X)", zsto,zout)
    335341         CALL histdef(nid_tra, "CO2_radicalprod", "CO2_radicalprod", "CM-3 S-1",
    336      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     342     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    337343     .                "ave(X)", zsto,zout)
    338344         CALL histdef(nid_tra, "HNO3_prod", "HNO3_prod", "CM-3 S-1",
    339      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     345     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    340346     .                "ave(X)", zsto,zout)
    341347         CALL histdef(nid_tra, "HNO3_loss", "HNO3_loss", "CM-3 S-1",
    342      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     348     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    343349     .                "ave(X)", zsto,zout)
    344350         CALL histdef(nid_tra, "CO_prod", "CO_prod", "CM-3 S-1",
    345      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     351     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    346352     .                "ave(X)", zsto,zout)
    347353         CALL histdef(nid_tra, "CO_loss", "CO_loss", "CM-3 S-1",
    348      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     354     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    349355     .                "ave(X)", zsto,zout)
    350356#endif
    … …  
    352358#else
    353359         CALL histdef(nid_tra, "pyu1", "Vent niv 1", "-",
    354      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     360     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    355361     .                "inst(X)",  zsto,zout)
    356362
    357363         CALL histdef(nid_tra, "pyv1", "Vent niv 1", "-",
    358      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     364     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    359365     .                "inst(X)",  zsto,zout)
    360366         CALL histdef(nid_tra, "psrf1", "nature sol", "-",
    361      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     367     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    362368     .                "inst(X)",  zsto,zout)
    363369         CALL histdef(nid_tra, "psrf2", "nature sol", "-",
    364      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     370     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    365371     .                "inst(X)",  zsto,zout)
    366372         CALL histdef(nid_tra, "psrf3", "nature sol", "-",
    367      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     373     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    368374     .                "inst(X)",  zsto,zout)
    369375         CALL histdef(nid_tra, "psrf4", "nature sol", "-",
    370      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     376     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    371377     .                "inst(X)",  zsto,zout)
    372378         CALL histdef(nid_tra, "ftsol1", "temper sol", "-",
    373      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     379     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    374380     .                "inst(X)",  zsto,zout)
    375381         CALL histdef(nid_tra, "ftsol2", "temper sol", "-",
    376      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     382     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    377383     .                "inst(X)",  zsto,zout)
    378384         CALL histdef(nid_tra, "ftsol3", "temper sol", "-",
    379      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     385     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    380386     .                "inst",  zsto,zout)
    381387         CALL histdef(nid_tra, "ftsol4", "temper sol", "-",
    382      .                iim,jjm+1,nhori, 1,1,1, -99, 32,
     388     .                iim,jjphy_nb,nhori, 1,1,1, -99, 32,
    383389     .                "inst(X)",  zsto,zout)
    384390         CALL histdef(nid_tra, "pplay", "flux u mont","-",
    385      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     391     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    386392     .                "inst(X)", zsto,zout)
    387393         CALL histdef(nid_tra, "t", "flux u mont","-",
    388      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     394     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    389395     .                "inst(X)", zsto,zout)
    390396         CALL histdef(nid_tra, "mfu", "flux u mont","-",
    391      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     397     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    392398     .                "ave(X)", zsto,zout)
    393399         CALL histdef(nid_tra, "mfd", "flux u decen","-",
    394      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     400     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    395401     .                "ave(X)", zsto,zout)
    396402         CALL histdef(nid_tra, "en_u", "flux u mont","-",
    397      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     403     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    398404     .                "ave(X)", zsto,zout)
    399405         CALL histdef(nid_tra, "en_d", "flux u mont","-",
    400      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     406     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    401407     .                "ave(X)", zsto,zout)
    402408         CALL histdef(nid_tra, "de_d", "flux u mont","-",
    403      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     409     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    404410     .                "ave(X)", zsto,zout)
    405411         CALL histdef(nid_tra, "de_u", "flux u decen","-",
    406      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     412     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    407413     .                "ave(X)", zsto,zout)
    408414         CALL histdef(nid_tra, "coefh", "turbulent coef","-",
    409      .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
     415     .                iim,jjphy_nb,nhori, klev,1,klev,nvert, 32,
    410416     .                "ave(X)", zsto,zout)
    411417

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/inifis.F

    r524 r634  
    77     $           plat,plon,parea,
    88     $           prad,pg,pr,pcpp)
     9      use dimphy
    910      IMPLICIT NONE
    1011c
    … …  
    4142c   -------------
    4243 
    43 #include "dimensions.h"
    44 #include "dimphy.h"
     44cym#include "dimensions.h"
     45cym#include "dimphy.h"
    4546
    4647      REAL prad,pg,pr,pcpp,punjours

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/iniphysiq.F

    r524 r634  
    99     $           plat,plon,parea,pcu,pcv,
    1010     $           prad,pg,pr,pcpp)
     11      USE dimphy,klon2=>klon,klon=>klon2
     12      USE comgeomphy
    1113      IMPLICIT NONE
    1214c
    … …  
    4345c   -------------
    4446 
    45 #include "dimensions.h"
    46 #include "dimphy.h"
    47 #include "comgeomphy.h"
     47cym#include "dimensions.h"
     48cym#include "dimphy.h"
     49cym#include "comgeomphy.h"
    4850
    4951      REAL prad,pg,pr,pcpp,punjours
    … …  
    7173      ENDIF
    7274
    73       airephy=parea
    74       cuphy=pcu
    75       cvphy=pcv
    76       rlond = plon
    77       rlatd = plat
     75      airephy(1:klon2)=parea(klon_begin:klon_end)
     76      cuphy(1:klon2)=pcu(klon_begin:klon_end)
     77      cvphy(1:klon2)=pcv(klon_begin:klon_end)
     78      rlond(1:klon2) = plon(klon_begin:klon_end)
     79      rlatd(1:klon2) = plat(klon_begin:klon_end)
    7880
    7981      call suphec

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/initphysto.F

    r633 r634  
    77     .  (infile,
    88     .  rlon, rlat, tstep,t_ops,t_wrt,nq,fileid)
    9 
     9       
     10       USE dimphy
    1011       USE IOIPSL
    11 
     12       USE iophy
    1213      implicit none
    1314
    … …  
    5152#include "indicesol.h"
    5253#include "control.h"
    53 #include "dimphy.h"
     54cym#include "dimphy.h"
    5455
    5556C   Arguments
    … …  
    9192      tau0 = 0
    9293       
    93         CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
    94          DO i = 1, iim
    95             zx_lon(i,1) = rlon(i+1)
    96             zx_lon(i,jjm+1) = rlon(i+1)
    97          ENDDO
    98          CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlat,zx_lat)
    99 
    100 
    101       call histbeg(infile, iim, zx_lon(:,1), jjm+1, zx_lat(1,:),
    102      .             1, iim, 1, jjm+1,
    103      .             tau0, zjulian, tstep, nhoriid, fileid)
     94cym     CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlon,zx_lon)
     95cym         DO i = 1, iim
     96cym            zx_lon(i,1) = rlon(i+1)
     97cym            zx_lon(i,jjm+1) = rlon(i+1)
     98cym         ENDDO
     99cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,rlat,zx_lat)
     100
     101
     102      call histbeg_phy(infile,tau0, zjulian, tstep,
     103     .                 nhoriid, fileid)
    104104
    105105C  Appel a histvert pour la grille verticale
    … …  
    120120
    121121       CALL histdef(fileid, "phis", "Surface geop. height", "-",
    122      .                iim,jjm+1,nhoriid, 1,1,1, -99, 32,
     122     .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
    123123     .                "once", t_ops, t_wrt)
    124124c
    … …  
    126126
    127127         CALL histdef(fileid, "aire", "Grid area", "-",
    128      .                iim,jjm+1,nhoriid, 1,1,1, -99, 32,
     128     .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
    129129     .                "once", t_ops, t_wrt)
    130130         write(*,*) 'apres aire ds initphysto'
    131131
     132cym     Attention dtime et istphy ne sont pas écrit ---> a éliminer ?
    132133         CALL histdef(fileid, "dtime", "tps phys ", "s",
    133134     .                1,1,nhoriid, 1,1,1, -99, 32,
    … …  
    141142C
    142143      call histdef(fileid, 't', 'Temperature', 'K',
    143      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     144     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    144145     .             32, 'inst(X)', t_ops, t_wrt)
    145146        write(*,*) 'apres t ds initphysto'
    … …  
    147148C
    148149      call histdef(fileid, 'mfu', 'flx m. pan. mt', 'kg m/s',
    149      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     150     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    150151     .             32, 'inst(X)', t_ops, t_wrt)
    151152        write(*,*) 'apres mfu ds initphysto'
    … …  
    154155C
    155156      call histdef(fileid, 'mfd', 'flx m. pan. des', 'kg m/s',
    156      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     157     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    157158     .             32, 'inst(X)', t_ops, t_wrt)
    158159
    … …  
    161162C
    162163      call histdef(fileid, 'en_u', 'flx ent pan mt', 'kg m/s',
    163      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     164     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    164165     .             32, 'inst(X)', t_ops, t_wrt)
    165166               write(*,*) 'apres en_u ds initphysto'
    … …  
    168169C
    169170      call histdef(fileid, 'de_u', 'flx det pan mt', 'kg m/s',
    170      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     171     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    171172     .             32, 'inst(X)', t_ops, t_wrt)
    172173
    … …  
    175176C
    176177      call histdef(fileid, 'en_d', 'flx ent pan dt', 'kg m/s',
    177      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     178     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    178179     .             32, 'inst(X)', t_ops, t_wrt)
    179180C
    … …  
    183184C
    184185      call histdef(fileid, 'de_d', 'flx det pan dt', 'kg m/s',
    185      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     186     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    186187     .             32, 'inst(X)', t_ops, t_wrt)
    187188
    … …  
    189190       
    190191        call histdef(fileid, "coefh", " ", " ",
    191      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     192     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    192193     .             32, "inst(X)", t_ops, t_wrt)
    193194
    194195c abderrahmane le 16 09 02
    195196        call histdef(fileid, "fm_th", " ", " ",
    196      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     197     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    197198     .             32, "inst(X)", t_ops, t_wrt)
    198199
    199200        call histdef(fileid, "en_th", " ", " ",
    200      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     201     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    201202     .             32, "inst(X)", t_ops, t_wrt)
    202203c fin aj
    … …  
    205206
    206207        call histdef(fileid, 'frac_impa', ' ', ' ',
    207      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     208     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    208209     .             32, 'inst(X)', t_ops, t_wrt)
    209210       
    210211        call histdef(fileid, 'frac_nucl', ' ', ' ',
    211      .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
     212     .             iim, jjphy_nb, nhoriid, llm, 1, llm, zvertiid,
    212213     .             32, 'inst(X)', t_ops, t_wrt)
    213214
    … …  
    216217c
    217218      CALL histdef(fileid, "pyu1", " ", " ",
    218      .                iim,jjm+1,nhoriid, 1,1,1, -99, 32,
     219     .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
    219220     .                "inst(X)", t_ops, t_wrt)
    220221
    … …  
    223224c
    224225        CALL histdef(fileid, "pyv1", " ", " ",
    225      .                iim,jjm+1,nhoriid, 1,1,1, -99, 32,
     226     .                iim,jjphy_nb,nhoriid, 1,1,1, -99, 32,
    226227     .                "inst(X)", t_ops, t_wrt)
    227228       
    … …  
    231232c
    232233        call histdef(fileid, "ftsol1", " ", " ",
    233      .             iim, jjm+1, nhoriid, 1, 1,1, -99,32,
     234     .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,32,
    234235     .             "inst(X)", t_ops, t_wrt)
    235236
    … …  
    238239c
    239240        call histdef(fileid, "ftsol2", " ", " ",
    240      .             iim, jjm+1, nhoriid, 1, 1,1, -99,32,
     241     .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,32,
    241242     .             "inst(X)", t_ops, t_wrt)
    242243
    … …  
    245246c
    246247        call histdef(fileid, "ftsol3", " ", " ",
    247      .             iim, jjm+1, nhoriid, 1, 1,1, -99,
     248     .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
    248249     .             32, "inst(X)", t_ops, t_wrt)
    249250
    … …  
    252253c
    253254        call histdef(fileid, "ftsol4", " ", " ",
    254      .             iim, jjm+1, nhoriid, 1, 1,1, -99,
     255     .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
    255256     .             32, "inst(X)", t_ops, t_wrt)
    256257       
    … …  
    259260c
    260261        call histdef(fileid, "rain", " ", " ",
    261      .             iim, jjm+1, nhoriid, 1, 1,1, -99,
     262     .             iim, jjphy_nb, nhoriid, 1, 1,1, -99,
    262263     .             32, "inst(X)", t_ops, t_wrt)
    263264
    … …  
    266267c
    267268        call histdef(fileid, "psrf1", " ", " ",
    268      .             iim, jjm+1, nhoriid, 1, 1, 1, -99,
     269     .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
    269270     .             32, "inst(X)", t_ops, t_wrt)
    270271       
    … …  
    273274c
    274275        call histdef(fileid, "psrf2", " ", " ",
    275      .             iim, jjm+1, nhoriid, 1, 1, 1, -99,
     276     .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
    276277     .             32, "inst(X)", t_ops, t_wrt)
    277278
    … …  
    280281c
    281282        call histdef(fileid, "psrf3", " ", " ",
    282      .             iim, jjm+1, nhoriid, 1, 1, 1, -99,
     283     .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
    283284     .             32, "inst(X)", t_ops, t_wrt)
    284285
    … …  
    287288c
    288289        call histdef(fileid, "psrf4", " ", " ",
    289      .             iim, jjm+1, nhoriid, 1, 1, 1, -99,
     290     .             iim, jjphy_nb, nhoriid, 1, 1, 1, -99,
    290291     .             32, "inst(X)", t_ops, t_wrt)
    291292       

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/initrrnpb.F

    r633 r634  
    44      SUBROUTINE  initrrnpb(ftsol,pctsrf,masktr,fshtr,hsoltr,tautr
    55     .                   ,vdeptr,scavtr)
     6      USE dimphy
    67      IMPLICIT none
    78c======================================================================
    … …  
    2425c scavtr---output-R- Coefficient de lessivage
    2526c======================================================================
    26 #include "dimensions.h"
    27 #include "dimphy.h"
     27cym#include "dimensions.h"
     28cym#include "dimphy.h"
    2829#include "indicesol.h"
    2930c======================================================================

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/interface_surf.F90

    r633 r634  
    2222! L. Fairhead, LMD, 02/2000
    2323
    24   USE ioipsl
     24!ym  USE ioipsl
    2525
    2626  IMPLICIT none
    … …  
    7676      & z0_new, pctsrf_new, agesno,fqcalving,ffonte, run_off_lic_0)
    7777
    78 
     78   USE dimphy,only : monocpu
    7979! Cette routine sert d'aiguillage entre l'atmosphere et la surface en general
    8080! (sols continentaux, oceans, glaces) pour les fluxs de chaleur et d'humidite.
    … …  
    235235  real, dimension(klon):: fder_prev
    236236  REAL, dimension(klon) :: bidule
     237  INTEGER :: j
    237238
    238239  if (check) write(*,*) 'Entree ', modname
    … …  
    394395
    395396    else
     397   
     398      if (.not.monocpu) then
     399        abort_message='Appel a ORCHIDEE non encore parallelise !!'
     400        call abort_gcm(modname,abort_message,1)
     401      endif
    396402!!      CALL albsno(klon,agesno,alb_neig_grid) 
    397403!
    … …  
    434440!
    435441    if (ocean == 'couple') then
     442      if (.not.monocpu) then
     443        abort_message='Couplage avec l OCEAN non encore parallelise !!'
     444        call abort_gcm(modname,abort_message,1)
     445      endif
     446
    436447      if (nexca == 0) then
    437448        abort_message='nexca = 0 dans interfoce_cpl'
    … …  
    510521    if (ocean == 'couple') then
    511522
     523      if (.not.monocpu) then
     524        abort_message='Couplage avec l OCEAN non encore parallelise !!'
     525        call abort_gcm(modname,abort_message,1)
     526      endif
     527
    512528      cumul = .true.
    513529
    … …  
    555571!
    556572    if (ocean == 'couple') then
    557 
     573     
     574      if (.not.monocpu) then
     575        abort_message='Couplage avec l OCEAN non encore parallelise !!'
     576        call abort_gcm(modname,abort_message,1)
     577      endif
     578     
    558579      cumul =.false.
    559580
    … …  
    596617!IM cf LF
    597618      DO ii = 1, knon
    598        IF (pctsrf_new(ii,nisurf) < EPSFRA) then
     619       j=knindex(ii)
     620       IF (pctsrf_new(j,nisurf) < EPSFRA) then
    599621          snow(ii) = 0.0
    600622!IM cf LF/JLD         tsurf(ii) = RTT - 1.8
    … …  
    666688    if (ocean == 'couple') then
    667689
     690      if (.not.monocpu) then
     691        abort_message='Couplage avec l OCEAN non encore parallelise !!'
     692        call abort_gcm(modname,abort_message,1)
     693      endif
     694
    668695      cumul =.true.
    669696
    … …  
    733760
    734761! passage du run-off des glaciers calcule dans fonte_neige au coupleur
    735     bidule=0.
    736     bidule(1:knon)= run_off_lic(1:knon)   
    737     call gath2cpl(bidule, tmp_rlic, klon, knon,iim,jjm,knindex)
     762    if (ocean=='couple') then
     763     
     764      if (.not.monocpu) then
     765        abort_message='Couplage avec l OCEAN non encore parallelise !!'
     766        call abort_gcm(modname,abort_message,1)
     767      endif
     768
     769      bidule=0.
     770      bidule(1:knon)= run_off_lic(1:knon)   
     771      call gath2cpl(bidule, tmp_rlic, klon, knon,iim,jjm,knindex)
     772   
     773    endif
    738774!
    739775! calcul albedo
    … …  
    12391275      & pctsrf_new)
    12401276
     1277   USE ioipsl
    12411278! Cette routine sert d'interface entre le modele atmospherique et un
    12421279! coupleur avec un modele d'ocean 'complet' derriere
    … …  
    19091946!
    19101947  SUBROUTINE interfoce_lim(itime, dtime, jour, &
    1911      & klon, nisurf, knon, knindex, &
     1948     & klon_xx, nisurf, knon, knindex, &
    19121949     & debut,  &
    1913      & lmt_sst, pctsrf_new)
     1950     & lmt_sst_p, pctsrf_new_p)
     1951     
     1952     USE dimphy,klon=>klon2,klon2=>klon
    19141953
    19151954! Cette routine sert d'interface entre le modele atmospherique et un fichier
    … …  
    19381977  real   , intent(IN) :: dtime
    19391978  integer, intent(IN) :: jour
     1979  integer, intent(in) :: klon_xx
    19401980  integer, intent(IN) :: nisurf
    19411981  integer, intent(IN) :: knon
    1942   integer, intent(IN) :: klon
    1943   integer, dimension(klon), intent(in) :: knindex
     1982  integer, dimension(klon2), intent(in) :: knindex
    19441983  logical, intent(IN) :: debut
    19451984
    19461985! Parametres de sortie
    1947   real, intent(out), dimension(klon) :: lmt_sst
    1948   real, intent(out), dimension(klon,nbsrf) :: pctsrf_new
     1986  real, intent(out), dimension(klon2) :: lmt_sst_p
     1987  real, intent(out), dimension(klon2,nbsrf) :: pctsrf_new_p
     1988
     1989!  real, dimension(klon) :: lmt_sst
     1990  real, dimension(klon,nbsrf) :: pctsrf_new
    19491991
    19501992! Variables locales
    … …  
    19622004  logical, save     :: check = .FALSE.
    19632005! Champs lus dans le fichier de CL
    1964   real, allocatable , save, dimension(:) :: sst_lu, rug_lu, nat_lu
    1965   real, allocatable , save, dimension(:,:) :: pct_tmp
     2006  real, allocatable , save, dimension(:) :: sst_lu_p, rug_lu_p, nat_lu_p
     2007  real, allocatable , save, dimension(:,:) :: pct_tmp_p
     2008  real, dimension(klon,nbsrf) :: pct_tmp
     2009  real, dimension(klon) :: sst_lu
     2010  real, dimension(klon) :: nat_lu
    19662011!
    19672012! quelques variables pour netcdf
    … …  
    19732018! Fin déclaration
    19742019!
    1975    
    1976   if (debut .and. .not. allocated(sst_lu)) then
     2020 
     2021  if (debut .and. .not. allocated(sst_lu_p)) then
    19772022    lmt_pas = nint(86400./dtime * 1.0) ! pour une lecture une fois par jour
    19782023    jour_lu = jour - 1
    1979     allocate(sst_lu(klon))
    1980     allocate(nat_lu(klon))
    1981     allocate(pct_tmp(klon,nbsrf))
     2024    allocate(sst_lu_p(klon2))
     2025    allocate(nat_lu_p(klon2))
     2026    allocate(pct_tmp_p(klon2,nbsrf))
    19822027  endif
    19832028
    … …  
    19922037! Ouverture du fichier
    19932038!
     2039    if (phy_rank==0) then
     2040   
    19942041    fich = trim(fich)
    19952042    ierr = NF_OPEN (fich, NF_NOWRITE,nid)
    … …  
    21312178!
    21322179    ierr = NF_CLOSE(nid)
    2133     deja_lu = .true.
    2134     jour_lu = jour
    2135   endif
     2180   endif ! phyrank
    21362181!
    21372182! Recopie des variables dans les champs de sortie
    21382183!
    2139   lmt_sst = 999999999.
     2184  call ScatterField(sst_lu,sst_lu_p,1)
     2185  call ScatterField(pct_tmp(:,is_oce),pct_tmp_p(:,is_oce),1)
     2186  call ScatterField(pct_tmp(:,is_sic),pct_tmp_p(:,is_sic),1)
     2187 
     2188   deja_lu = .true.
     2189   jour_lu = jour
     2190  endif   
     2191 
     2192  lmt_sst_p = 999999999.
     2193 
    21402194  do ii = 1, knon
    2141     lmt_sst(ii) = sst_lu(knindex(ii))
     2195    lmt_sst_p(ii) = sst_lu_p(knindex(ii))
    21422196  enddo
    21432197
    2144   pctsrf_new(:,is_oce) = pct_tmp(:,is_oce)
    2145   pctsrf_new(:,is_sic) = pct_tmp(:,is_sic)
     2198  do ii=1,klon2
     2199    pctsrf_new_p(ii,is_oce)=pct_tmp_p(ii,is_oce)
     2200    pctsrf_new_p(ii,is_sic)=pct_tmp_p(ii,is_sic)
     2201  enddo
     2202 
    21462203
    21472204  END SUBROUTINE interfoce_lim
    … …  
    21512208!
    21522209  SUBROUTINE interfsur_lim(itime, dtime, jour, &
    2153      & klon, nisurf, knon, knindex, &
     2210     & klon_xx, nisurf, knon, knindex, &
    21542211     & debut,  &
    2155      & lmt_alb, lmt_rug)
     2212     & lmt_alb_p, lmt_rug_p)
     2213
     2214     USE dimphy,klon=>klon2,klon2=>klon
    21562215
    21572216! Cette routine sert d'interface entre le modele atmospherique et un fichier
    … …  
    21842243  integer, intent(IN) :: nisurf
    21852244  integer, intent(IN) :: knon
    2186   integer, intent(IN) :: klon
    2187   integer, dimension(klon), intent(in) :: knindex
     2245  integer, intent(IN) :: klon_xx
     2246  integer, dimension(klon2), intent(in) :: knindex
    21882247  logical, intent(IN) :: debut
    21892248
    21902249! Parametres de sortie
    2191   real, intent(out), dimension(klon) :: lmt_alb
    2192   real, intent(out), dimension(klon) :: lmt_rug
     2250  real, intent(out), dimension(klon2) :: lmt_alb_p
     2251  real, intent(out), dimension(klon2) :: lmt_rug_p
     2252
     2253!  real,  dimension(klon) :: lmt_alb
     2254!  real,  dimension(klon) :: lmt_rug
    21932255
    21942256! Variables locales
    … …  
    22062268  logical,save     :: check = .false.
    22072269! Champs lus dans le fichier de CL
    2208   real, allocatable , save, dimension(:) :: alb_lu, rug_lu
     2270  real, allocatable , save, dimension(:) :: alb_lu_p, rug_lu_p
     2271  real, dimension(klon) :: alb_lu, rug_lu
    22092272!
    22102273! quelques variables pour netcdf
    … …  
    22202283    lmt_pas = nint(86400./dtime * 1.0) ! pour une lecture une fois par jour
    22212284    jour_lu_sur = jour - 1
    2222     allocate(alb_lu(klon))
    2223     allocate(rug_lu(klon))
     2285    allocate(alb_lu_p(klon2))
     2286    allocate(rug_lu_p(klon2))
    22242287  endif
    22252288
    … …  
    22322295! Tester d'abord si c'est le moment de lire le fichier
    22332296  if (mod(itime-1, lmt_pas) == 0 .and. .not. deja_lu_sur) then
     2297 
     2298  if (phy_rank==0) then
    22342299!
    22352300! Ouverture du fichier
    … …  
    22892354!
    22902355    ierr = NF_CLOSE(nid)
     2356
     2357
     2358  endif  !! phyrank
     2359
     2360    call ScatterField(alb_lu,alb_lu_p,1)
     2361    call ScatterField(rug_lu,rug_lu_p,1)
     2362
    22912363    deja_lu_sur = .true.
    22922364    jour_lu_sur = jour
    … …  
    22972369!!$  lmt_alb(:) = 0.0
    22982370!!$  lmt_rug(:) = 0.0
    2299   lmt_alb(:) = 999999.
    2300   lmt_rug(:) = 999999.
     2371 
     2372  lmt_alb_p(:) = 999999.
     2373  lmt_rug_p(:) = 999999.
    23012374  DO ii = 1, knon
    2302     lmt_alb(ii) = alb_lu(knindex(ii))
    2303     lmt_rug(ii) = rug_lu(knindex(ii))
     2375    lmt_alb_p(ii) = alb_lu_p(knindex(ii))
     2376    lmt_rug_p(ii) = rug_lu_p(knindex(ii))
    23042377  enddo
    23052378

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/minmaxqfi.F

    r524 r634  
    33!
    44      SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
     5      USE dimphy
    56      IMPLICIT none
    67
    7 #include "dimensions.h"
    8 #include "dimphy.h"
     8cym#include "dimensions.h"
     9cym#include "dimphy.h"
    910
    1011      CHARACTER*(*) comment

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/newmicro.F

    r633 r634  
    1010     e                  bl95_b0, bl95_b1,
    1111     s                  cldtaupi, re, fl)
     12      USE dimphy
    1213      IMPLICIT none
    1314c======================================================================
    … …  
    3940#include "YOMCST.h"
    4041c
    41 #include "dimensions.h"
    42 #include "dimphy.h"
     42cym#include "dimensions.h"
     43cym#include "dimphy.h"
    4344#include "nuage.h"
    4445      REAL paprs(klon,klev+1), pplay(klon,klev)
    … …  
    110111       xflwp(i)=0.
    111112       xfiwp(i)=0.
     113c!CDIR NOVECTOR
    112114      DO k = 1, klev
    113115c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/nflxtr.F

    r524 r634  
    44      SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,
    55     .                 pplay,paprs,x,dx)
     6      USE dimphy
    67      IMPLICIT NONE
    78c=====================================================================
    … …  
    2122c=====================================================================
    2223c
    23 #include "dimensions.h"
    24 #include "dimphy.h"
     24cym#include "dimensions.h"
     25cym#include "dimphy.h"
    2526#include "YOMCST.h"
    2627#include "YOECUMF.h"

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/nuage.F

    r524 r634  
    99     e                  bl95_b0, bl95_b1,
    1010     s                  cldtaupi, re, fl)
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    3839#include "YOMCST.h"
    3940c
    40 #include "dimensions.h"
    41 #include "dimphy.h"
     41cym#include "dimensions.h"
     42cym#include "dimphy.h"
    4243      REAL paprs(klon,klev+1), pplay(klon,klev)
    4344      REAL t(klon,klev)
    … …  
    229230      SUBROUTINE diagcld1(paprs,pplay,rain,snow,kbot,ktop,
    230231     .                   diafra,dialiq)
     232      use dimphy
    231233      IMPLICIT none
    232234c
    … …  
    238240c ces nuages. Je dois avouer que c'est une frustration.
    239241c
    240 #include "dimensions.h"
    241 #include "dimphy.h"
     242cym#include "dimensions.h"
     243cym#include "dimphy.h"
    242244#include "YOMCST.h"
    243245c
    … …  
    313315      END
    314316      SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq)
     317      use dimphy
    315318      IMPLICIT none
    316319c
    317 #include "dimensions.h"
    318 #include "dimphy.h"
     320cym#include "dimensions.h"
     321cym#include "dimphy.h"
    319322#include "YOMCST.h"
    320323c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/orbite.F

    r524 r634  
    4949c======================================================================
    5050      SUBROUTINE angle(longi, lati, frac, muzero)
     51      USE dimphy
    5152      IMPLICIT none
    5253c======================================================================
    … …  
    6465c                   la journee (0 a 1)
    6566c======================================================================
    66 #include "dimensions.h"
    67 #include "dimphy.h"
     67cym#include "dimensions.h"
     68cym#include "dimphy.h"
    6869      REAL longi
    6970      REAL lati(klon), frac(klon), muzero(klon)
    … …  
    108109      SUBROUTINE zenang(longi,gmtime,pdtrad,lat,long,
    109110     s                  pmu0,frac)
     111      USE dimphy
    110112      IMPLICIT none
    111113c=============================================================
    … …  
    131133c frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad
    132134c================================================================
    133 #include "dimensions.h"
    134 #include "dimphy.h"
     135cym#include "dimensions.h"
     136cym#include "dimphy.h"
    135137#include "YOMCST.h"
    136138c================================================================
    … …  
    261263      SUBROUTINE zenith (longi, gmtime, lat, long,
    262264     s                   pmu0, fract)
     265      USE dimphy
    263266      IMPLICIT none
    264267c
    … …  
    278281c
    279282c====================================================================
    280 #include "dimensions.h"
    281 #include "dimphy.h"
     283cym#include "dimensions.h"
     284cym#include "dimphy.h"
    282285#include "YOMCST.h"
    283286c====================================================================

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/orografi.F

    r633 r634  
    99     s                   d_t, d_u, d_v)
    1010c
     11      USE dimphy
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    2627c d_v-----output-R-increment de la vitesse v
    2728c======================================================================
    28 #include "dimensions.h"
    29 #include "dimphy.h"
     29cym#include "dimensions.h"
     30cym#include "dimphy.h"
    3031#include "YOMCST.h"
    3132c
    … …  
    130131     r                 , pvom,pvol,pte )
    131132
     133      USE dimphy
    132134      implicit none
    133135
    … …  
    179181c
    180182c
    181 #include "dimensions.h"
    182 #include "dimphy.h"
     183cym#include "dimensions.h"
     184cym#include "dimphy.h"
    183185#include "YOMCST.h"
    184186#include "YOEGWD.h"
    … …  
    189191c
    190192c
    191       integer nlon, nlev, klevm1
     193cym      integer nlon, nlev, klevm1
     194      integer nlon, nlev
    192195      integer kgwd, jl, ilevp1, jk, ji
    193196      real zdelp, ztemp, zforc, ztend
    … …  
    257260c     ztmst=twodt
    258261c     if(nstep.eq.nstart) ztmst=0.5*twodt
    259       klevm1=klev-1
     262cym      klevm1=klev-1
    260263      ztmst=ptsphy
    261264      zrtmst=1./ztmst
    … …  
    464467c
    465468c-----------------------------------------------------------------------
     469      USE dimphy
    466470      implicit none
    467471c
    468472
    469 #include "dimensions.h"
    470 #include "dimphy.h"
     473cym#include "dimensions.h"
     474cym#include "dimphy.h"
    471475#include "YOMCST.h"
    472476#include "YOEGWD.h"
    … …  
    932936c
    933937c-----------------------------------------------------------------------
     938      USE dimphy
    934939      implicit none
    935 #include "dimensions.h"
    936 #include "dimphy.h"
     940cym#include "dimensions.h"
     941cym#include "dimphy.h"
    937942#include "YOMCST.h"
    938943#include "YOEGWD.h"
    … …  
    10661071C     PASSAGE OF THE NEW GWDRAG TO I.F.S. (F. LOTT, 22/11/93)
    10671072C-----------------------------------------------------------------------
     1073      USE dimphy
    10681074      implicit none
    10691075C
    … …  
    10711077C
    10721078
    1073 #include "dimensions.h"
    1074 #include "dimphy.h"
     1079cym#include "dimensions.h"
     1080cym#include "dimphy.h"
    10751081#include "YOMCST.h"
    10761082#include "YOEGWD.h"
    … …  
    12971303     s                   d_t, d_u, d_v)
    12981304c
     1305      USE dimphy
    12991306      IMPLICIT none
    13001307c======================================================================
    … …  
    13141321c d_v-----output-R-increment de la vitesse v
    13151322c======================================================================
    1316 #include "dimensions.h"
    1317 #include "dimphy.h"
     1323cym#include "dimensions.h"
     1324cym#include "dimphy.h"
    13181325#include "YOMCST.h"
    13191326c
    … …  
    14351442C     F.LOTT  LMD 22/11/95
    14361443C
     1444      USE dimphy
    14371445      implicit none
    14381446C
    14391447C
    1440 #include "dimensions.h"
    1441 #include "dimphy.h"
     1448cym#include "dimensions.h"
     1449cym#include "dimphy.h"
    14421450#include "YOMCST.h"
    14431451#include "YOEGWD.h"
    … …  
    14701478C              ------------
    14711479      logical lifthigh, ll1
    1472       integer klevm1, jl, ilevh, jk
     1480cym      integer klevm1, jl, ilevh, jk
     1481      integer  jl, ilevh, jk
    14731482      real zcons1, ztmst, zrtmst,zpi, zhgeo
    14741483      real zdelp, zslow, zsqua, zscav, zbet
    … …  
    14931502      IF(NLON.NE.KLON.OR.NLEV.NE.KLEV)STOP
    14941503      ZCONS1=1./RD
    1495       KLEVM1=KLEV-1
     1504cym      KLEVM1=KLEV-1
    14961505      ZTMST=PTSPHY
    14971506      ZRTMST=1./ZTMST

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ozonecm.F

    r524 r634  
    33!
    44      SUBROUTINE ozonecm(rjour, rlat, paprs, o3)
     5      USE dimphy
    56      IMPLICIT none
    6 #include "dimensions.h"
    7 #include "dimphy.h"
     7cym#include "dimensions.h"
     8cym#include "dimphy.h"
    89      REAL rlat(klon), paprs(klon,klev+1)
    910      REAL o3(klon,klev)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/phyetat0.F

    r633 r634  
    55c
    66      SUBROUTINE phyetat0 (fichnom,dtime,co2_ppm_etat0,solaire_etat0,
    7      .            rlat,rlon, pctsrf, tsol,tsoil,deltat,qsurf,qsol,snow,
    8      .           albe, alblw, evap, rain_fall, snow_fall, solsw, sollw,
    9      .           fder,radsol,frugs,agesno,clesphy0,
    10      .           zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,tabcntr0,
    11      .           t_ancien,q_ancien,ancien_ok, rnebcon, ratqs,clwcon,
    12      .           run_off_lic_0)
     7     .            rlat_p,rlon_p, pctsrf_p, tsol_p,tsoil_p,deltat_p,
     8     .           qsurf_p,qsol_p,snow_p,albe_p, alblw_p, evap_p,
     9     .           rain_fall_p, snow_fall_p,solsw_p, sollw_p,
     10     .           fder_p,radsol_p,frugs_p,agesno_p,clesphy0,
     11     .           zmea_p,zstd_p,zsig_p,zgam_p,zthe_p,zpic_p,zval_p,
     12     .           rugsrel_p,tabcntr0,
     13     .           t_ancien_p,q_ancien_p,ancien_ok, rnebcon_p, ratqs_p,
     14     .           clwcon_p,run_off_lic_0_p)
     15      USE dimphy,klon=>klon2,klon2=>klon,zmasq_p=>zmasq
     16      USE iophy
    1317      IMPLICIT none
    1418c======================================================================
    … …  
    1721c======================================================================
    1822#include "dimensions.h"
    19 #include "dimphy.h"
     23cym#include "dimphy.h"
    2024#include "netcdf.inc"
    2125#include "indicesol.h"
    … …  
    2731      REAL dtime
    2832      INTEGER radpas
    29       REAL rlat(klon), rlon(klon)
     33      REAL rlat_p(klon2), rlon_p(klon2)
    3034      REAL co2_ppm_etat0
    3135      REAL solaire_etat0
     36      REAL tsol_p(klon2,nbsrf)
     37      REAL tsoil_p(klon2,nsoilmx,nbsrf)
     38      REAL deltat_p(klon2)
     39      REAL qsurf_p(klon2,nbsrf)
     40      REAL qsol_p(klon2)
     41      REAL snow_p(klon2,nbsrf)
     42      REAL albe_p(klon2,nbsrf)
     43cIM BEG alblw
     44      REAL alblw_p(klon2,nbsrf)
     45cIM END alblw
     46      REAL evap_p(klon2,nbsrf)
     47      REAL radsol_p(klon2)
     48      REAL rain_fall_p(klon2)
     49      REAL snow_fall_p(klon2)
     50      REAL sollw_p(klon2)
     51      real solsw_p(klon2)
     52      real fder_p(klon2)
     53      REAL frugs_p(klon2,nbsrf)
     54      REAL agesno_p(klon2,nbsrf)
     55      REAL zmea_p(klon2)
     56      REAL zstd_p(klon2)
     57      REAL zsig_p(klon2)
     58      REAL zgam_p(klon2)
     59      REAL zthe_p(klon2)
     60      REAL zpic_p(klon2)
     61      REAL zval_p(klon2)
     62      REAL rugsrel_p(klon2)
     63      REAL pctsrf_p(klon2, nbsrf)
     64      REAL run_off_lic_0_p(klon2)
     65     
     66      REAL t_ancien_p(klon2,klev), q_ancien_p(klon2,klev)
     67      real rnebcon_p(klon2,klev),clwcon_p(klon2,klev)
     68      real ratqs_p(klon2,klev)
     69      LOGICAL ancien_ok
     70     
     71      REAL zmasq(klon)
     72      REAL rlat(klon), rlon(klon)
    3273      REAL tsol(klon,nbsrf)
    3374      REAL tsoil(klon,nsoilmx,nbsrf)
    … …  
    60101      REAL fractint(klon)
    61102      REAL run_off_lic_0(klon)
    62 
    63       REAL t_ancien(klon,klev), q_ancien(klon,klev)
    64       real rnebcon(klon,klev),clwcon(klon,klev),ratqs(klon,klev)
    65       LOGICAL ancien_ok
     103      REAL t_ancien(klon,klev)
     104      REAL q_ancien(klon,klev)
     105      real rnebcon(klon,klev)
     106      real clwcon(klon,klev)
     107      real ratqs(klon,klev)
     108     
     109
    66110
    67111      INTEGER        longcles
    … …  
    78122      CHARACTER*7 str7
    79123      CHARACTER*2 str2
     124      real iolat(jjm+1)
    80125c
    81126c Ouvrir le fichier contenant l'etat initial:
    … …  
    12481293      ENDIF
    12491294c
     1295      clwcon=0.
    12501296      ierr = NF_INQ_VARID (nid, "CLWCON", nvarid)
    12511297      IF (ierr.NE.NF_NOERR) THEN
    … …  
    12701316      PRINT*,'Eau liquide convective (ecart-type) clwcon:', xmin, xmax
    12711317c
     1318      rnebcon=0.
    12721319      ierr = NF_INQ_VARID (nid, "RNEBCON", nvarid)
    12731320      IF (ierr.NE.NF_NOERR) THEN
    … …  
    13121359c Lecture ratqs
    13131360c
     1361       ratqs=0.
    13141362      ierr = NF_INQ_VARID (nid, "RATQS", nvarid)
    13151363      IF (ierr.NE.NF_NOERR) THEN
    … …  
    13621410      ierr = NF_CLOSE(nid)
    13631411c
     1412
     1413cym  en attendant mieux
     1414        iolat(1)=rlat(1)
     1415        iolat(jjm+1)=rlat(klon)
     1416        do i=2,jjm
     1417          iolat(i)=rlat(2+(i-2)*iim)
     1418        enddo
     1419       
     1420        call init_iophy(iolat,rlon(2:iim+1))
     1421       
     1422      call ScatterField( rlat,rlat_p,1)
     1423      call ScatterField( rlon,rlon_p,1)
     1424      call ScatterField( tsol,tsol_p,nbsrf)
     1425      call ScatterField( tsoil,tsoil_p,nsoilmx*nbsrf)
     1426      call ScatterField( deltat,deltat_p,1)
     1427      call ScatterField( qsurf,qsurf_p,nbsrf)
     1428      call ScatterField( qsol,qsol_p,1)
     1429      call ScatterField( snow,snow_p,nbsrf)
     1430      call ScatterField( albe,albe_p,nbsrf)
     1431      call ScatterField( alblw,alblw_p,nbsrf)
     1432      call ScatterField( evap,evap_p,nbsrf)
     1433      call ScatterField( radsol,radsol_p,1)
     1434      call ScatterField( rain_fall,rain_fall_p,1)
     1435      call ScatterField( snow_fall,snow_fall_p,1)
     1436      call ScatterField( sollw,sollw_p,1)
     1437      call ScatterField( solsw,solsw_p,1)
     1438      call ScatterField( fder,fder_p,1)
     1439      call ScatterField( frugs,frugs_p,nbsrf)
     1440      call ScatterField( agesno,agesno_p,nbsrf)
     1441      call ScatterField( zmea,zmea_p,1)
     1442      call ScatterField( zstd,zstd_p,1)
     1443      call ScatterField( zsig,zsig_p,1)
     1444      call ScatterField( zgam,zgam_p,1)
     1445      call ScatterField( zthe,zthe_p,1)
     1446      call ScatterField( zpic,zpic_p,1)
     1447      call ScatterField( zval,zval_p,1)
     1448      call ScatterField( rugsrel,rugsrel_p,1)
     1449      call ScatterField( pctsrf,pctsrf_p, nbsrf)
     1450      call ScatterField( run_off_lic_0,run_off_lic_0_p,1)
     1451      call ScatterField( t_ancien,t_ancien_p,klev)
     1452      call ScatterField( q_ancien,q_ancien_p,klev)
     1453      call ScatterField( rnebcon,rnebcon_p,klev)
     1454      call ScatterField( clwcon,clwcon_p,klev)
     1455      call ScatterField( ratqs,ratqs_p,klev)
     1456      call ScatterField( zmasq,zmasq_p,1)
     1457     
    13641458      RETURN
    13651459      END

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/phyredem.F

    r633 r634  
    44c
    55      SUBROUTINE phyredem (fichnom,dtime,radpas,
    6      .           rlat,rlon, pctsrf,tsol,tsoil,deltat,qsurf,qsol,snow,
    7      .           albedo, alblw, evap, rain_fall, snow_fall,
    8      .           solsw, sollw,fder,
    9      .           radsol,frugs,agesno,
    10      .           zmea,zstd,zsig,zgam,zthe,zpic,zval,rugsrel,
    11      .           t_ancien, q_ancien, rnebcon, ratqs, clwcon,
    12      .           run_off_lic_0)
     6     .           rlat_p,rlon_p, pctsrf_p,tsol_p,tsoil_p,deltat_p,
     7     .           qsurf_p,qsol_p,snow_p,albedo_p, alblw_p, evap_p,
     8     .           rain_fall_p, snow_fall_p,solsw_p, sollw_p,fder_p,
     9     .           radsol_p,frugs_p,agesno_p,zmea_p,zstd_p,zsig_p,
     10     .           zgam_p,zthe_p,zpic_p,zval_p,rugsrel_p,
     11     .           t_ancien_p, q_ancien_p, rnebcon_p, ratqs_p, clwcon_p,
     12     .           run_off_lic_0_p)
     13      USE dimphy
    1314      IMPLICIT none
    1415c======================================================================
    … …  
    1617c Objet: Ecriture de l'etat de redemarrage pour la physique
    1718c======================================================================
    18 #include "dimensions.h"
    19 #include "dimphy.h"
     19cym#include "dimensions.h"
     20cym#include "dimphy.h"
    2021#include "netcdf.inc"
    2122#include "indicesol.h"
    … …  
    2829      REAL dtime
    2930      INTEGER radpas
    30       REAL rlat(klon), rlon(klon)
    31       REAL tsol(klon,nbsrf)
    32       REAL tsoil(klon,nsoilmx,nbsrf)
    33       REAL deltat(klon)
    34       REAL qsurf(klon,nbsrf)
    35       REAL qsol(klon)
    36       REAL snow(klon,nbsrf)
    37       REAL albedo(klon,nbsrf)
     31      REAL rlat_p(klon), rlon_p(klon)
     32      REAL tsol_p(klon,nbsrf)
     33      REAL tsoil_p(klon,nsoilmx,nbsrf)
     34      REAL deltat_p(klon)
     35      REAL qsurf_p(klon,nbsrf)
     36      REAL qsol_p(klon)
     37      REAL snow_p(klon,nbsrf)
     38      REAL albedo_p(klon,nbsrf)
    3839cIM BEG
    39       REAL alblw(klon,nbsrf)
     40      REAL alblw_p(klon,nbsrf)
    4041cIM END
    41       REAL evap(klon,nbsrf)
    42       REAL rain_fall(klon)
    43       REAL snow_fall(klon)
    44       real solsw(klon)
    45       real sollw(klon)
    46       real fder(klon)
    47       REAL radsol(klon)
    48       REAL frugs(klon,nbsrf)
    49       REAL agesno(klon,nbsrf)
    50       REAL zmea(klon)
    51       REAL zstd(klon)
    52       REAL zsig(klon)
    53       REAL zgam(klon)
    54       REAL zthe(klon)
    55       REAL zpic(klon)
    56       REAL zval(klon)
    57       REAL rugsrel(klon)
    58       REAL pctsrf(klon, nbsrf)
    59       REAL t_ancien(klon,klev), q_ancien(klon,klev)
    60       real clwcon(klon,klev),rnebcon(klon,klev),ratqs(klon,klev)
     42      REAL evap_p(klon,nbsrf)
     43      REAL rain_fall_p(klon)
     44      REAL snow_fall_p(klon)
     45      real solsw_p(klon)
     46      real sollw_p(klon)
     47      real fder_p(klon)
     48      REAL radsol_p(klon)
     49      REAL frugs_p(klon,nbsrf)
     50      REAL agesno_p(klon,nbsrf)
     51      REAL zmea_p(klon)
     52      REAL zstd_p(klon)
     53      REAL zsig_p(klon)
     54      REAL zgam_p(klon)
     55      REAL zthe_p(klon)
     56      REAL zpic_p(klon)
     57      REAL zval_p(klon)
     58      REAL rugsrel_p(klon)
     59      REAL pctsrf_p(klon, nbsrf)
     60      REAL t_ancien_p(klon,klev), q_ancien_p(klon,klev)
     61      real clwcon_p(klon,klev),rnebcon_p(klon,klev),ratqs_p(klon,klev)
     62      REAL run_off_lic_0_p(klon)
     63     
     64      REAL rlat(klon2), rlon(klon2)
     65      REAL tsol(klon2,nbsrf)
     66      REAL tsoil(klon2,nsoilmx,nbsrf)
     67      REAL deltat(klon2)
     68      REAL qsurf(klon2,nbsrf)
     69      REAL qsol(klon2)
     70      REAL snow(klon2,nbsrf)
     71      REAL albedo(klon2,nbsrf)
     72      REAL alblw(klon2,nbsrf)
     73      REAL evap(klon2,nbsrf)
     74      REAL rain_fall(klon2)
     75      REAL snow_fall(klon2)
     76      real solsw(klon2)
     77      real sollw(klon2)
     78      real fder(klon2)
     79      REAL radsol(klon2)
     80      REAL frugs(klon2,nbsrf)
     81      REAL agesno(klon2,nbsrf)
     82      REAL zmea(klon2)
     83      REAL zstd(klon2)
     84      REAL zsig(klon2)
     85      REAL zgam(klon2)
     86      REAL zthe(klon2)
     87      REAL zpic(klon2)
     88      REAL zval(klon2)
     89      REAL rugsrel(klon2)
     90      REAL pctsrf(klon2, nbsrf)
     91      REAL t_ancien(klon2,klev), q_ancien(klon2,klev)
     92      real clwcon(klon2,klev),rnebcon(klon2,klev),ratqs(klon2,klev)
    6193      REAL run_off_lic_0(klon)
    6294c
    … …  
    71103      CHARACTER*2 str2
    72104c
     105
     106      call GatherField( rlat_p,rlat,1)
     107      call GatherField( rlon_p,rlon,1)
     108      call GatherField( tsol_p,tsol,nbsrf)
     109      call GatherField( tsoil_p,tsoil,nsoilmx*nbsrf)
     110      call GatherField( deltat_p,deltat,1)
     111      call GatherField( qsurf_p,qsurf,nbsrf)
     112      call GatherField( qsol_p,qsol,1)
     113      call GatherField( snow_p,snow,nbsrf)
     114      call GatherField( albedo_p,albedo,nbsrf)
     115      call GatherField( alblw_p,alblw,nbsrf)
     116      call GatherField( evap_p,evap,nbsrf)
     117      call GatherField( radsol_p,radsol,1)
     118      call GatherField( rain_fall_p,rain_fall,1)
     119      call GatherField( snow_fall_p,snow_fall,1)
     120      call GatherField( sollw_p,sollw,1)
     121      call GatherField( solsw_p,solsw,1)
     122      call GatherField( fder_p,fder,1)
     123      call GatherField( frugs_p,frugs,nbsrf)
     124      call GatherField( agesno_p,agesno,nbsrf)
     125      call GatherField( zmea_p,zmea,1)
     126      call GatherField( zstd_p,zstd,1)
     127      call GatherField( zsig_p,zsig,1)
     128      call GatherField( zgam_p,zgam,1)
     129      call GatherField( zthe_p,zthe,1)
     130      call GatherField( zpic_p,zpic,1)
     131      call GatherField( zval_p,zval,1)
     132      call GatherField( rugsrel_p,rugsrel,1)
     133      call GatherField( pctsrf_p,pctsrf, nbsrf)
     134      call GatherField( run_off_lic_0_p,run_off_lic_0,1)
     135      call GatherField( t_ancien_p,t_ancien,klev)
     136      call GatherField( q_ancien_p,q_ancien,klev)
     137      call GatherField( rnebcon_p,rnebcon,klev)
     138      call GatherField( clwcon_p,clwcon,klev)
     139      call GatherField( ratqs_p,ratqs,klev)
     140     
     141      if (phy_rank==0) then
     142     
    73143      ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
    74144      IF (ierr.NE.NF_NOERR) THEN
    … …  
    780850      ierr = NF_CLOSE(nid)
    781851c
     852      endif   ! phy_rank==0
    782853      RETURN
    783854      END

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/physiq.F

    r633 r634  
    1515      USE ioipsl
    1616      USE histcom
     17      USE comgeomphy
     18      USE write_field
     19      USE write_field_p
     20      USE dimphy
     21      USE iophy
     22c$$$      USE misc_mod, mydebug=>debug
     23#ifdef CPP_PARALLEL
     24      USE vampir
     25#endif
    1726#ifdef INCA
    1827      USE chemshut
    … …  
    3544c   CLEFS CPP POUR LES IO
    3645c   =====================
    37 #define histhf
     46c#define histhf
    3847#define histday
    3948#define histmth
    40 #define histins
     49c#define histins
    4150c#define histISCCP
    42 #define histREGDYN
    43 #define histmthNMC
     51c#define histREGDYN
     52c#define histmthNMC
    4453c======================================================================
    4554c    modif   ( P. Le Van ,  12/10/98 )
    … …  
    7786      integer jjmp1
    7887      parameter (jjmp1=jjm+1-1/jjm)
    79 #include "dimphy.h"
     88      integer iip1
     89      parameter (iip1=iim+1)
     90cym#include "dimphy.h"
    8091#include "regdim.h"
    8192#include "indicesol.h"
    … …  
    8596#include "logic.h"
    8697#include "temps.h"
    87 #include "comgeomphy.h"
     98cym#include "comgeomphy.h"
    8899#include "advtrac.h"
    89100#include "iniprint.h"
    … …  
    161172      REAL fm_therm(klon,klev+1)
    162173      REAL entr_therm(klon,klev)
    163       real q2(klon,klev+1,nbsrf)
    164       save q2
     174      real,allocatable,save :: q2(:,:,:)
     175cym      save q2
    165176c======================================================================
    166177c
    … …  
    194205      REAL qx(klon,klev,nqmax)
    195206
    196       REAL t_ancien(klon,klev), q_ancien(klon,klev)
    197       SAVE t_ancien, q_ancien
     207      REAL,allocatable,save :: t_ancien(:,:), q_ancien(:,:)
     208cym      SAVE t_ancien, q_ancien
    198209      LOGICAL ancien_ok
    199210      SAVE ancien_ok
    … …  
    214225      real da(klon,klev),phi(klon,klev,klev),mp(klon,klev)
    215226
    216       INTEGER klevp1, klevm1
    217       PARAMETER(klevp1=klev+1,klevm1=klev-1)
    218 #include "raddim.h"
     227cym      INTEGER klevp1, klevm1
     228cym      PARAMETER(klevp1=klev+1,klevm1=klev-1)
     229cym#include "raddim.h"
    219230c
    220231cIM 080304   REAL swdn0(klon,2), swdn(klon,2), swup0(klon,2), swup(klon,2)
    221       REAL swdn0(klon,klevp1), swdn(klon,klevp1)
    222       REAL swup0(klon,klevp1), swup(klon,klevp1)
    223       SAVE swdn0 , swdn, swup0, swup
    224 c
    225       REAL SWdn200clr(klon), SWdn200(klon)
    226       REAL SWup200clr(klon), SWup200(klon)
    227       SAVE SWdn200clr, SWdn200, SWup200clr, SWup200
    228 c
    229       REAL lwdn0(klon,klevp1), lwdn(klon,klevp1)
    230       REAL lwup0(klon,klevp1), lwup(klon,klevp1)
    231       SAVE lwdn0 , lwdn, lwup0, lwup
    232 c
    233       REAL LWdn200clr(klon), LWdn200(klon)
    234       REAL LWup200clr(klon), LWup200(klon)
    235       SAVE LWdn200clr, LWdn200, LWup200clr, LWup200
    236 c
    237       REAL LWdnTOA(klon), LWdnTOAclr(klon)
    238       SAVE LWdnTOA, LWdnTOAclr
     232      REAL,allocatable,save :: swdn0(:,:), swdn(:,:)
     233      REAL,allocatable,save :: swup0(:,:), swup(:,:)
     234cym      SAVE swdn0 , swdn, swup0, swup
     235c
     236      REAL,allocatable,save :: SWdn200clr(:), SWdn200(:)
     237      REAL,allocatable,save :: SWup200clr(:), SWup200(:)
     238cym      SAVE SWdn200clr, SWdn200, SWup200clr, SWup200
     239c
     240      REAL,allocatable,save :: lwdn0(:,:), lwdn(:,:)
     241      REAL,allocatable,save :: lwup0(:,:), lwup(:,:)
     242cym      SAVE lwdn0 , lwdn, lwup0, lwup
     243c
     244      REAL,allocatable,save :: LWdn200clr(:), LWdn200(:)
     245      REAL,allocatable,save :: LWup200clr(:), LWup200(:)
     246cym      SAVE LWdn200clr, LWdn200, LWup200clr, LWup200
     247c
     248      REAL,allocatable,save :: LWdnTOA(:), LWdnTOAclr(:)
     249cym      SAVE LWdnTOA, LWdnTOAclr
    239250c
    240251c vents meridien et zonal a un niveau de pression
    … …  
    296307cv3.4
    297308      INTEGER debug, debugcol
    298       INTEGER npoints
    299       PARAMETER(npoints=klon)
     309cym      INTEGER npoints
     310cym      PARAMETER(npoints=klon)
    300311c
    301312      INTEGER sunlit(klon) !sunlit=1 if day; sunlit=0 if night
    … …  
    457468      SAVE radpas                 ! frequence d'appel rayonnement
    458469c
    459       REAL radsol(klon)
    460       SAVE radsol               ! bilan radiatif au sol calcule par code radiatif
    461 c
    462       REAL rlat(klon)
    463       SAVE rlat                   ! latitude pour chaque point
    464 c
    465       REAL rlon(klon)
    466       SAVE rlon                   ! longitude pour chaque point
     470      REAL,allocatable,save :: radsol(:)
     471cym      SAVE radsol               ! bilan radiatif au sol calcule par code radiatif
     472c
     473      REAL,allocatable,save :: rlat(:)
     474cym      SAVE rlat                   ! latitude pour chaque point
     475c
     476      REAL,allocatable,save :: rlon(:)
     477cym      SAVE rlon                   ! longitude pour chaque point
    467478c
    468479cc      INTEGER iflag_con
    … …  
    478489      real slp(klon) ! sea level pressure
    479490
    480       REAL ftsol(klon,nbsrf)
    481       SAVE ftsol                  ! temperature du sol
    482 c
    483       REAL ftsoil(klon,nsoilmx,nbsrf)
    484       SAVE ftsoil                 ! temperature dans le sol
    485 c
    486       REAL fevap(klon,nbsrf)
    487       SAVE fevap                 ! evaporation
    488       REAL fluxlat(klon,nbsrf)
    489       SAVE fluxlat
    490 c
    491       REAL deltat(klon)
    492       SAVE deltat                 ! ecart avec la SST de reference
    493 c
    494       REAL fqsurf(klon,nbsrf)
    495       SAVE fqsurf                 ! humidite de l'air au contact de la surface
    496 c
    497       REAL qsol(klon)
    498       SAVE qsol                  ! hauteur d'eau dans le sol
    499 c
    500       REAL fsnow(klon,nbsrf)
    501       SAVE fsnow                  ! epaisseur neigeuse
    502 c
    503       REAL falbe(klon,nbsrf)
    504       SAVE falbe                  ! albedo par type de surface
    505       REAL falblw(klon,nbsrf)
    506       SAVE falblw                 ! albedo par type de surface
     491      REAL,allocatable,save :: ftsol(:,:)
     492cym      SAVE ftsol                  ! temperature du sol
     493c
     494      REAL,allocatable,save :: ftsoil(:,:,:)
     495cym      SAVE ftsoil                 ! temperature dans le sol
     496c
     497      REAL,allocatable,save :: fevap(:,:)
     498cym      SAVE fevap                 ! evaporation
     499      REAL,allocatable,save :: fluxlat(:,:)
     500cym      SAVE fluxlat
     501c
     502      REAL,allocatable,save :: deltat(:)
     503cym      SAVE deltat                 ! ecart avec la SST de reference
     504c
     505      REAL,allocatable,save :: fqsurf(:,:)
     506cym      SAVE fqsurf                 ! humidite de l'air au contact de la surface
     507c
     508      REAL,allocatable,save :: qsol(:)
     509cym      SAVE qsol                  ! hauteur d'eau dans le sol
     510c
     511      REAL,allocatable,save :: fsnow(:,:)
     512cym      SAVE fsnow                  ! epaisseur neigeuse
     513c
     514      REAL,allocatable,save :: falbe(:,:)
     515cym      SAVE falbe                  ! albedo par type de surface
     516      REAL,allocatable,save :: falblw(:,:)
     517cym      SAVE falblw                 ! albedo par type de surface
    507518
    508519c
    … …  
    510521c  Parametres de l'Orographie a l'Echelle Sous-Maille (OESM):
    511522c
    512       REAL zmea(klon)
    513       SAVE zmea                   ! orographie moyenne
    514 c
    515       REAL zstd(klon)
    516       SAVE zstd                   ! deviation standard de l'OESM
    517 c
    518       REAL zsig(klon)
    519       SAVE zsig                   ! pente de l'OESM
    520 c
    521       REAL zgam(klon)
    522       save zgam                   ! anisotropie de l'OESM
    523 c
    524       REAL zthe(klon)
    525       SAVE zthe                   ! orientation de l'OESM
    526 c
    527       REAL zpic(klon)
    528       SAVE zpic                   ! Maximum de l'OESM
    529 c
    530       REAL zval(klon)
    531       SAVE zval                   ! Minimum de l'OESM
    532 c
    533       REAL rugoro(klon)
    534       SAVE rugoro                 ! longueur de rugosite de l'OESM
     523      REAL,allocatable,save :: zmea(:)
     524cym      SAVE zmea                   ! orographie moyenne
     525c
     526      REAL,allocatable,save :: zstd(:)
     527cym      SAVE zstd                   ! deviation standard de l'OESM
     528c
     529      REAL,allocatable,save :: zsig(:)
     530cym      SAVE zsig                   ! pente de l'OESM
     531c
     532      REAL,allocatable,save :: zgam(:)
     533cym      save zgam                   ! anisotropie de l'OESM
     534c
     535      REAL,allocatable,save :: zthe(:)
     536cym      SAVE zthe                   ! orientation de l'OESM
     537c
     538      REAL,allocatable,save :: zpic(:)
     539cym      SAVE zpic                   ! Maximum de l'OESM
     540c
     541      REAL,allocatable,save :: zval(:)
     542cym      SAVE zval                   ! Minimum de l'OESM
     543c
     544      REAL,allocatable,save :: rugoro(:)
     545cym      SAVE rugoro                 ! longueur de rugosite de l'OESM
    535546c
    536547      REAL zulow(klon),zvlow(klon),zustr(klon), zvstr(klon)
    537548c
    538       REAL zuthe(klon),zvthe(klon)
    539       SAVE zuthe
    540       SAVE zvthe
     549      REAL,allocatable,save :: zuthe(:),zvthe(:)
     550cym      SAVE zuthe
     551cym      SAVE zvthe
    541552      INTEGER igwd,idx(klon),itest(klon)
    542553c
    543       REAL agesno(klon,nbsrf)
    544       SAVE agesno                 ! age de la neige
    545 c
    546       REAL alb_neig(klon)
    547       SAVE alb_neig               ! albedo de la neige
    548 c
    549       REAL run_off_lic_0(klon)
    550       SAVE run_off_lic_0
     554      REAL,allocatable,save :: agesno(:,:)
     555cym      SAVE agesno                 ! age de la neige
     556c
     557      REAL,allocatable,save :: alb_neig(:)
     558cym      SAVE alb_neig               ! albedo de la neige
     559c
     560      REAL,allocatable,save :: run_off_lic_0(:)
     561cym      SAVE run_off_lic_0
    551562cKE43
    552563c Variables liees a la convection de K. Emanuel (sb):
    553564c
    554       REAL ema_workcbmf(klon)   ! cloud base mass flux
    555       SAVE ema_workcbmf
    556 
    557       REAL ema_cbmf(klon)       ! cloud base mass flux
    558       SAVE ema_cbmf
    559 
    560       REAL ema_pcb(klon)        ! cloud base pressure
    561       SAVE ema_pcb
    562 
    563       REAL ema_pct(klon)        ! cloud top pressure
    564       SAVE ema_pct
     565      REAL,allocatable,save :: ema_workcbmf(:)   ! cloud base mass flux
     566cym      SAVE ema_workcbmf
     567
     568      REAL,allocatable,save :: ema_cbmf(:)       ! cloud base mass flux
     569cym      SAVE ema_cbmf
     570
     571      REAL,allocatable,save :: ema_pcb(:)        ! cloud base pressure
     572cym      SAVE ema_pcb
     573
     574      REAL,allocatable,save :: ema_pct(:)        ! cloud top pressure
     575cym      SAVE ema_pct
    565576
    566577      REAL bas, top             ! cloud base and top levels
    … …  
    568579      SAVE top
    569580
    570       REAL Ma(klon,klev)        ! undilute upward mass flux
    571       SAVE Ma
    572       REAL qcondc(klon,klev)    ! in-cld water content from convect
    573       SAVE qcondc
    574       REAL ema_work1(klon, klev), ema_work2(klon, klev)
    575       SAVE ema_work1, ema_work2
     581      REAL,allocatable,save :: Ma(:,:)        ! undilute upward mass flux
     582cym      SAVE Ma
     583      REAL,allocatable,save :: qcondc(:,:)    ! in-cld water content from convect
     584cym      SAVE qcondc
     585      REAL,allocatable,save :: ema_work1(:, :), ema_work2(:, :)
     586cym      SAVE ema_work1, ema_work2
    576587      REAL wdn(klon), tdn(klon), qdn(klon)
    577588
    578       REAL wd(klon) ! sb
    579       SAVE wd       ! sb
     589      REAL,allocatable,save :: wd(:) ! sb
     590cym      SAVE wd       ! sb
    580591
    581592c Variables locales pour la couche limite (al1):
    … …  
    604615c$$$      PARAMETER (offline=.false.)
    605616c$$$      INTEGER physid
    606       REAL pfrac_impa(klon,klev)! Produits des coefs lessivage impaction
    607       save pfrac_impa
    608       REAL pfrac_nucl(klon,klev)! Produits des coefs lessivage nucleation
    609       save pfrac_nucl
    610       REAL pfrac_1nucl(klon,klev)! Produits des coefs lessi nucl (alpha = 1)
    611       save pfrac_1nucl
     617      REAL,allocatable,save :: pfrac_impa(:,:)! Produits des coefs lessivage impaction
     618cym      save pfrac_impa
     619      REAL,allocatable,save :: pfrac_nucl(:,:)! Produits des coefs lessivage nucleation
     620cym      save pfrac_nucl
     621      REAL,allocatable,save :: pfrac_1nucl(:,:)! Produits des coefs lessi nucl (alpha = 1)
     622cym      save pfrac_1nucl
    612623      REAL frac_impa(klon,klev) ! fractions d'aerosols lessivees (impaction)
    613624      REAL frac_nucl(klon,klev) ! idem (nucleation)
    … …  
    618629
    619630cAA
    620       REAL rain_fall(klon) ! pluie
    621       REAL snow_fall(klon) ! neige
    622       save snow_fall, rain_fall
     631      REAL,allocatable,save :: rain_fall(:) ! pluie
     632      REAL,allocatable,save :: snow_fall(:) ! neige
     633cym      save snow_fall, rain_fall
    623634cIM 050204 BEG
    624       REAL total_rain(klon), nday_rain(klon)
    625       save total_rain, nday_rain
     635      REAL,allocatable,save :: total_rain(:), nday_rain(:)
     636cym      save total_rain, nday_rain
    626637cIM 050204 END
    627638      REAL evap(klon), devap(klon) ! evaporation et sa derivee
    628639      REAL sens(klon), dsens(klon) ! chaleur sensible et sa derivee
    629       REAL dlw(klon)    ! derivee infra rouge
     640      REAL,allocatable,save :: dlw(:)    ! derivee infra rouge
    630641cym
    631       SAVE dlw
     642cym      SAVE dlw
    632643cym
    633644      REAL bils(klon) ! bilan de chaleur au sol
    634645      REAL wfbils(klon,nbsrf) ! bilan de chaleur au sol, pour chaque
    635646C                             ! type de sous-surface et pondere par la fraction
    636       REAL fder(klon) ! Derive de flux (sensible et latente)
    637       save fder
     647      REAL,allocatable,save :: fder(:) ! Derive de flux (sensible et latente)
     648cym      save fder
    638649      REAL ve(klon) ! integr. verticale du transport meri. de l'energie
    639650      REAL vq(klon) ! integr. verticale du transport meri. de l'eau
    … …  
    641652      REAL uq(klon) ! integr. verticale du transport zonal de l'eau
    642653c
    643       REAL frugs(klon,nbsrf) ! longueur de rugosite
    644       save frugs
     654      REAL,allocatable,save :: frugs(:,:) ! longueur de rugosite
     655cym      save frugs
    645656      REAL zxrugs(klon) ! longueur de rugosite
    646657c
    647658c Conditions aux limites
    648659c
     660      INTEGER :: iii
    649661      INTEGER julien
    650662c
    651663      INTEGER lmt_pas
    652664      SAVE lmt_pas                ! frequence de mise a jour
    653       REAL pctsrf(klon,nbsrf)
     665      REAL,allocatable,save :: pctsrf(:,:)
    654666cIM
    655667      REAL pctsrf_new(klon,nbsrf) !pourcentage surfaces issus d'ORCHIDEE
    656       REAL paire_ter(klon)        !surfaces terre
     668cym      REAL paire_ter(klon)        !surfaces terre
     669      REAL,allocatable,save ::  paire_ter(:)        !surfaces terre
     670   
    657671cIM
    658       SAVE pctsrf                 ! sous-fraction du sol
    659       REAL albsol(klon)
    660       SAVE albsol                 ! albedo du sol total
    661       REAL albsollw(klon)
    662       SAVE albsollw                 ! albedo du sol total
    663 
    664       REAL wo(klon,klev)
    665       SAVE wo                     ! ozone
     672cym      SAVE pctsrf                 ! sous-fraction du sol
     673      REAL,allocatable,save :: albsol(:)
     674cym      SAVE albsol                 ! albedo du sol total
     675      REAL,allocatable,save :: albsollw(:)
     676cym      SAVE albsollw                 ! albedo du sol total
     677
     678      REAL,allocatable,save :: wo(:,:)
     679cym     SAVE wo                     ! ozone
    666680c======================================================================
    667681c
    … …  
    702716c Variables locales
    703717c
    704       real clwcon(klon,klev),rnebcon(klon,klev)
     718      real,allocatable,save :: clwcon(:,:),rnebcon(:,:)
    705719      real clwcon0(klon,klev),rnebcon0(klon,klev)
    706       save rnebcon, clwcon
     720cym      save rnebcon, clwcon
    707721
    708722      REAL rhcl(klon,klev)    ! humiditi relative ciel clair
    … …  
    725739      REAL zxfluxv(klon, klev)
    726740CXXX
    727       REAL heat(klon,klev)    ! chauffage solaire
    728       REAL heat0(klon,klev)   ! chauffage solaire ciel clair
    729       REAL cool(klon,klev)    ! refroidissement infrarouge
    730       REAL cool0(klon,klev)   ! refroidissement infrarouge ciel clair
    731       REAL topsw(klon), toplw(klon), solsw(klon), sollw(klon)
    732       real sollwdown(klon)    ! downward LW flux at surface
     741      REAL,allocatable,save :: heat(:,:)    ! chauffage solaire
     742      REAL,allocatable,save :: heat0(:,:)   ! chauffage solaire ciel clair
     743      REAL,allocatable,save :: cool(:,:)    ! refroidissement infrarouge
     744      REAL,allocatable,save :: cool0(:,:)   ! refroidissement infrarouge ciel clair
     745      REAL,allocatable,save :: topsw(:), toplw(:), solsw(:), sollw(:)
     746      real,allocatable,save :: sollwdown(:)    ! downward LW flux at surface
    733747cIM BEG
    734       real sollwdownclr(klon)    ! downward CS LW flux at surface
    735       real toplwdown(klon)       ! downward CS LW flux at TOA
    736       real toplwdownclr(klon)    ! downward CS LW flux at TOA
     748      real,allocatable,save :: sollwdownclr(:)    ! downward CS LW flux at surface
     749      real,allocatable,save :: toplwdown(:)       ! downward CS LW flux at TOA
     750      real,allocatable,save :: toplwdownclr(:)    ! downward CS LW flux at TOA
    737751cIM END
    738       REAL topsw0(klon), toplw0(klon), solsw0(klon), sollw0(klon)
    739       REAL albpla(klon)
     752      REAL,allocatable,save :: topsw0(:),toplw0(:),solsw0(:),sollw0(:)
     753      REAL,allocatable,save :: albpla(:)
    740754      REAL fsollw(klon, nbsrf)   ! bilan flux IR pour chaque sous surface
    741755      REAL fsolsw(klon, nbsrf)   ! flux solaire absorb. pour chaque sous surface
    742756c Le rayonnement n'est pas calcule tous les pas, il faut donc
    743757c                      sauvegarder les sorties du rayonnement
    744       SAVE  heat,cool,albpla,topsw,toplw,solsw,sollw,sollwdown
    745       SAVE  sollwdownclr, toplwdown, toplwdownclr
    746       SAVE  topsw0,toplw0,solsw0,sollw0, heat0, cool0
     758cym      SAVE  heat,cool,albpla,topsw,toplw,solsw,sollw,sollwdown
     759cym      SAVE  sollwdownclr, toplwdown, toplwdownclr
     760cym      SAVE  topsw0,toplw0,solsw0,sollw0, heat0, cool0
    747761c
    748762      INTEGER itaprad
    … …  
    785799      REAL dnwd0(klon,klev)     ! unsaturated downdraft mass flux
    786800      REAL tvp(klon,klev)       ! virtual temp of lifted parcel
    787       REAL cape(klon)           ! CAPE
    788       SAVE cape
     801      REAL,allocatable,save :: cape(:)           ! CAPE
     802cym      SAVE cape
    789803      CHARACTER*40 capemaxcels  !max(CAPE)
    790804
    791       REAL pbase(klon)          ! cloud base pressure
    792       SAVE pbase
    793       REAL bbase(klon)          ! cloud base buoyancy
    794       SAVE bbase
     805      REAL,allocatable,save :: pbase(:)          ! cloud base pressure
     806cym      SAVE pbase
     807      REAL,allocatable,save :: bbase(:)          ! cloud base buoyancy
     808cym      SAVE bbase
    795809      REAL rflag(klon)          ! flag fonctionnement de convect
    796810      INTEGER iflagctrl(klon)          ! flag fonctionnement de convect
    … …  
    829843      REAL prfl(klon,klev+1), psfl(klon,klev+1)
    830844c
    831       INTEGER ibas_con(klon), itop_con(klon)
     845      INTEGER,allocatable,save :: ibas_con(:), itop_con(:)
    832846cym
    833       SAVE ibas_con,itop_con
     847cym      SAVE ibas_con,itop_con
    834848cym
    835849      REAL rain_con(klon), rain_lsc(klon)
    … …  
    846860      REAL d_u_oli(klon,klev), d_v_oli(klon,klev) !tendances dues a oro et lif
    847861
    848       REAL ratqs(klon,klev),ratqss(klon,klev),ratqsc(klon,klev)
     862      REAL,allocatable,save :: ratqs(:,:)
     863      REAL ratqss(klon,klev),ratqsc(klon,klev)
    849864      real ratqsbas,ratqshaut
    850       save ratqsbas,ratqshaut, ratqs
     865cym      save ratqsbas,ratqshaut, ratqs
     866      save ratqsbas,ratqshaut
    851867      real zpt_conv(klon,klev)
    852868
    … …  
    956972cjq   Aerosol effects (Johannes Quaas, 27/11/2003)
    957973      REAL sulfate(klon, klev) ! SO4 aerosol concentration [ug/m3]
    958       REAL sulfate_pi(klon, klev) ! SO4 aerosol concentration [ug/m3] (pre-industrial value)
    959       SAVE sulfate_pi
     974      REAL,allocatable,save :: sulfate_pi(:,:) ! SO4 aerosol concentration [ug/m3] (pre-industrial value)
     975cym      SAVE sulfate_pi
    960976
    961977      REAL cldtaupi(klon,klev)  ! Cloud optical thickness for pre-industrial (pi) aerosols
    … …  
    9901006c Declaration des constantes et des fonctions thermodynamiques
    9911007c
     1008      LOGICAL :: first=.true.
    9921009#include "YOMCST.h"
    9931010#include "YOETHF.h"
    9941011#include "FCTTRE.h"
     1012
     1013      REAL Field_tmp(klon2,klevp1)
     1014     
     1015      if (first) then
     1016     
     1017      allocate( t_ancien(klon,klev), q_ancien(klon,klev))
     1018      allocate( q2(klon,klev+1,nbsrf))
     1019      allocate( swdn0(klon,klevp1), swdn(klon,klevp1))
     1020      allocate( swup0(klon,klevp1), swup(klon,klevp1))
     1021      allocate( SWdn200clr(klon), SWdn200(klon))
     1022      allocate( SWup200clr(klon), SWup200(klon))
     1023      allocate( lwdn0(klon,klevp1), lwdn(klon,klevp1))
     1024      allocate( lwup0(klon,klevp1), lwup(klon,klevp1))
     1025      allocate( LWdn200clr(klon), LWdn200(klon))
     1026      allocate( LWup200clr(klon), LWup200(klon))
     1027      allocate( LWdnTOA(klon), LWdnTOAclr(klon))
     1028      allocate( radsol(klon))
     1029      allocate( rlat(klon))
     1030      allocate( rlon(klon))
     1031      allocate( ftsol(klon,nbsrf))
     1032      allocate( ftsoil(klon,nsoilmx,nbsrf))
     1033      allocate( fevap(klon,nbsrf))
     1034      allocate( fluxlat(klon,nbsrf))
     1035      allocate( deltat(klon))
     1036      allocate( fqsurf(klon,nbsrf))
     1037      allocate( qsol(klon))
     1038      allocate( fsnow(klon,nbsrf))
     1039      allocate( falbe(klon,nbsrf))
     1040      allocate( falblw(klon,nbsrf))
     1041      allocate( zmea(klon))
     1042      allocate( zstd(klon))
     1043      allocate( zsig(klon))
     1044      allocate( zgam(klon))
     1045      allocate( zthe(klon))
     1046      allocate( zpic(klon))
     1047      allocate( zval(klon))
     1048      allocate( rugoro(klon))
     1049      allocate( zuthe(klon),zvthe(klon))
     1050      allocate( agesno(klon,nbsrf))
     1051      allocate( alb_neig(klon))
     1052      allocate( run_off_lic_0(klon))
     1053      allocate( ema_workcbmf(klon))   
     1054      allocate( ema_cbmf(klon))
     1055      allocate( ema_pcb(klon))
     1056      allocate( ema_pct(klon)) 
     1057      allocate( Ma(klon,klev) )
     1058      allocate( qcondc(klon,klev)) 
     1059      allocate( ema_work1(klon, klev), ema_work2(klon, klev))
     1060      allocate( wd(klon) )
     1061      allocate( pfrac_impa(klon,klev))
     1062      allocate( pfrac_nucl(klon,klev))
     1063      allocate( pfrac_1nucl(klon,klev))
     1064      allocate( rain_fall(klon) )
     1065      allocate( snow_fall(klon) )
     1066      allocate( total_rain(klon), nday_rain(klon))
     1067      allocate( dlw(klon)   )
     1068      allocate( fder(klon) )
     1069      allocate( frugs(klon,nbsrf) )
     1070      allocate( pctsrf(klon,nbsrf))
     1071      allocate( albsol(klon))
     1072      allocate( albsollw(klon))
     1073      allocate( wo(klon,klev))
     1074      allocate( clwcon(klon,klev),rnebcon(klon,klev))
     1075      allocate( heat(klon,klev)    )
     1076      allocate( heat0(klon,klev)  )
     1077      allocate( cool(klon,klev)    )
     1078      allocate( cool0(klon,klev)   )
     1079      allocate( topsw(klon), toplw(klon), solsw(klon), sollw(klon))
     1080      allocate( sollwdown(klon)    )
     1081      allocate( sollwdownclr(klon)  )
     1082      allocate( toplwdown(klon)      )
     1083      allocate( toplwdownclr(klon)   )
     1084      allocate( topsw0(klon), toplw0(klon), solsw0(klon), sollw0(klon))
     1085      allocate( albpla(klon))
     1086      allocate( cape(klon)   )       
     1087      allocate( pbase(klon)   )     
     1088      allocate( bbase(klon)    )     
     1089      allocate( ibas_con(klon), itop_con(klon))
     1090      allocate( ratqs(klon,klev))
     1091      allocate( sulfate_pi(klon, klev))
     1092      allocate( paire_ter(klon))
     1093     
     1094        paire_ter(:)=0.   
     1095        clwcon(:,:)=0.
     1096        rnebcon(:,:)=0.
     1097        ratqs(:,:)=0.
     1098        run_off_lic_0(:)=0.
     1099        sollw(:)=0.
     1100        ema_work1(:,:)=0.
     1101        ema_work2(:,:)=0.
     1102       
     1103        first=.false.
     1104      endif
    9951105c======================================================================
    9961106!rv
    … …  
    11641274          DO i = 1, klon
    11651275           ibas_con(i) = 1
    1166            itop_con(i) = 1
     1276           itop_con(i) = klev+1
    11671277          ENDDO
    11681278cIM15/11/02 rajout initialisation ibas_con,itop_con cf. SB =>END
    … …  
    12921402c
    12931403#ifdef INCA
     1404           call VTe(VTphysiq)
     1405           call VTb(VTinca)
    12941406           iii = MOD(NINT(xjour),360)
    12951407           calday = FLOAT(iii) + gmtime
    … …  
    13141426           WRITE(lunout,*) 'OK.'
    13151427#endif
     1428      call VTe(VTinca)
     1429      call VTb(VTphysiq)
    13161430#endif
    13171431c
    … …  
    15381652      fder = dlw
    15391653
    1540 
     1654c$$$      if (mydebug) then
     1655c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     1656c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     1657c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     1658c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     1659c$$$      endif
     1660 
    15411661      CALL clmain(dtime,itap,date0,pctsrf,pctsrf_new,
    15421662     e            t_seri,q_seri,u_seri,v_seri,
    … …  
    15961716      ENDDO
    15971717      ENDDO
     1718
     1719c$$$      if (mydebug) then
     1720c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     1721c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     1722c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     1723c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     1724c$$$      endif
     1725
    15981726c
    15991727      IF (if_ebil.ge.2) THEN
    … …  
    18331961        ENDDO
    18341962      ENDDO
     1963
     1964c$$$      if (mydebug) then
     1965c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     1966c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     1967c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     1968c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     1969c$$$      endif
    18351970c
    18361971      IF (if_ebil.ge.2) THEN
    … …  
    20332168     s      , fs_bound, fq_bound )
    20342169      END IF
     2170
     2171c$$$      if (mydebug) then
     2172c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     2173c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     2174c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     2175c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     2176c$$$      endif
     2177
    20352178c
    20362179c-------------------------------------------------------------------
    … …  
    22522395     &     boxptop)
    22532396
    2254 
     2397     
     2398      if (monocpu) then
     2399     
    22552400c passage de la grille (klon,7,7) a (iim,jjmp1,7,7)
    22562401      DO l=1, lmaxm1
    … …  
    23012446       ENDDO
    23022447      ENDDO
     2448     
     2449      endif ! monocpu
    23032450c
    23042451      ENDIF !ok_isccp
    … …  
    23802527
    23812528#ifdef INCA
     2529      call VTe(VTphysiq)
     2530      call VTb(VTinca)
    23822531           calday = FLOAT(julien) + gmtime
    23832532
    … …  
    24332582           WRITE(lunout,*)'OK.'
    24342583#endif
     2584      call VTe(VTinca)
     2585      call VTb(VTphysiq)
    24352586#endif
    24362587c     
    … …  
    24712622     .               + falblw(i,is_sic) * pctsrf(i,is_sic)
    24722623      ENDDO
     2624
     2625c$$$      if (mydebug) then
     2626c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     2627c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     2628c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     2629c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     2630c$$$      endif
     2631     
    24732632      CALL radlwsw ! nouveau rayonnement (compatible Arpege-IFS)
    24742633     e            (dist, rmu0, fract,
    … …  
    25002659      ENDDO
    25012660c
     2661c$$$      if (mydebug) then
     2662c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     2663c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     2664c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     2665c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     2666c$$$      endif
     2667     
    25022668      IF (if_ebil.ge.2) THEN
    25032669        ztit='after rad'
    … …  
    25852751      ENDIF ! fin de test sur ok_orodr
    25862752c
     2753c$$$      if (mydebug) then
     2754c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     2755c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     2756c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     2757c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     2758c$$$      endif
     2759     
    25872760      IF (ok_orolf) THEN
    25882761c
    … …  
    26172790      ENDIF ! fin de test sur ok_orolf
    26182791c
     2792
     2793c$$$      if (mydebug) then
     2794c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     2795c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     2796c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     2797c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     2798c$$$      endif
     2799
    26192800      IF (if_ebil.ge.2) THEN
    26202801        ztit='after orography'
    … …  
    28523033c Convertir les incrementations en tendances
    28533034c
     3035c$$$      if (mydebug) then
     3036c$$$        call WriteField_phy_p('u_seri',u_seri,llm)
     3037c$$$        call WriteField_phy_p('v_seri',v_seri,llm)
     3038c$$$        call WriteField_phy_p('t_seri',t_seri,llm)
     3039c$$$    call WriteField_phy_p('q_seri',q_seri,llm)
     3040c$$$      endif
     3041
    28543042      DO k = 1, klev
    28553043      DO i = 1, klon
    … …  
    29183106
    29193107#ifdef INCA
     3108      call VTe(VTphysiq)
     3109      call VTb(VTinca)
    29203110#ifdef INCAINFO
    29213111           WRITE(lunout,*)'Appel CHEMHOOK_END ...'
    … …  
    29453135           WRITE(lunout,*)'OK.'
    29463136#endif
     3137      call VTe(VTinca)
     3138      call VTb(VTphysiq)
    29473139#endif
    29483140

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/phystokenc.F

    r633 r634  
    1313      USE ioipsl
    1414      USE histcom
    15 
     15      USE dimphy
     16      USE iophy
    1617      IMPLICIT none
    1718
    … …  
    2324c======================================================================
    2425#include "dimensions.h"
    25 #include "dimphy.h"
     26cym#include "dimphy.h"
    2627#include "tracstoke.h"
    2728#include "indicesol.h"
    … …  
    5455      REAL pen_d(klon,klev) ! flux entraine dans le panache descendant
    5556      REAL pde_d(klon,klev) ! flux detraine dans le panache descendant
    56         real pt(klon,klev),t(klon,klev)
     57      real pt(klon,klev)
     58      REAL,allocatable,save :: t(:,:)
    5759c
    5860      REAL rlon(klon), rlat(klon), dtime
    … …  
    7173        real fm_therm1(klon,klev)
    7274      REAL pentr_therm(klon,klev)
    73       REAL entr_therm(klon,klev)
    74       REAL fm_therm(klon,klev)
     75   
     76      REAL,allocatable,save :: entr_therm(:,:)
     77      REAL,allocatable,save :: fm_therm(:,:)
    7578c
    7679c   Lessivage:
    … …  
    8891      INTEGER i, k
    8992c
    90       REAL mfu(klon,klev)  ! flux de masse dans le panache montant
    91       REAL mfd(klon,klev)  ! flux de masse dans le panache descendant
    92       REAL en_u(klon,klev) ! flux entraine dans le panache montant
    93       REAL de_u(klon,klev) ! flux detraine dans le panache montant
    94       REAL en_d(klon,klev) ! flux entraine dans le panache descendant
    95       REAL de_d(klon,klev) ! flux detraine dans le panache descendant
    96       REAL coefh(klon,klev) ! flux detraine dans le panache descendant
    97 
    98       REAL pyu1(klon),pyv1(klon)
    99       REAL pftsol(klon,nbsrf),ppsrf(klon,nbsrf)
     93      REAL,allocatable,save :: mfu(:,:)  ! flux de masse dans le panache montant
     94      REAL,allocatable,save :: mfd(:,:)  ! flux de masse dans le panache descendant
     95      REAL,allocatable,save :: en_u(:,:) ! flux entraine dans le panache montant
     96      REAL,allocatable,save :: de_u(:,:) ! flux detraine dans le panache montant
     97      REAL,allocatable,save :: en_d(:,:) ! flux entraine dans le panache descendant
     98      REAL,allocatable,save :: de_d(:,:) ! flux detraine dans le panache descendant
     99      REAL,allocatable,save :: coefh(:,:) ! flux detraine dans le panache descendant
     100
     101      REAL,allocatable,save :: pyu1(:)
     102      REAL,allocatable,save :: pyv1(:)
     103      REAL,allocatable,save :: pftsol(:,:)
     104      REAL,allocatable,save :: ppsrf(:,:)
     105
    100106      real pftsol1(klon),pftsol2(klon),pftsol3(klon),pftsol4(klon)
    101107      real ppsrf1(klon),ppsrf2(klon),ppsrf3(klon),ppsrf4(klon)
    … …  
    107113      logical ok_sync
    108114 
    109       save t,mfu,mfd,en_u,de_u,en_d,de_d,coefh,dtcum
    110         save fm_therm,entr_therm
     115      save dtcum
    111116      save iadvtr,irec
    112       save pyu1,pyv1,pftsol,ppsrf
    113117
    114118      data iadvtr,irec/0,1/
     119      logical,save :: first=.true.
    115120c
    116121c   Couche limite:
    … …  
    123128      print*,'istdyn= ',istdyn
    124129
     130      if (first) then
     131     
     132        allocate( t(klon,klev))
     133        allocate( mfu(klon,klev)) 
     134        allocate( mfd(klon,klev)) 
     135        allocate( en_u(klon,klev))
     136        allocate( de_u(klon,klev))
     137        allocate( en_d(klon,klev))
     138        allocate( de_d(klon,klev))
     139        allocate( coefh(klon,klev))
     140        allocate( entr_therm(klon,klev))
     141        allocate( fm_therm(klon,klev))
     142        allocate( pyu1(klon))
     143        allocate( pyv1(klon))
     144        allocate( pftsol(klon,nbsrf))
     145        allocate( ppsrf(klon,nbsrf))
     146 
     147        first=.false.
     148      endif
     149     
    125150      IF (iadvtr.eq.0) THEN
    126151       
    … …  
    136161      ndex3d = 0
    137162      i=itap
    138       CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
    139       CALL histwrite(physid,"phis",i,zx_tmp_2d,iim*(jjm+1),ndex2d)
     163cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
     164      CALL histwrite_phy(physid,"phis",i,pphis)
    140165c
    141166      i=itap
    142       CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d)
    143       CALL histwrite(physid,"aire",i,zx_tmp_2d,iim*(jjm+1),ndex2d)
     167cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,paire,zx_tmp_2d)
     168      CALL histwrite_phy(physid,"aire",i,paire)
    144169
    145170      iadvtr=iadvtr+1
    … …  
    247272
    248273ccccc
    249          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d)
    250          CALL histwrite(physid,"t",itap,zx_tmp_3d,
    251      .                                   iim*(jjm+1)*klev,ndex3d)
    252 
    253          CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d)
    254       CALL histwrite(physid,"mfu",itap,zx_tmp_3d,
    255      .                                   iim*(jjm+1)*klev,ndex3d)
    256         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d)
    257       CALL histwrite(physid,"mfd",itap,zx_tmp_3d,
    258      .                                   iim*(jjm+1)*klev,ndex3d)
    259         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d)
    260       CALL histwrite(physid,"en_u",itap,zx_tmp_3d,
    261      .                                   iim*(jjm+1)*klev,ndex3d)
    262         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d)
    263       CALL histwrite(physid,"de_u",itap,zx_tmp_3d,
    264      .                                   iim*(jjm+1)*klev,ndex3d)
    265         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d)
    266       CALL histwrite(physid,"en_d",itap,zx_tmp_3d,
    267      .                                   iim*(jjm+1)*klev,ndex3d)
    268         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d)       
    269       CALL histwrite(physid,"de_d",itap,zx_tmp_3d,   
    270      .                                   iim*(jjm+1)*klev,ndex3d)
    271         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d)         
    272       CALL histwrite(physid,"coefh",itap,zx_tmp_3d,   
    273      .                                   iim*(jjm+1)*klev,ndex3d)       
     274cym         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, t, zx_tmp_3d)
     275         CALL histwrite_phy(physid,"t",itap,t)
     276
     277cym         CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfu, zx_tmp_3d)
     278      CALL histwrite_phy(physid,"mfu",itap,mfu)
     279cym     CALL gr_fi_ecrit(klev,klon,iim,jjm+1, mfd, zx_tmp_3d)
     280      CALL histwrite_phy(physid,"mfd",itap,mfd)
     281cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_u, zx_tmp_3d)
     282      CALL histwrite_phy(physid,"en_u",itap,en_u)
     283cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_u, zx_tmp_3d)
     284      CALL histwrite_phy(physid,"de_u",itap,de_u)
     285cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, en_d, zx_tmp_3d)
     286      CALL histwrite_phy(physid,"en_d",itap,en_d)
     287cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, de_d, zx_tmp_3d)       
     288      CALL histwrite_phy(physid,"de_d",itap,de_d)
     289cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1, coefh, zx_tmp_3d)         
     290      CALL histwrite_phy(physid,"coefh",itap,coefh)     
    274291
    275292c ajou...
    … …  
    280297        enddo
    281298
    282       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d)
    283       CALL histwrite(physid,"fm_th",itap,zx_tmp_3d,
    284      .                                 iim*(jjm+1)*klev,ndex3d)
    285 c
    286       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d)
    287       CALL histwrite(physid,"en_th",itap,zx_tmp_3d,
    288      .                                iim*(jjm+1)*klev,ndex3d)
     299cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1, fm_therm1, zx_tmp_3d)
     300      CALL histwrite_phy(physid,"fm_th",itap,fm_therm1)
     301c
     302cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1, entr_therm, zx_tmp_3d)
     303      CALL histwrite_phy(physid,"en_th",itap,entr_therm)
    289304cccc
    290        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d)
    291         CALL histwrite(physid,"frac_impa",itap,zx_tmp_3d,
    292      .  iim*(jjm+1)*klev,ndex3d)
    293 
    294         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d)
    295         CALL histwrite(physid,"frac_nucl",itap,zx_tmp_3d,
    296      .  iim*(jjm+1)*klev,ndex3d)
     305cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_impa,zx_tmp_3d)
     306        CALL histwrite_phy(physid,"frac_impa",itap,frac_impa)
     307
     308cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,frac_nucl,zx_tmp_3d)
     309        CALL histwrite_phy(physid,"frac_nucl",itap,frac_nucl)
    297310 
    298         CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d)
    299       CALL histwrite(physid,"pyu1",itap,zx_tmp_2d,iim*(jjm+1),
    300      .                                                ndex2d)
     311cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyu1,zx_tmp_2d)
     312      CALL histwrite_phy(physid,"pyu1",itap,pyu1)
    301313       
    302         CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d)
    303       CALL histwrite(physid,"pyv1",itap,zx_tmp_2d,iim*(jjm+1)
    304      .                                                ,ndex2d)
     314cym     CALL gr_fi_ecrit(1, klon,iim,jjm+1, pyv1,zx_tmp_2d)
     315      CALL histwrite_phy(physid,"pyv1",itap,pyv1)
    305316       
    306         CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d)
    307       CALL histwrite(physid,"ftsol1",itap,zx_tmp_2d,
    308      .                                   iim*(jjm+1),ndex2d)
    309          CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d)
    310       CALL histwrite(physid,"ftsol2",itap,zx_tmp_2d,
    311      .                                   iim*(jjm+1),ndex2d)
    312           CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d)
    313       CALL histwrite(physid,"ftsol3",itap,zx_tmp_2d,
    314      .                                   iim*(jjm+1),ndex2d)
    315          CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d)
    316       CALL histwrite(physid,"ftsol4",itap,zx_tmp_2d,
    317      .                                   iim*(jjm+1),ndex2d)
    318 
    319         CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d)
    320       CALL histwrite(physid,"psrf1",itap,zx_tmp_2d,   
    321      .                                   iim*(jjm+1),ndex2d)
    322         CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d)
    323       CALL histwrite(physid,"psrf2",itap,zx_tmp_2d,
    324      .                                   iim*(jjm+1),ndex2d)
    325         CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d)
    326       CALL histwrite(physid,"psrf3",itap,zx_tmp_2d,
    327      .                                   iim*(jjm+1),ndex2d)
    328         CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d)
    329       CALL histwrite(physid,"psrf4",itap,zx_tmp_2d,
    330      .                                   iim*(jjm+1),ndex2d)
     317cym     CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol1, zx_tmp_2d)
     318      CALL histwrite_phy(physid,"ftsol1",itap,pftsol1)
     319cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol2, zx_tmp_2d)
     320      CALL histwrite_phy(physid,"ftsol2",itap,pftsol2)
     321cym          CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol3, zx_tmp_2d)
     322      CALL histwrite_phy(physid,"ftsol3",itap,pftsol3)
     323cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1, pftsol4, zx_tmp_2d)
     324      CALL histwrite_phy(physid,"ftsol4",itap,pftsol4)
     325
     326cym        CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf1, zx_tmp_2d)
     327      CALL histwrite_phy(physid,"psrf1",itap,ppsrf1)
     328cym        CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf2, zx_tmp_2d)
     329      CALL histwrite_phy(physid,"psrf2",itap,ppsrf2)
     330cym        CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf3, zx_tmp_2d)
     331      CALL histwrite_phy(physid,"psrf3",itap,ppsrf3)
     332cym        CALL gr_fi_ecrit(1,klon,iim,jjm+1, ppsrf4, zx_tmp_2d)
     333      CALL histwrite_phy(physid,"psrf4",itap,ppsrf4)
    331334
    332335      if (ok_sync) call histsync(physid)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/phytrac.F

    r633 r634  
    6464
    6565      USE ioipsl
    66 
     66      USE dimphy
     67      USE comgeomphy
     68      USE iophy
     69#ifdef CPP_PARALLEL
     70      USE vampir
     71#endif
    6772#ifdef INCA
    6873      USE sflx
    … …  
    7681#ifdef INCA_AER
    7782      USE AEROSOL_MOD, only : ntr,trmx,trnx
     83cym      USE AEROSOL_DIAG, only : cla,las,tausum,angst,aload,scon
     84cym     .                            ,scavcoef_st,scavcoef_cv
     85cym      USE AEROSOL_PROGNOS, ONLY : md
    7886      USE AEROSOL_DIAG,only : cla,las,tausum,angst,aload,cload,totaerh2o,tau,
    7987     $  emiss20,sconc,scavcoef_st,scavcoef_cv
    … …  
    103111#include "YOMCST.h"
    104112#include "dimensions.h"
    105 #include "dimphy.h"
     113cym#include "dimphy.h"
    106114#include "indicesol.h"
    107115#include "temps.h"
    108116#include "paramet.h"
    109117#include "control.h"
    110 #include "comgeomphy.h"
     118cym#include "comgeomphy.h"
    111119#include "advtrac.h"
    112120c======================================================================
    … …  
    225233cAA ................................................
    226234 
    227       REAL trs(klon,nbtr)    ! Conc. radon ds le sol
    228       SAVE trs
    229 
    230       REAL masktr(klon,nbtr) ! Masque reservoir de sol traceur
     235      REAL,save,allocatable :: trs(:,:)    ! Conc. radon ds le sol
     236cym      SAVE trs
     237      REAL :: trs_tmp(klon2)
     238     
     239      REAL,save,allocatable :: masktr(:,:) ! Masque reservoir de sol traceur
    231240c                            Masque de l'echange avec la surface
    232241c                           (1 = reservoir) ou (possible => 1 )
    233       SAVE masktr
    234       REAL fshtr(klon,nbtr)  ! Flux surfacique dans le reservoir de sol
    235       SAVE fshtr
    236       REAL hsoltr(nbtr)      ! Epaisseur equivalente du reservoir de sol
    237       SAVE hsoltr
    238       REAL tautr(nbtr)       ! Constante de decroissance radioactive
    239       SAVE tautr
    240       REAL vdeptr(nbtr)      ! Vitesse de depot sec dans la couche Brownienne
    241       SAVE vdeptr
    242       REAL scavtr(nbtr)      ! Coefficient de lessivage
    243       SAVE scavtr
     242cym      SAVE masktr
     243      REAL,save,allocatable :: fshtr(:,:)  ! Flux surfacique dans le reservoir de sol
     244cym      SAVE fshtr
     245      REAL,save,allocatable :: hsoltr(:)      ! Epaisseur equivalente du reservoir de sol
     246cym      SAVE hsoltr
     247      REAL,save,allocatable :: tautr(:)       ! Constante de decroissance radioactive
     248cym      SAVE tautr
     249      REAL,save,allocatable :: vdeptr(:)      ! Vitesse de depot sec dans la couche Brownienne
     250cym      SAVE vdeptr
     251      REAL,save,allocatable :: scavtr(:)      ! Coefficient de lessivage
     252cym      SAVE scavtr
    244253cAA
    245254      CHARACTER*2 itn
    … …  
    273282C nature du traceur
    274283c
    275       logical aerosol(nbtr)  ! Nature du traceur
     284      logical,save,allocatable :: aerosol(:)  ! Nature du traceur
    276285c                            ! aerosol(it) = true  => aerosol
    277286c                            ! aerosol(it) = false => gaz
    278287c                            ! nat_trac(it) = 1. aerosol
    279       logical clsol(nbtr)    ! clsol(it) = true => CL sol calculee
    280       logical radio(nbtr)    ! radio(it)=true => decroisssance radioactive
    281       save aerosol,clsol,radio
     288      logical,save,allocatable :: clsol(:)    ! clsol(it) = true => CL sol calculee
     289      logical,save,allocatable :: radio(:)    ! radio(it)=true => decroisssance radioactive
     290cym      save aerosol,clsol,radio
    282291C
    283292c======================================================================
    … …  
    298307      REAL d_tr(klon,klev), d_trs(klon) ! tendances de traceurs
    299308      REAL d_tr_cl(klon,klev,nbtr) ! tendance de traceurs  couche limite
    300       REAL d_tr_cv(klon,klev,nbtr) ! tendance de traceurs  conv pour chq traceur
     309      REAL d_tr_cli(klon,klev,nbtr) ! tendance de traceurs  CL pour chq traceur
     310      REAL d_tr_cv(klon,klev,nbtr) ! tendance de traceurs  convection
     311      REAL d_tr_cvi(klon,klev,nbtr) ! tendance de traceurs  conv pour chq traceur
    301312      REAL d_tr_th(klon,klev,nbtr) ! la tendance des thermiques
    302313      REAL d_tr_dec(klon,klev,nbtr) ! la tendance de la decroissance
    … …  
    367378#endif
    368379     .                                         /)
    369 
    370 
    371       REAL, PARAMETER   :: dry_mass = 28.966
    372       REAL, POINTER     :: hbuf(:)
    373       REAL, ALLOCATABLE :: obuf(:)
    374       REAL              :: calday
    375       REAL              :: pdel(klon,klev)
    376       REAL              :: dummy(klon,klev) = 0.
    377 #endif
    378 #ifdef INCA_AER
    379       integer la
     380      dummy(:,:)=0.
    380381#endif
    381382c
    … …  
    386387
    387388         if (debutphy) then
     389           allocate( trs(klon,nbtr) ) 
     390           allocate( masktr(klon,nbtr))
     391           allocate( fshtr(klon,nbtr) )
     392           allocate( hsoltr(nbtr))
     393           allocate( tautr(nbtr))
     394           allocate( vdeptr(nbtr))
     395           allocate( scavtr(nbtr))
     396           allocate( aerosol(nbtr))
     397           allocate( clsol(nbtr))
     398           allocate( radio(nbtr))
    388399
    389400          ecrit_tra = NINT(86400./pdtphys *ecritphy)
    … …  
    416427c        print*,'valeur de debut dans phytrac :',debutphy
    417428         trs(:,:) = 0.
    418 
    419          open (99,file='starttrac',status='old',
     429         
     430       if (phy_rank==0) then
     431         trs_tmp(:)=0.
     432         open (99,file='starttrac',status='old',
    420433     .         err=999,form='formatted')
    421          read(99,*) (trs(i,1),i=1,klon)
     434         read(99,*) (trs_tmp(i),i=1,klon2)
    422435999      close(99)
     436       endif
     437       call ScatterField(trs_tmp,trs(:,1),1)
    423438c         print*, 'apres starttrac'
    424439
    … …  
    451466      endif
    452467#ifdef INCA
     468      call VTe(VTphysiq)
     469      call VTb(VTinca)
    453470!======================================================================
    454471!     Chimie
    … …  
    539556      END DO
    540557#endif
     558      call VTe(VTinca)
     559      call VTb(VTphysiq)
    541560#else
    542561
    … …  
    861880      if (lafin) then
    862881         print*, 'c est la fin de la physique'
    863          open (99,file='restarttrac',  form='formatted')
    864          do i=1,klon
    865              write(99,*) trs(i,1)
    866          enddo
    867          PRINT*, 'Ecriture du fichier restarttrac'
    868          close(99)
     882         
     883         call GatherField(trs(:,1),trs_tmp,1)
     884         if (phy_rank==0) then
     885         
     886           open (99,file='restarttrac',  form='formatted')
     887           do i=1,klon
     888               write(99,*) trs_tmp(i)
     889           enddo
     890           PRINT*, 'Ecriture du fichier restarttrac'
     891           close(99)
     892         endif
    869893      else
    870894         print*, 'physique pas fini'

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/raddim.h

    r633 r634  
    11!
    2 ! $Header $
     2! $Header$
    33!
    44      INTEGER kdlon, kflev
    5       PARAMETER (kdlon=klon,kflev=klev)
     5      PARAMETER (kdlon=149,kflev=klev)

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/radiornpb.F

    r524 r634  
    33!
    44      SUBROUTINE radiornpb(tr,dtime,tautr,d_tr)
     5      USE dimphy
    56      IMPLICIT none
    67c======================================================================
    … …  
    1213c Arguments:
    1314c======================================================================
    14 #include "dimensions.h"
    15 #include "dimphy.h"
     15cym#include "dimensions.h"
     16cym#include "dimphy.h"
    1617c======================================================================
    1718C

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/radlwsw.F

    r633 r634  
    1616     .                  cldtaupi, topswai, solswai)
    1717c     
     18      USE dimphy
    1819      IMPLICIT none
    1920c======================================================================
    … …  
    6970     
    7071c======================================================================
    71 #include "dimensions.h"
    72 #include "dimphy.h"
    73 #include "raddim.h"
     72cym#include "dimensions.h"
     73cym#include "dimphy.h"
     74cym#include "raddim.h"
    7475#include "YOETHF.h"
    7576c
    … …  
    428429     S              PTOPSWAD,PSOLSWAD,PTOPSWAI,PSOLSWAI,
    429430     J              ok_ade, ok_aie )
    430      
     431      USE dimphy     
    431432      IMPLICIT none
    432433
    433 #include "dimensions.h"
    434 #include "dimphy.h"
    435 #include "raddim.h"
     434cym#include "dimensions.h"
     435cym#include "dimphy.h"
     436cym#include "raddim.h"
    436437#include "YOMCST.h"
    437438C
    … …  
    547548      REAL*8 PSOLSWAI(KDLON)     ! SHORTWAVE FLUX AT SURFACE(+AEROSOL IND)
    548549cjq - Fluxes including aerosol effects
    549       REAL*8 ZFSUPAD(KDLON,KFLEV+1)
    550       REAL*8 ZFSDNAD(KDLON,KFLEV+1)
    551       REAL*8 ZFSUPAI(KDLON,KFLEV+1)
    552       REAL*8 ZFSDNAI(KDLON,KFLEV+1)
     550      REAL*8,allocatable,save :: ZFSUPAD(:,:)
     551      REAL*8,allocatable,save :: ZFSDNAD(:,:)
     552      REAL*8,allocatable,save :: ZFSUPAI(:,:)
     553      REAL*8,allocatable,save :: ZFSDNAI(:,:)
    553554      logical initialized
    554       SAVE ZFSUPAD, ZFSDNAD, ZFSUPAI, ZFSDNAI ! aerosol fluxes
     555cym      SAVE ZFSUPAD, ZFSDNAD, ZFSUPAI, ZFSDNAI ! aerosol fluxes
    555556!rv
    556557      save flag_aer
    … …  
    560561        flag_aer=0.
    561562        initialized=.TRUE.
     563        allocate(ZFSUPAD(KDLON,KFLEV+1))
     564        allocate(ZFSDNAD(KDLON,KFLEV+1))
     565        allocate(ZFSUPAI(KDLON,KFLEV+1))
     566        allocate(ZFSDNAI(KDLON,KFLEV+1))
     567        ZFSUPAD(:,:)=0.
     568        ZFSDNAD(:,:)=0.
     569        ZFSUPAI(:,:)=0.
     570        ZFSDNAI(:,:)=0.
     571       
    562572      endif
    563573!rv
    … …  
    735745     S                PTAVE,PWV,PAKI,PCLD,PCLEAR,PDSIG,PFACT,
    736746     S                PRMU,PSEC,PUD)
     747      USE dimphy
    737748      IMPLICIT none
    738 #include "dimensions.h"
    739 #include "dimphy.h"
    740 #include "raddim.h"
     749cym#include "dimensions.h"
     750cym#include "dimphy.h"
     751cym#include "raddim.h"
    741752#include "radepsi.h"
    742753#include "radopt.h"
    … …  
    925936     S  ,  PDSIG , POMEGA, POZ  , PRMU , PSEC , PTAU  , PUD 
    926937     S  ,  PFD   , PFU)
     938      USE dimphy
    927939      IMPLICIT none
    928 #include "dimensions.h"
    929 #include "dimphy.h"
    930 #include "raddim.h"
     940cym#include "dimensions.h"
     941cym#include "dimphy.h"
     942cym#include "raddim.h"
    931943C
    932944C     ------------------------------------------------------------------
    … …  
    11651177     S  ,  PUD   ,PWV , PQS
    11661178     S  ,  PFDOWN,PFUP                                            )
     1179      USE dimphy
    11671180      IMPLICIT none
    1168 #include "dimensions.h"
    1169 #include "dimphy.h"
    1170 #include "raddim.h"
     1181cym#include "dimensions.h"
     1182cym#include "dimphy.h"
     1183cym#include "raddim.h"
    11711184#include "radepsi.h"
    11721185C
    … …  
    17111724     S  , PCGAZ , PPIZAZ, PRAY1 , PRAY2 , PREFZ , PRJ 
    17121725     S  , PRK   , PRMU0 , PTAUAZ, PTRA1 , PTRA2                   )
     1726      USE dimphy
    17131727      IMPLICIT none
    1714 #include "dimensions.h"
    1715 #include "dimphy.h"
    1716 #include "raddim.h"
     1728cym#include "dimensions.h"
     1729cym#include "dimphy.h"
     1730cym#include "raddim.h"
    17171731#include "radepsi.h"
    17181732#include "radopt.h"
    … …  
    20712085     S  , PCGAZ , PPIZAZ, PRAY1, PRAY2, PREFZ , PRJ  , PRK , PRMUE
    20722086     S  , PTAUAZ, PTRA1 , PTRA2 )
     2087      USE dimphy
    20732088      IMPLICIT none
    2074 #include "dimensions.h"
    2075 #include "dimphy.h"
    2076 #include "raddim.h"
     2089cym#include "dimensions.h"
     2090cym#include "dimphy.h"
     2091cym#include "raddim.h"
    20772092#include "radepsi.h"
    20782093#include "radopt.h"
    … …  
    24272442      SUBROUTINE SWDE (PGG,PREF,PRMUZ,PTO1,PW,
    24282443     S                 PRE1,PRE2,PTR1,PTR2)
     2444      USE dimphy
    24292445      IMPLICIT none
    2430 #include "dimensions.h"
    2431 #include "dimphy.h"
    2432 #include "raddim.h"
     2446cym#include "dimensions.h"
     2447cym#include "dimphy.h"
     2448cym#include "raddim.h"
    24332449C
    24342450C     ------------------------------------------------------------------
    … …  
    25582574      END
    25592575      SUBROUTINE SWTT (KNU,KA,PU,PTR)
     2576      USE dimphy
    25602577      IMPLICIT none
    2561 #include "dimensions.h"
    2562 #include "dimphy.h"
    2563 #include "raddim.h"
     2578cym#include "dimensions.h"
     2579cym#include "dimphy.h"
     2580cym#include "raddim.h"
    25642581C
    25652582C-----------------------------------------------------------------------
    … …  
    26742691      END
    26752692      SUBROUTINE SWTT1(KNU,KABS,KIND, PU, PTR)
     2693      USE dimphy
    26762694      IMPLICIT none
    2677 #include "dimensions.h"
    2678 #include "dimphy.h"
    2679 #include "raddim.h"
     2695cym#include "dimensions.h"
     2696cym#include "dimphy.h"
     2697cym#include "raddim.h"
    26802698C
    26812699C-----------------------------------------------------------------------
    … …  
    28062824cIM  .              ptoplwdown,ptoplwdownclr)
    28072825     .              plwup, plwdn, plwup0, plwdn0)
     2826      USE dimphy
    28082827      IMPLICIT none
    2809 #include "dimensions.h"
    2810 #include "dimphy.h"
    2811 #include "raddim.h"
     2828cym#include "dimensions.h"
     2829cym#include "dimphy.h"
     2830cym#include "raddim.h"
    28122831#include "raddimlw.h"
    28132832#include "YOMCST.h"
    … …  
    28842903      REAL*8 ZOZ(KDLON,KFLEV)
    28852904c
    2886       REAL*8 ZFLUX(KDLON,2,KFLEV+1) ! RADIATIVE FLUXES (1:up; 2:down)
    2887       REAL*8 ZFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
    2888       REAL*8 ZBINT(KDLON,KFLEV+1)            ! Intermediate variable
    2889       REAL*8 ZBSUI(KDLON)                    ! Intermediate variable
    2890       REAL*8 ZCTS(KDLON,KFLEV)               ! Intermediate variable
    2891       REAL*8 ZCNTRB(KDLON,KFLEV+1,KFLEV+1)   ! Intermediate variable
    2892       SAVE ZFLUX, ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB
     2905cym      REAL*8 ZFLUX(KDLON,2,KFLEV+1) ! RADIATIVE FLUXES (1:up; 2:down)
     2906cym      REAL*8 ZFLUC(KDLON,2,KFLEV+1) ! CLEAR-SKY RADIATIVE FLUXES
     2907cym      REAL*8 ZBINT(KDLON,KFLEV+1)            ! Intermediate variable
     2908cym      REAL*8 ZBSUI(KDLON)                    ! Intermediate variable
     2909cym      REAL*8,ZCTS(KDLON,KFLEV)               ! Intermediate variable
     2910cym      REAL*8 ZCNTRB(KDLON,KFLEV+1,KFLEV+1)   ! Intermediate variable
     2911cym      SAVE ZFLUX, ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB
     2912      REAL*8,allocatable,save :: ZFLUX(:,:,:) ! RADIATIVE FLUXES (1:up; 2:down)
     2913      REAL*8,allocatable,save :: ZFLUC(:,:,:) ! CLEAR-SKY RADIATIVE FLUXES
     2914      REAL*8,allocatable,save :: ZBINT(:,:)            ! Intermediate variable
     2915      REAL*8,allocatable,save :: ZBSUI(:)                    ! Intermediate variable
     2916      REAL*8,allocatable,save :: ZCTS(:,:)               ! Intermediate variable
     2917      REAL*8,allocatable,save :: ZCNTRB(:,:,:)   ! Intermediate variable
    28932918c
    28942919      INTEGER ilim, i, k, kpl1
    … …  
    29092934         PRINT*, "LW cloudy-sky calling frequency: ", lwpas
    29102935         PRINT*, "   In general, they should be 1"
     2936cym
     2937         allocate(ZFLUX(KDLON,2,KFLEV+1) )
     2938         allocate(ZFLUC(KDLON,2,KFLEV+1) )
     2939         allocate(ZBINT(KDLON,KFLEV+1))
     2940         allocate(ZBSUI(KDLON))
     2941         allocate(ZCTS(KDLON,KFLEV))
     2942         allocate(ZCNTRB(KDLON,KFLEV+1,KFLEV+1))
    29112943         appel1er=.FALSE.
    29122944      ENDIF
    … …  
    29733005     S               PAER,PDP,PPMB,PPSOL,POZ,PTAVE,PVIEW,PWV,
    29743006     S               PABCU)
     3007      USE dimphy
    29753008      IMPLICIT none
    2976 #include "dimensions.h"
    2977 #include "dimphy.h"
    2978 #include "raddim.h"
     3009cym#include "dimensions.h"
     3010cym#include "dimphy.h"
     3011cym#include "raddim.h"
    29793012#include "raddimlw.h"
    29803013#include "YOMCST.h"
    … …  
    33663399      SUBROUTINE LWBV(KLIM,PDP,PDT0,PEMIS,PPMB,PTL,PTAVE,PABCU,
    33673400     S                PFLUC,PBINT,PBSUI,PCTS,PCNTRB)
     3401      USE dimphy
    33683402      IMPLICIT none
    3369 #include "dimensions.h"
    3370 #include "dimphy.h"
    3371 #include "raddim.h"
     3403cym#include "dimensions.h"
     3404cym#include "dimphy.h"
     3405cym#include "raddim.h"
    33723406#include "raddimlw.h"
    33733407#include "YOMCST.h"
    … …  
    34573491     R               PBINT,PBSUIN,PCTS,PCNTRB,
    34583492     S               PFLUX)
     3493      USE dimphy
    34593494      IMPLICIT none
    3460 #include "dimensions.h"
    3461 #include "dimphy.h"
    3462 #include "raddim.h"
     3495cym#include "dimensions.h"
     3496cym#include "dimphy.h"
     3497cym#include "raddim.h"
    34633498#include "radepsi.h"
    34643499#include "radopt.h"
    … …  
    38623897     S  , PB,PBINT,PBSUIN,PBSUR,PBTOP,PDBSL
    38633898     S  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP)
     3899      USE dimphy
    38643900      IMPLICIT none
    3865 #include "dimensions.h"
    3866 #include "dimphy.h"
    3867 #include "raddim.h"
     3901cym#include "dimensions.h"
     3902cym#include "dimphy.h"
     3903cym#include "raddim.h"
    38683904#include "raddimlw.h"
    38693905C
    … …  
    52735309     R  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP
    52745310     S  , PCNTRB,PCTS,PFLUC)
     5311       USE dimphy
    52755312      IMPLICIT none
    5276 #include "dimensions.h"
    5277 #include "dimphy.h"
    5278 #include "raddim.h"
     5313cym#include "dimensions.h"
     5314cym#include "dimphy.h"
     5315cym#include "raddim.h"
    52795316#include "raddimlw.h"
    52805317#include "YOMCST.h"
    … …  
    53865423     R  , PGA,PGB,PGASUR,PGBSUR,PGATOP,PGBTOP
    53875424     S  , PCTS,PFLUC)
     5425       USE dimphy
    53885426      IMPLICIT none
    5389 #include "dimensions.h"
    5390 #include "dimphy.h"
    5391 #include "raddim.h"
     5427cym#include "dimensions.h"
     5428cym#include "dimphy.h"
     5429cym#include "raddim.h"
    53925430#include "raddimlw.h"
    53935431#include "radopt.h"
    … …  
    57185756     R  , PGA,PGB
    57195757     S  , PCNTRB,PDISD,PDISU)
     5758      USE dimphy
    57205759      IMPLICIT none
    5721 #include "dimensions.h"
    5722 #include "dimphy.h"
    5723 #include "raddim.h"
     5760cym#include "dimensions.h"
     5761cym#include "dimphy.h"
     5762cym#include "raddim.h"
    57245763#include "raddimlw.h"
    57255764C
    … …  
    59706009     R  , PABCU,PDBSL,PGA,PGB
    59716010     S  , PADJD,PADJU,PCNTRB,PDBDT)
     6011       USE dimphy
    59726012      IMPLICIT none
    5973 #include "dimensions.h"
    5974 #include "dimphy.h"
    5975 #include "raddim.h"
     6013cym#include "dimensions.h"
     6014cym#include "dimphy.h"
     6015cym#include "raddim.h"
    59766016#include "raddimlw.h"
    59776017C
    … …  
    61776217      END
    61786218      SUBROUTINE LWTT(PGA,PGB,PUU, PTT)
     6219       USE dimphy
    61796220      IMPLICIT none
    6180 #include "dimensions.h"
    6181 #include "dimphy.h"
    6182 #include "raddim.h"
     6221cym#include "dimensions.h"
     6222cym#include "dimphy.h"
     6223cym#include "raddim.h"
    61836224#include "raddimlw.h"
    61846225C
    … …  
    63526393      END
    63536394      SUBROUTINE LWTTM(PGA,PGB,PUU1,PUU2, PTT)
     6395      USE dimphy
    63546396      IMPLICIT none
    6355 #include "dimensions.h"
    6356 #include "dimphy.h"
    6357 #include "raddim.h"
     6397cym#include "dimensions.h"
     6398cym#include "dimphy.h"
     6399cym#include "raddim.h"
    63586400#include "raddimlw.h"
    63596401C

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/readsulfate.F

    r524 r634  
    22! $Header$
    33!
    4       SUBROUTINE readsulfate (r_day, first, sulfate)
    5      
     4      SUBROUTINE readsulfate (r_day, first, sulfate_p)
     5      USE dimphy, klon=>klon2,klon2=>klon
    66      IMPLICIT none
    77     
    … …  
    3434#include "chem.h"     
    3535#include "dimensions.h"     
    36 #include "dimphy.h"     
     36cym#include "dimphy.h"     
    3737#include "temps.h"     
    3838c
    3939c Input:
    4040c ------
    41       REAL*8  r_day                   ! Day of integration
     41      REAL  r_day                   ! Day of integration
    4242      LOGICAL first                 ! First timestep
    4343                                    ! (and therefore initialization necessary)
    … …  
    4545c Output:     
    4646c -------     
    47       REAL*8  sulfate (klon, klev)  ! Mass of sulfate (monthly mean data,
    48                                   !  from file) [ug SO4/m3]
    49 c     
     47c$$$      REAL*8  sulfate_p(klon2,klev)
     48c$$$      REAL*8  sulfate (klon, klev)  ! Mass of sulfate (monthly mean data,
     49c$$$                                  !  from file) [ug SO4/m3]
     50      REAL  sulfate_p(klon2,klev)
     51      REAL  sulfate (klon, klev)  ! Mass of sulfate (monthly mean data,
     52                                  !  from file) [ug SO4/m3]c     
    5053c Local Variables:
    5154c ----------------     
    … …  
    6265      REAL*8 so4_2(iim, jjm+1, klev, 12)   ! The sulfate distributions
    6366     
    64       REAL*8 so4(klon, klev, 12)  ! SO4 in right dimension
    65       SAVE so4
    66       REAL*8 so4_out(klon, klev)
    67       SAVE so4_out
     67cym      REAL*8 so4(klon, klev, 12)  ! SO4 in right dimension
     68cym      SAVE so4
     69cym      REAL*8 so4_out(klon, klev)
     70cym      SAVE so4_out
     71
     72      REAL*8,allocatable,save :: so4(:, :, :)  ! SO4 in right dimension
     73      REAL*8,allocatable,save :: so4_out(:, :)
    6874     
    6975      LOGICAL lnewday
    7076      LOGICAL lonlyone
    7177      PARAMETER (lonlyone=.FALSE.)
    72 
     78      logical,save :: first2=.true.
     79
     80      if (first2) then
     81     
     82        allocate( so4(klon, klev, 12) )
     83        allocate( so4_out(klon, klev))
     84         
     85        first2=.false.
     86       
     87      endif
     88
     89      if (phy_rank==0) then
     90           
    7391      iday = INT(r_day)
    7492     
    … …  
    249267
    250268      ENDIF ! Did I have to do anything (was it a new day?)
    251      
     269
     270      endif   ! phy_rank==0
     271     
     272      call ScatterField(sulfate,sulfate_p,klev)
     273           
    252274      RETURN
    253275      END
    … …  
    261283c-----------------------------------------------------------------------------
    262284     
    263       SUBROUTINE readsulfate_preind (r_day, first, pi_sulfate)
    264      
     285      SUBROUTINE readsulfate_preind (r_day, first, pi_sulfate_p)
     286      USE dimphy, klon=>klon2,klon2=>klon
    265287      IMPLICIT none
    266288     
    … …  
    289311#include "chem.h"     
    290312#include "dimensions.h"     
    291 #include "dimphy.h"     
     313cym#include "dimphy.h"     
    292314#include "temps.h"     
    293315c
    294316c Input:
    295317c ------
    296       REAL*8 r_day                   ! Day of integration
     318      REAL r_day                   ! Day of integration
    297319      LOGICAL first                 ! First timestep
    298320                                    ! (and therefore initialization necessary)
    … …  
    300322c Output:     
    301323c -------     
    302       REAL*8  pi_sulfate (klon, klev)  ! Number conc. sulfate (monthly mean data,
    303                                   !  from file)
     324      REAL pi_sulfate_p (klon2, klev) 
     325      REAL pi_sulfate (klon, klev)  ! Number conc. sulfate
     326                                       ! (monthly mean data,
    304327c     
    305328c Local Variables:
    … …  
    311334      INTEGER im, day1, day2, im2, ismaller
    312335      REAL*8 pi_so4_1(iim, jjm+1, klev, 12)
    313      
    314       REAL*8 pi_so4(klon, klev, 12)  ! SO4 in right dimension
    315       SAVE pi_so4
    316       REAL*8 pi_so4_out(klon, klev)
    317       SAVE pi_so4_out
     336
     337cym      REAL*8 pi_so4(klon, klev, 12)  ! SO4 in right dimension
     338cym      SAVE pi_so4
     339cym      REAL*8 pi_so4_out(klon, klev)
     340cym      SAVE pi_so4_out
     341
     342      REAL*8,allocatable,save :: pi_so4(:, :, :)  ! SO4 in right dimension
     343      REAL*8,allocatable,save :: pi_so4_out(:, :)
     344           
    318345     
    319346      CHARACTER*4 cyear
    320347      LOGICAL lnewday
    321 
     348      logical,save :: first2=.true.
     349
     350      if (first2) then
     351     
     352        allocate( pi_so4(klon, klev, 12) )
     353        allocate( pi_so4_out(klon, klev))
     354         
     355        first2=.false.
     356       
     357      endif
     358
     359      if (phy_rank==0) then
     360   
    322361     
    323362
    … …  
    463502
    464503      ENDIF ! Was this the beginning of a new day?
     504
     505      endif   ! phy_rank==0
     506     
     507      call ScatterField(pi_sulfate,pi_sulfate_p,klev)
     508
     509
    465510      RETURN
    466511      END

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/soil.F

    r524 r634  
    44      SUBROUTINE soil(ptimestep, indice, knon, snow, ptsrf, ptsoil,
    55     s          pcapcal, pfluxgrd)
     6      use dimphy
    67      IMPLICIT NONE
    78
    … …  
    4950c   -------------
    5051
    51 #include "dimensions.h"
     52cym#include "dimensions.h"
    5253#include "YOMCST.h"
    53 #include "dimphy.h"
     54cym#include "dimphy.h"
    5455#include "dimsoil.h"
    5556#include "indicesol.h"
    … …  
    7879      REAL dz1(nsoilmx),dz2(nsoilmx)
    7980c$$$          REAL zc(klon,nsoilmx),zd(klon,nsoilmx)
    80       REAL zc(klon,nsoilmx,nbsrf),zd(klon,nsoilmx,nbsrf)
     81cym      REAL zc(klon,nsoilmx,nbsrf),zd(klon,nsoilmx,nbsrf)
     82      REAL,ALLOCATABLE,SAVE ::  zc(:,:,:),zd(:,:,:)
    8183      REAL lambda
    82       SAVE dz1,dz2,zc,zd,lambda
     84cym      SAVE dz1,dz2,zc,zd,lambda
     85      SAVE dz1,dz2,lambda
    8386      LOGICAL firstcall, firstsurf(nbsrf)
    8487      SAVE firstcall, firstsurf
    … …  
    9093
    9194      DATA isol,isno,iice/2000.,2000.,2000./
    92 
     95      LOGICAL,SAVE :: First=.true.
    9396c-----------------------------------------------------------------------
    9497c   Depthts:
    … …  
    103106c   on corrige si on a un point de terre avec ou sans glace
    104107c
     108      IF (first) THEN
     109        allocate(zc(klon,nsoilmx,nbsrf),zd(klon,nsoilmx,nbsrf))
     110        first=.false.
     111      ENDIF
     112     
    105113      IF (indice.EQ.is_sic) THEN
    106114         DO ig = 1, knon

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/thermcell.F

    r633 r634  
    66c    s                  ,pu_therm,pv_therm
    77     s                  ,r_aspect,l_mix,w2di,tho)
    8 
     8      USE dimphy
    99      IMPLICIT NONE
    1010
    … …  
    3333c   -------------
    3434
    35 #include "dimensions.h"
    36 #include "dimphy.h"
     35cym#include "dimensions.h"
     36cym#include "dimphy.h"
    3737#include "YOMCST.h"
    3838
    … …  
    8585      real fracc(klon,klev+1)
    8686      real zf,zf2
    87       real thetath2(klon,klev),wth2(klon,klev)
    88       common/comtherm/thetath2,wth2
     87      real,allocatable,save :: thetath2(:,:),wth2(:,:)
     88cym      common/comtherm/thetath2,wth2
    8989
    9090      real count_time
    … …  
    132132      save ncorrec
    133133      data ncorrec/0/
    134      
     134      logical,save :: firstCall=.true.
    135135c
    136136c-----------------------------------------------------------------------
    … …  
    138138c   ---------------
    139139c
     140      if (firstcall) then
     141        allocate(thetath2(klon,klev),wth2(klon,klev))
     142        thetath2(:,:)=0.
     143        wth2(:,:)=0.
     144        firstcall=.false.
     145      endif
     146     
    140147       sorties=.true.
    141148      IF(ngrid.NE.klon) THEN
    … …  
    979986      subroutine dqthermcell(ngrid,nlay,ptimestep,fm,entr,masse
    980987     .    ,q,dq,qa)
     988      use dimphy
    981989      implicit none
    982990
    … …  
    989997c=======================================================================
    990998
    991 #include "dimensions.h"
    992 #include "dimphy.h"
     999cym#include "dimensions.h"
     1000cym#include "dimphy.h"
    9931001
    9941002      integer ngrid,nlay
    … …  
    10531061     .    ,fraca,larga
    10541062     .    ,u,v,du,dv,ua,va)
     1063       use dimphy
    10551064      implicit none
    10561065
    … …  
    10631072c=======================================================================
    10641073
    1065 #include "dimensions.h"
    1066 #include "dimphy.h"
     1074cym#include "dimensions.h"
     1075cym#include "dimphy.h"
    10671076
    10681077      integer ngrid,nlay
    … …  
    11661175      subroutine dqthermcell2(ngrid,nlay,ptimestep,fm,entr,masse,frac
    11671176     .    ,q,dq,qa)
     1177      use dimphy
    11681178      implicit none
    11691179
    … …  
    11761186c=======================================================================
    11771187
    1178 #include "dimensions.h"
    1179 #include "dimphy.h"
     1188cym#include "dimensions.h"
     1189cym#include "dimphy.h"
    11801190
    11811191      integer ngrid,nlay
    … …  
    12461256     .    ,fraca,larga
    12471257     .    ,u,v,du,dv,ua,va)
     1258      use dimphy
    12481259      implicit none
    12491260
    … …  
    12561267c=======================================================================
    12571268
    1258 #include "dimensions.h"
    1259 #include "dimphy.h"
     1269cym#include "dimensions.h"
     1270cym#include "dimphy.h"
    12601271
    12611272      integer ngrid,nlay

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/transp.F

    r524 r634  
    55     e                   t, q, u, v, geom,
    66     s                   vtran_e, vtran_q, utran_e, utran_q)
    7 c
     7c
     8       USE dimphy
    89      IMPLICIT none
    910c======================================================================
    … …  
    1314c======================================================================
    1415c
    15 #include "dimensions.h"
    16 #include "dimphy.h"
     16cym#include "dimensions.h"
     17cym#include "dimphy.h"
    1718#include "YOMCST.h"
    1819c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/ustarhb.F

    r633 r634  
    33!
    44      SUBROUTINE ustarhb(knon,u,v,cd_m, ustar)
     5      use dimphy
    56      IMPLICIT none
    67c======================================================================
    … …  
    1718c model. J. of Climate, vol. 6, 1825-1842.
    1819c======================================================================
    19 #include "dimensions.h"
    20 #include "dimphy.h"
     20cym#include "dimensions.h"
     21cym#include "dimphy.h"
    2122#include "YOMCST.h"
    2223c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/vdif_kcay.F

    r633 r634  
    55     s   ,zlev,zlay,u,v,teta,cd,q2,q2diag,km,kn,ustar
    66     s   ,l_mix)
     7      use dimphy
    78      IMPLICIT NONE
    89c.......................................................................
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112c.......................................................................
    1213c
    … …  
    195196      PARAMETER (q2min=1.e-5)
    196197      PARAMETER (q2max=1.E+2)
    197       PARAMETER (nlay=klev)
    198       PARAMETER (nlev=klev+1)
     198cym      PARAMETER (nlay=klev)
     199cym      PARAMETER (nlev=klev+1)
    199200c
    200201      PARAMETER (
    … …  
    226227c
    227228c   Initialisation de q2
    228 
     229      nlay=klev
     230      nlev=klev+1
     231       
    229232      call yamada(ngrid,dt,g,rconst,plev,temp
    230233     s   ,zlev,zlay,u,v,teta,cd,q2diag,km,kn,ustar

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/wrgradsfi.F

    r524 r634  
    22! $Header$
    33!
    4       subroutine wrgradsfi(if,nl,fieldfi,name,titlevar)
     4      subroutine wrgradsfi(if,nl,fieldfi_p,name,titlevar)
     5      use dimphy
    56      implicit none
    67
    … …  
    89
    910#include "dimensions.h"
    10 #include "dimphy.h"
     11cym#include "dimphy.h"
    1112
    1213c   arguments
    1314      integer if,nl
    14       real fieldfi(klon,nl)
     15      real fieldfi_p(klon,nl)
     16      real fieldfi(klon2,nl)
    1517      real fielddyn((iim+1)*(jjm+1),llm)
    1618      character*10 name
    … …  
    2426
    2527c     print*,'Transformation pour ',name
    26       call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
     28      call GatherField(fieldfi_p,fieldfi,nl)
     29     
     30      if (phy_rank==0) then
     31        call gr_fi_dyn(nl,klon,iim+1,jjm+1,fieldfi,fielddyn)
    2732c     print*,'Transformation OK '
    28       call wrgrads(if,nl,fielddyn,name,titlevar)
     33        call wrgrads(if,nl,fielddyn,name,titlevar)
    2934c     print*,'Ecriture ok'
    30 
     35      endif
     36     
    3137      return
    3238      end

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histISCCP.h

    r524 r634  
    1111        DO k=1,kmaxm1
    1212         zx_tmp_fi3d(1:klon, 1:lmaxm1)=fq_isccp(1:klon,k,1:lmaxm1)*100.
    13          CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
    14      .                    zx_tmp_3d)
     13cym         CALL gr_fi_ecrit(lmaxm1,klon,iim,jjmp1,zx_tmp_fi3d,
     14cym     .                    zx_tmp_3d)
    1515c
    1616cIM: champ 3d : (lon,lat,pres) pour un tau fixe
    1717c
    18          CALL histwrite(nid_isccp,"cldISCCP_"//taulev(k),itau_w,
    19      .                  zx_tmp_3d,iim*jjmp1*lmaxm1,ndex3d)
     18         CALL histwrite_phy(nid_isccp,"cldISCCP_"//taulev(k),itau_w,
     19     .                  zx_tmp_fi3d)
    2020        ENDDO !k
    2121c
    22         CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:),zx_tmp_2d)
    23         CALL histwrite(nid_isccp,"nsunlit",itau_w,
    24      .                 zx_tmp_2d,iim*jjmp1,ndex2d)
     22cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1,nbsunlit(1,:),zx_tmp_2d)
     23        CALL histwrite_phy(nid_isccp,"nsunlit",itau_w,nbsunlit(1,:))
    2524c
    2625       if (ok_sync) then

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histREGDYN.h

    r524 r634  
    33!
    44      if (ok_regdyn) then
     5     
     6      if (monocpu) then
    57
    68c   Comprendre comment marche el i=nint(zout/zsto)
    … …  
    6668        call histsync(nid_regdyn)
    6769      endif
     70     
     71      endif ! monocpu
    6872
    6973      endif

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histday.h

    r633 r634  
    1414
    1515         i = NINT(zout/zsto)
    16          CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
     16cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
    1717c
    1818      IF(lev_histday.GE.1) THEN
    1919c
    20        CALL histwrite(nid_day,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     20       CALL histwrite_phy(nid_day,"phis",itau_w,pphis)
    2121         varname = 'phis'
    2222         vartitle= 'Surface geop. height'
    … …  
    2424c
    2525         i = NINT(zout/zsto)
    26          CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
    27        CALL histwrite(nid_day,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     26cym         CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
     27       CALL histwrite_phy(nid_day,"aire",itau_w,airephy)
    2828         varname = 'aire'
    2929         vartitle= 'Grid area'
    … …  
    3434      ENDDO
    3535c
    36       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    37       CALL histwrite(nid_day,"contfracATM",itau_w,
    38      $      zx_tmp_2d,iim*jjmp1,ndex2d)
    39 c
    40       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d)
    41       CALL histwrite(nid_day,"contfracOR",itau_w,
    42      $      zx_tmp_2d,iim*jjmp1,ndex2d)
    43 c
    44       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    45       CALL histwrite(nid_day,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    46 C
    47       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
    48       CALL histwrite(nid_day,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     36cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     37      CALL histwrite_phy(nid_day,"contfracATM",itau_w,zx_tmp_fi2d)
     38c
     39cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d)
     40      CALL histwrite_phy(nid_day,"contfracOR",itau_w,
     41     &                   pctsrf_new(:,is_ter))
     42c
     43cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     44      CALL histwrite_phy(nid_day,"tsol",itau_w,zxtsol)
     45C
     46cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
     47      CALL histwrite_phy(nid_day,"t2m",itau_w,zt2m)
    4948c
    5049c   En attendant un eventuel debugage.
    5150
    52       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
    53       CALL histwrite(nid_day,"t2m_min",itau_w,zx_tmp_2d,
    54      .               iim*jjmp1,ndex2d)
    55 c
    56       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
    57       CALL histwrite(nid_day,"t2m_max",itau_w,zx_tmp_2d,
    58      .               iim*jjmp1,ndex2d)
     51cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
     52      CALL histwrite_phy(nid_day,"t2m_min",itau_w,zt2m)
     53c
     54cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
     55      CALL histwrite_phy(nid_day,"t2m_max",itau_w,zt2m)
    5956c
    6057      DO i = 1, klon
    6158         zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
    6259      ENDDO
    63       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    64       CALL histwrite(nid_day,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     60cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     61      CALL histwrite_phy(nid_day,"plul",itau_w,zx_tmp_fi2d)
    6562c
    6663      DO i = 1, klon
    6764         zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
    6865      ENDDO
    69       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    70       CALL histwrite(nid_day,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    71 c
    72       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_lsc,zx_tmp_2d)
    73       CALL histwrite(nid_day,"snowl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     66cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     67      CALL histwrite_phy(nid_day,"pluc",itau_w,zx_tmp_fi2d)
     68c
     69cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_lsc,zx_tmp_2d)
     70      CALL histwrite_phy(nid_day,"snowl",itau_w,snow_lsc)
    7471c
    7572      IF(1.EQ.0) THEN
    76       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_con,zx_tmp_2d)
    77       CALL histwrite(nid_day,"snowc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     73cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_con,zx_tmp_2d)
     74      CALL histwrite_phy(nid_day,"snowc",itau_w,snow_con)
    7875      ENDIF
    7976c
    80       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d)
    81       CALL histwrite(nid_day,"flat",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     77cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfluxlat,zx_tmp_2d)
     78      CALL histwrite_phy(nid_day,"flat",itau_w,zxfluxlat)
    8279c
    8380      DO i = 1, klon
    … …  
    8582      ENDDO
    8683c
    87       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    88       CALL histwrite(nid_day,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    89 c
    90       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zq2m,zx_tmp_2d)
    91       CALL histwrite(nid_day,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    92 c
    93       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zu10m,zx_tmp_2d)
    94       CALL histwrite(nid_day,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,
    95      .               ndex2d)
    96 c
    97       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zv10m,zx_tmp_2d)
    98       CALL histwrite(nid_day,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,
    99      .               ndex2d)
     84cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     85      CALL histwrite_phy(nid_day,"sicf",itau_w,zx_tmp_fi2d)
     86c
     87cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zq2m,zx_tmp_2d)
     88      CALL histwrite_phy(nid_day,"q2m",itau_w,zq2m)
     89c
     90cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zu10m,zx_tmp_2d)
     91      CALL histwrite_phy(nid_day,"u10m",itau_w,zu10m)
     92c
     93cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zv10m,zx_tmp_2d)
     94      CALL histwrite_phy(nid_day,"v10m",itau_w,zv10m)
    10095c
    10196      DO i=1, klon
    10297       zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i))
    10398      ENDDO
    104       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    105       CALL histwrite(nid_day,"wind10m",itau_w,zx_tmp_2d,
    106      $     iim*jjmp1,ndex2d)
    107 c
    108       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    109       CALL histwrite(nid_day,"wind10max",itau_w,zx_tmp_2d,
    110      .               iim*jjmp1,ndex2d)
     99cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)     
     100      CALL histwrite_phy(nid_day,"wind10m",itau_w,zx_tmp_fi2d)
     101c
     102cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     103      CALL histwrite_phy(nid_day,"wind10max",itau_w,zx_tmp_fi2d)
    111104c
    112105      DO i=1, klon
    113106         zx_tmp_fi2d(i) = paprs(i,1)
    114107      ENDDO
    115       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    116       CALL histwrite(nid_day,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     108cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     109      CALL histwrite_phy(nid_day,"psol",itau_w,zx_tmp_fi2d)
    117110c
    118111      DO i=1, klon
    119112         zx_tmp_fi2d(i) = (rain_fall(i) + snow_fall(i))
    120113      ENDDO
    121       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    122       CALL histwrite(nid_day,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    123 c
    124       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    125       CALL histwrite(nid_day,"snowf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    126 c
    127       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    128       CALL histwrite(nid_day,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
    129      .               ndex2d)
    130 c
    131       CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    132       CALL histwrite(nid_day,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    133 c
    134       CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
    135       CALL histwrite(nid_day,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    136 c
    137       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    138       CALL histwrite(nid_day,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    139 c
    140       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    141       CALL histwrite(nid_day,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    142 c
    143       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    144       CALL histwrite(nid_day,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    145 c
    146       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
    147       CALL histwrite(nid_day,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    148 c
    149       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
    150       CALL histwrite(nid_day,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    151 c
    152       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
    153       CALL histwrite(nid_day,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    154 c
    155       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
    156       CALL histwrite(nid_day,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    157 c
    158       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
    159       CALL histwrite(nid_day,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    160 c
    161       CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
    162       CALL histwrite(nid_day,"prw",itau_w,zx_tmp_2d,
    163      .               iim*jjmp1,ndex2d)
     114cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     115      CALL histwrite_phy(nid_day,"precip",itau_w,zx_tmp_fi2d)
     116c
     117cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
     118      CALL histwrite_phy(nid_day,"snowf",itau_w,snow_fall)
     119c
     120cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
     121      CALL histwrite_phy(nid_day,"snow_mass",itau_w,zxsnow)
     122c
     123cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
     124      CALL histwrite_phy(nid_day,"evap",itau_w,evap)
     125c
     126cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
     127      CALL histwrite_phy(nid_day,"tops",itau_w,topsw)
     128c
     129cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
     130      CALL histwrite_phy(nid_day,"topl",itau_w,toplw)
     131c
     132cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
     133      CALL histwrite_phy(nid_day,"sols",itau_w,solsw)
     134c
     135cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
     136      CALL histwrite_phy(nid_day,"soll",itau_w,sollw)
     137c
     138cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
     139      CALL histwrite_phy(nid_day,"cldl",itau_w,cldl)
     140c
     141cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
     142      CALL histwrite_phy(nid_day,"cldm",itau_w,cldm)
     143c
     144cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
     145      CALL histwrite_phy(nid_day,"cldh",itau_w,cldh)
     146c
     147cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
     148      CALL histwrite_phy(nid_day,"cldt",itau_w,cldt)
     149c
     150cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
     151      CALL histwrite_phy(nid_day,"cldq",itau_w,cldq)
     152c
     153cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
     154      CALL histwrite_phy(nid_day,"prw",itau_w,prw)
    164155
    165156c   Ecriture de champs dynamiques sur des niveaux de pression
    166157      DO k=1, nlevENS
    167158c
    168         CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
    169         CALL histwrite(nid_day,"u"//clev(k),itau_w,zx_tmp_2d,
    170      $       iim*jjmp1,ndex2d)
    171 c
    172         CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
    173         CALL histwrite(nid_day,"v"//clev(k),itau_w,zx_tmp_2d,
    174      $       iim*jjmp1,ndex2d)
     159cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
     160        CALL histwrite_phy(nid_day,"u"//clev(k),itau_w,ulev(:,k))
     161c
     162cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
     163        CALL histwrite_phy(nid_day,"v"//clev(k),itau_w,vlev(:,k))
    175164c
    176165      ENDDO !nlevENS
    … …  
    179168      IF(clev(k).EQ."500") THEN
    180169c
    181       CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlev(:,indENS(k)),zx_tmp_2d)
    182       CALL histwrite(nid_day,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     170cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlev(:,indENS(k)),zx_tmp_2d)
     171cym      CALL histwrite_phy(nid_day,"w500",itau_w,wlev(:,indENS(k)))
     172         CALL histwrite_phy(nid_day,"w500",itau_w,wlev(:,k))
     173
    183174c
    184175c     DO i=1, klon
    … …  
    188179c
    189180cBAD  CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,indENS(k)),zx_tmp_2d)
    190       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
    191       CALL histwrite(nid_day,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     181cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
     182      CALL histwrite_phy(nid_day,"phi500",itau_w,philev(:,k))
    192183c
    193184      ENDIF !clev(k).EQ.500
    194185      ENDDO !k=1, nlevENS
    195186c
    196       CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
    197       CALL histwrite(nid_day,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    198 
    199       CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)
    200       CALL histwrite(nid_day,"cape_max",itau_w,zx_tmp_2d,
    201      .               iim*jjmp1,ndex2d)
    202 c
    203       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    204       CALL histwrite(nid_day,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
    205      .               ndex2d)
     187cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
     188      CALL histwrite_phy(nid_day,"slp",itau_w,slp)
     189
     190cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)
     191      CALL histwrite_phy(nid_day,"cape_max",itau_w,cape)
     192c
     193cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
     194      CALL histwrite_phy(nid_day,"solldown",itau_w,sollwdown)
    206195c
    207196      DO i=1, klon
    208197        zx_tmp_fi2d(i)=-1*sens(i)
    209198      ENDDO
    210       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    211       CALL histwrite(nid_day,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     199cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     200      CALL histwrite_phy(nid_day,"sens",itau_w,zx_tmp_fi2d)
    212201c
    213202      zx_tmp_fi2d(1 : klon) = swdn(1 : klon, 1)
    214203
    215       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    216       CALL histwrite(nid_day, "SWdnSFC",itau_w,zx_tmp_2d,
    217      .                               iim*jjmp1,ndex2d)
     204cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     205      CALL histwrite_phy(nid_day, "SWdnSFC",itau_w,zx_tmp_fi2d)
    218206c
    219207      ENDIF !lev_histday.GE.1
    … …  
    221209      IF(lev_histday.GE.2) THEN
    222210c
    223       CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    224       CALL histwrite(nid_day,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    225 c
    226       CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    227       CALL histwrite(nid_day,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     211cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     212      CALL histwrite_phy(nid_day,"bils",itau_w, bils)
     213c
     214cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
     215      CALL histwrite_phy(nid_day,"fder",itau_w,fder)
    228216c
    229217      ENDIF !lev_histday.GE.2
    … …  
    237225c Champs 3D:
    238226c
    239       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    240       CALL histwrite(nid_day,"temp",itau_w,zx_tmp_3d,
    241      .                                   iim*jjmp1*klev,ndex3d)
    242 c
    243       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    244       CALL histwrite(nid_day,"ovap",itau_w,zx_tmp_3d,
    245      .                                   iim*jjmp1*klev,ndex3d)
    246 c
    247       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    248       CALL histwrite(nid_day,"geop",itau_w,zx_tmp_3d,
    249      .                                   iim*jjmp1*klev,ndex3d)
    250 c
    251       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    252       CALL histwrite(nid_day,"vitu",itau_w,zx_tmp_3d,
    253      .                                   iim*jjmp1*klev,ndex3d)
    254 c
    255       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    256       CALL histwrite(nid_day,"vitv",itau_w,zx_tmp_3d,
    257      .                                   iim*jjmp1*klev,ndex3d)
    258 c
    259       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    260       CALL histwrite(nid_day,"vitw",itau_w,zx_tmp_3d,
    261      .                                   iim*jjmp1*klev,ndex3d)
    262 c
    263       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    264       CALL histwrite(nid_day,"pres",itau_w,zx_tmp_3d,
    265      .                                   iim*jjmp1*klev,ndex3d)
     227cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     228      CALL histwrite_phy(nid_day,"temp",itau_w,t_seri)
     229c
     230cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
     231      CALL histwrite_phy(nid_day,"ovap",itau_w,qx(:,:,ivap))
     232c
     233cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     234      CALL histwrite_phy(nid_day,"geop",itau_w,zphi)
     235c
     236cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     237      CALL histwrite_phy(nid_day,"vitu",itau_w,u_seri)
     238c
     239cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     240      CALL histwrite_phy(nid_day,"vitv",itau_w,v_seri)
     241c
     242cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
     243      CALL histwrite_phy(nid_day,"vitw",itau_w,omega)
     244c
     245cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     246      CALL histwrite_phy(nid_day,"pres",itau_w,pplay)
    266247c
    267248      ENDIF !lev_histday.GE.3
    … …  
    276257c=================================================================
    277258      zx_tmp_fi2d(1 : klon) = swup( 1 : klon, klevp1 )
    278       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    279       CALL histwrite(nid_day, "SWupTOA",itau_w,zx_tmp_2d,
    280      .                               iim*jjmp1,ndex2d)
     259cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     260      CALL histwrite_phy(nid_day, "SWupTOA",itau_w,zx_tmp_fi2d)
    281261c
    282262      zx_tmp_fi2d(1 : klon) = swup( 1 : klon, 1 )
    283       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    284       CALL histwrite(nid_day, "SWupSFC",itau_w,zx_tmp_2d,
    285      .                               iim*jjmp1,ndex2d)
     263cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     264      CALL histwrite_phy(nid_day, "SWupSFC",itau_w,zx_tmp_fi2d)
    286265c
    287266      zx_tmp_fi2d(1 : klon) = swdn( 1 : klon, klevp1 )
    288       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    289       CALL histwrite(nid_day, "SWdnTOA",itau_w,zx_tmp_2d,
    290      .                               iim*jjmp1,ndex2d)
     267cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     268      CALL histwrite_phy(nid_day, "SWdnTOA",itau_w,zx_tmp_fi2d)
    291269c
    292270      zx_tmp_fi2d(1 : klon) = swup0( 1 : klon, klevp1 )
    293       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    294       CALL histwrite(nid_day, "SWupTOAclr",itau_w,zx_tmp_2d,
    295      .                               iim*jjmp1,ndex2d)
     271cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     272      CALL histwrite_phy(nid_day, "SWupTOAclr",itau_w,zx_tmp_fi2d)
    296273c
    297274      zx_tmp_fi2d(1 : klon) = swup0( 1 : klon, 1 )
    298       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    299       CALL histwrite(nid_day, "SWupSFCclr",itau_w,zx_tmp_2d,
    300      .                               iim*jjmp1,ndex2d)
     275cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     276      CALL histwrite_phy(nid_day, "SWupSFCclr",itau_w,zx_tmp_fi2d)
    301277c
    302278      zx_tmp_fi2d(1 : klon) = swdn0( 1 : klon, klevp1 )
    303       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    304       CALL histwrite(nid_day, "SWdnTOAclr",itau_w,zx_tmp_2d,
    305      .                               iim*jjmp1,ndex2d)
     279cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     280      CALL histwrite_phy(nid_day, "SWdnTOAclr",itau_w,zx_tmp_fi2d)
    306281c
    307282      zx_tmp_fi2d(1 : klon) = swdn0( 1 : klon, 1 )
    308       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    309       CALL histwrite(nid_day, "SWdnSFCclr",itau_w,zx_tmp_2d,
    310      .                               iim*jjmp1,ndex2d)
     283cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     284      CALL histwrite_phy(nid_day, "SWdnSFCclr",itau_w,zx_tmp_fi2d)
    311285c
    312286      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_ter)
    313       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d ,zx_tmp_2d)
    314       CALL histwrite(nid_day,"tter",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     287cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d ,zx_tmp_2d)
     288      CALL histwrite_phy(nid_day,"tter",itau_w,zx_tmp_fi2d)
    315289c
    316290      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_lic)
    317       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    318       CALL histwrite(nid_day,"tlic",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     291cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     292      CALL histwrite_phy(nid_day,"tlic",itau_w,zx_tmp_fi2d)
    319293c
    320294      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_oce)
    321       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    322       CALL histwrite(nid_day,"toce",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     295cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     296      CALL histwrite_phy(nid_day,"toce",itau_w,zx_tmp_fi2d)
    323297c
    324298      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_sic)
    325       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    326       CALL histwrite(nid_day,"tsic",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     299cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     300      CALL histwrite_phy(nid_day,"tsic",itau_w,zx_tmp_fi2d)
    327301c
    328302      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter)
    329       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    330       CALL histwrite(nid_day,"t2mter",itau_w,zx_tmp_2d,iim*jjmp1,
    331      .               ndex2d)
     303cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     304      CALL histwrite_phy(nid_day,"t2mter",itau_w,zx_tmp_fi2d)
    332305c
    333306      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter)
    334       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    335       CALL histwrite(nid_day,"t2mter_min",itau_w,zx_tmp_2d,
    336      .               iim*jjmp1,ndex2d)
     307cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     308      CALL histwrite_phy(nid_day,"t2mter_min",itau_w,zx_tmp_fi2d)
    337309c
    338310      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_ter)
    339       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    340       CALL histwrite(nid_day,"t2mter_max",itau_w,zx_tmp_2d,
    341      .               iim*jjmp1,ndex2d)
     311cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     312      CALL histwrite_phy(nid_day,"t2mter_max",itau_w,zx_tmp_fi2d)
    342313c
    343314      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_lic)
    344       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    345       CALL histwrite(nid_day,"t2mlic",itau_w,zx_tmp_2d,iim*jjmp1,
    346      .               ndex2d)
     315cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     316      CALL histwrite_phy(nid_day,"t2mlic",itau_w,zx_tmp_fi2d)
    347317c
    348318      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_oce)
    349       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    350       CALL histwrite(nid_day,"t2moce",itau_w,zx_tmp_2d,iim*jjmp1,
    351      .               ndex2d)
     319cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     320      CALL histwrite_phy(nid_day,"t2moce",itau_w,zx_tmp_fi2d)
    352321c
    353322      zx_tmp_fi2d(1 : klon) = t2m(1 : klon, is_sic)
    354       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    355       CALL histwrite(nid_day,"t2msic",itau_w,zx_tmp_2d,iim*jjmp1,
    356      .               ndex2d)
     323cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     324      CALL histwrite_phy(nid_day,"t2msic",itau_w,zx_tmp_fi2d)
    357325c
    358326      zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_ter)
    359       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    360       CALL histwrite(nid_day,"u10mter",itau_w,zx_tmp_2d,iim*jjmp1,
    361      .               ndex2d)
     327cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     328      CALL histwrite_phy(nid_day,"u10mter",itau_w,zx_tmp_fi2d)
    362329c
    363330      zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_ter)
    364       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    365       CALL histwrite(nid_day,"v10mter",itau_w,zx_tmp_2d,iim*jjmp1,
    366      .               ndex2d)
     331cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     332      CALL histwrite_phy(nid_day,"v10mter",itau_w,zx_tmp_fi2d)
    367333c
    368334      zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_lic)
    369       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    370       CALL histwrite(nid_day,"u10mlic",itau_w,zx_tmp_2d,iim*jjmp1,
    371      .               ndex2d)
     335cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     336      CALL histwrite_phy(nid_day,"u10mlic",itau_w,zx_tmp_fi2d)
    372337c
    373338      zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_lic)
    374       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    375       CALL histwrite(nid_day,"v10mlic",itau_w,zx_tmp_2d,iim*jjmp1,
    376      .               ndex2d)
     339cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     340      CALL histwrite_phy(nid_day,"v10mlic",itau_w,zx_tmp_fi2d)
    377341c
    378342      zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_oce)
    379       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    380       CALL histwrite(nid_day,"u10moce",itau_w,zx_tmp_2d,iim*jjmp1,
    381      .               ndex2d)
     343cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     344      CALL histwrite_phy(nid_day,"u10moce",itau_w,zx_tmp_fi2d)
    382345c
    383346      zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_oce)
    384       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    385       CALL histwrite(nid_day,"v10moce",itau_w,zx_tmp_2d,iim*jjmp1,
    386      .               ndex2d)
     347cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     348      CALL histwrite_phy(nid_day,"v10moce",itau_w,zx_tmp_fi2d)
    387349c
    388350      zx_tmp_fi2d(1 : klon) = u10m(1 : klon, is_sic)
    389       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    390       CALL histwrite(nid_day,"u10msic",itau_w,zx_tmp_2d,iim*jjmp1,
    391      .               ndex2d)
     351cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     352      CALL histwrite_phy(nid_day,"u10msic",itau_w,zx_tmp_fi2d)
    392353C
    393354      zx_tmp_fi2d(1 : klon) = v10m(1 : klon, is_sic)
    394       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    395       CALL histwrite(nid_day,"v10msic",itau_w,zx_tmp_2d,iim*jjmp1,
    396      .               ndex2d)
     355cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     356      CALL histwrite_phy(nid_day,"v10msic",itau_w,zx_tmp_fi2d)
    397357C
    398358      DO nsrf = 1, nbsrf
    399359C
    400360        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    401         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    402         CALL histwrite(nid_day,"pourc_"//clnsurf(nsrf),itau_w,
    403      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     361cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     362        CALL histwrite_phy(nid_day,"pourc_"//clnsurf(nsrf),itau_w,
     363     $                     zx_tmp_fi2d)
    404364C
    405365        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    406         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    407         CALL histwrite(nid_day,"tsol_"//clnsurf(nsrf),itau_w,
    408      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     366cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     367        CALL histwrite_phy(nid_day,"tsol_"//clnsurf(nsrf),itau_w,
     368     $                     zx_tmp_fi2d)
    409369C
    410370        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    411         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    412         CALL histwrite(nid_day,"sens_"//clnsurf(nsrf),itau_w,
    413      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     371cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     372        CALL histwrite_phy(nid_day,"sens_"//clnsurf(nsrf),itau_w,
     373     $                     zx_tmp_fi2d)
    414374C 
    415375        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    416         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    417         CALL histwrite(nid_day,"lat_"//clnsurf(nsrf),itau_w,
    418      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     376cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     377        CALL histwrite_phy(nid_day,"lat_"//clnsurf(nsrf),itau_w,
     378     $                     zx_tmp_fi2d)
    419379C
    420380        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    421         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    422         CALL histwrite(nid_day,"taux_"//clnsurf(nsrf),itau_w,
    423      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     381cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     382        CALL histwrite_phy(nid_day,"taux_"//clnsurf(nsrf),itau_w,
     383     $                     zx_tmp_fi2d)
    424384C     
    425385        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    426         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    427         CALL histwrite(nid_day,"tauy_"//clnsurf(nsrf),itau_w,
    428      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     386cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     387        CALL histwrite_phy(nid_day,"tauy_"//clnsurf(nsrf),itau_w,
     388     $                     zx_tmp_fi2d)
    429389C
    430390        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    431         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    432         CALL histwrite(nid_day,"albe_"//clnsurf(nsrf),itau_w,
    433      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     391cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     392        CALL histwrite_phy(nid_day,"albe_"//clnsurf(nsrf),itau_w,
     393     $                     zx_tmp_fi2d)
    434394C
    435395        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    436         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    437         CALL histwrite(nid_day,"rugs_"//clnsurf(nsrf),itau_w,
    438      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     396cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     397        CALL histwrite_phy(nid_day,"rugs_"//clnsurf(nsrf),itau_w,
     398     $                     zx_tmp_fi2d)
    439399C
    440400      END DO 

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histhf.h

    r633 r634  
    2424c     CALL histwrite(nid_hf,"aire",i,zx_tmp_2d,iim*jjmp1,ndex2d)
    2525C
    26       CALL gr_fi_ecrit(1, klon,iim,jjmp1, paire_ter, zx_tmp_2d)
    27       CALL histwrite(nid_hf,"aireTER",itau_w,
    28      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     26cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, paire_ter, zx_tmp_2d)
     27      CALL histwrite_phy(nid_hf,"aireTER",itau_w,paire_ter)
    2928c
    3029      DO i=1, klon
    … …  
    3231      ENDDO
    3332c
    34       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    35       CALL histwrite(nid_hf,"contfracATM",itau_w,
    36      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     33cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     34      CALL histwrite_phy(nid_hf,"contfracATM",itau_w,zx_tmp_fi2d)
    3735c
    38       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d)
    39       CALL histwrite(nid_hf,"contfracOR",itau_w,
    40      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     36cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pctsrf_new(:,is_ter),zx_tmp_2d)
     37      CALL histwrite_phy(nid_hf,"contfracOR",itau_w,
     38     .                   pctsrf_new(:,is_ter))
    4139c
    42       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)
    43       CALL histwrite(nid_hf,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,
    44      .               ndex2d)
     40cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)
     41      CALL histwrite_phy(nid_hf,"t2m",itau_w,zt2m)
    4542c
    46       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)
    47       CALL histwrite(nid_hf,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,
    48      .               ndex2d)
     43cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)
     44      CALL histwrite_phy(nid_hf,"q2m",itau_w,zq2m)
    4945c
    5046      DO i = 1, klon
    5147         zx_tmp_fi2d(i) = paprs(i,1)
    5248      ENDDO
    53       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    54       CALL histwrite(nid_hf,"psol",itau_w,zx_tmp_2d,iim*jjmp1,
    55      .               ndex2d)
     49cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     50      CALL histwrite_phy(nid_hf,"psol",itau_w,zx_tmp_fi2d)
    5651c
    5752      DO i = 1, klon
    5853         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
    5954      ENDDO
    60       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    61       CALL histwrite(nid_hf,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     55cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     56      CALL histwrite_phy(nid_hf,"rain",itau_w,zx_tmp_fi2d)
    6257c
    6358c ENSEMBLES BEG
    64       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    65       CALL histwrite(nid_hf,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     59cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     60      CALL histwrite_phy(nid_hf,"tsol",itau_w,zxtsol)
    6661c
    67       CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
    68       CALL histwrite(nid_hf,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     62cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
     63      CALL histwrite_phy(nid_hf,"slp",itau_w,slp)
    6964c
    70       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)
    71       CALL histwrite(nid_hf,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     65cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)
     66      CALL histwrite_phy(nid_hf,"u10m",itau_w,zu10m)
    7267c
    73       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)
    74       CALL histwrite(nid_hf,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     68cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)
     69      CALL histwrite_phy(nid_hf,"v10m",itau_w,zv10m)
    7570c
    7671      DO i=1, klon
    7772       zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i))
    7873      ENDDO
    79       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    80       CALL histwrite(nid_hf,"wind10m",itau_w,zx_tmp_2d,
    81      $     iim*jjmp1,ndex2d)
     74cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     75      CALL histwrite_phy(nid_hf,"wind10m",itau_w,zx_tmp_fi2d)
    8276c
    8377      DO k=1, nlevENS
    8478      IF(clev(k).EQ."500") THEN
    85       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
    86       CALL histwrite(nid_hf,"phi"//clev(k),itau_w,zx_tmp_2d,
    87      $       iim*jjmp1,ndex2d)
     79cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
     80      CALL histwrite_phy(nid_hf,"phi"//clev(k),itau_w,philev(:,k))
    8881      ENDIF !clev(k).EQ."500"
    8982      ENDDO
    … …  
    9386      IF(lev_histhf.GE.2) THEN
    9487c
    95       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
    96       CALL histwrite(nid_hf,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     88cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
     89      CALL histwrite_phy(nid_hf,"cldt",itau_w,cldt)
    9790c
    9891      zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, is_ter)
    99       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    100       CALL histwrite(nid_hf,"SWnetOR",itau_w,
    101      $     zx_tmp_2d,iim*jjmp1,ndex2d)
     92      CALL histwrite_phy(nid_hf,"SWnetOR",itau_w,zx_tmp_fi2d)
    10293c
    10394      zx_tmp_fi2d(1:klon) = solsw(1:klon)/(1.-albsol(1:klon))
    104       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    105       CALL histwrite(nid_hf,"SWdownOR",itau_w,
    106      $     zx_tmp_2d,iim*jjmp1,ndex2d)
     95      CALL histwrite(nid_hf,"SWdownOR",itau_w,zx_tmp_fi2d)
    10796c
    108       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    109       CALL histwrite(nid_hf,"LWdownOR",itau_w,zx_tmp_2d,iim*jjmp1,
    110      $     ndex2d)
     97      CALL histwrite(nid_hf,"LWdownOR",itau_w,zx_tmp_fi2d)
    11198c
    11299c
    … …  
    117104      DO k=1, nlevENS
    118105c
    119       CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlev(:,k),zx_tmp_2d)
    120       CALL histwrite(nid_hf,"t"//clev(k),itau_w,zx_tmp_2d,
    121      $       iim*jjmp1,ndex2d)
     106cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlev(:,k),zx_tmp_2d)
     107      CALL histwrite_phy(nid_hf,"t"//clev(k),itau_w,tlev(:,k))
    122108c
    123109      IF(clev(k).NE."500") THEN !clev(k).NE."500"
    124       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
    125       CALL histwrite(nid_hf,"phi"//clev(k),itau_w,zx_tmp_2d,
    126      $       iim*jjmp1,ndex2d)
     110cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
     111      CALL histwrite_phy(nid_hf,"phi"//clev(k),itau_w,philev(:,k))
    127112      ENDIF !clev(k).NE."500"
    128113c
    129       CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlev(:,k),zx_tmp_2d)
    130       CALL histwrite(nid_hf,"q"//clev(k),itau_w,zx_tmp_2d,
    131      $       iim*jjmp1,ndex2d)
     114cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlev(:,k),zx_tmp_2d)
     115      CALL histwrite_phy(nid_hf,"q"//clev(k),itau_w,qlev(:,k))
    132116c
    133117      IF(1.EQ.0) THEN
    134       CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlev(:,k),zx_tmp_2d)
    135       CALL histwrite(nid_hf,"rh"//clev(k),itau_w,zx_tmp_2d,
    136      $       iim*jjmp1,ndex2d)
     118cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlev(:,k),zx_tmp_2d)
     119      CALL histwrite_phy(nid_hf,"rh"//clev(k),itau_w,rhlev(:,k))
    137120      ENDIF !1.EQ.0
    138121c
    139       CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
    140       CALL histwrite(nid_hf,"u"//clev(k),itau_w,zx_tmp_2d,
    141      $       iim*jjmp1,ndex2d)
     122cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
     123      CALL histwrite_phy(nid_hf,"u"//clev(k),itau_w,ulev(:,k))
    142124c
    143       CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
    144       CALL histwrite(nid_hf,"v"//clev(k),itau_w,zx_tmp_2d,
    145      $       iim*jjmp1,ndex2d)
     125cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
     126      CALL histwrite_phy(nid_hf,"v"//clev(k),itau_w,vlev(:,k))
    146127c
    147128      ENDDO !nlevENS
    148129c
    149130      IF(1.EQ.0) THEN
    150       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    151       CALL histwrite(nid_hf,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     131cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
     132      CALL histwrite_phy(nid_hf,"cdrm",itau_w,cdragm)
    152133c
    153       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    154       CALL histwrite(nid_hf,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     134cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
     135      CALL histwrite_phy(nid_hf,"cdrh",itau_w,cdragh)
    155136      ENDIF !(1.EQ.0) THEN
    156137c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histhf3d.h

    r524 r634  
    1818c Champs 3D:
    1919c
    20       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    21       CALL histwrite(nid_hf3d,"temp",itau_w,zx_tmp_3d,
    22      .                                   iim*jjmp1*klev,ndex3d)
     20cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     21      CALL histwrite_phy(nid_hf3d,"temp",itau_w,t_seri)
    2322c
    24       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    25       CALL histwrite(nid_hf3d,"ovap",itau_w,zx_tmp_3d,
    26      .                                   iim*jjmp1*klev,ndex3d)
     23cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
     24      CALL histwrite_phy(nid_hf3d,"ovap",itau_w,qx(:,:,ivap))
    2725c
    28       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    29       CALL histwrite(nid_hf3d,"vitu",itau_w,zx_tmp_3d,
    30      .                                   iim*jjmp1*klev,ndex3d)
     26cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     27      CALL histwrite_phy(nid_hf3d,"vitu",itau_w,u_seri)
    3128c
    32       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    33       CALL histwrite(nid_hf3d,"vitv",itau_w,zx_tmp_3d,
    34      .                                   iim*jjmp1*klev,ndex3d)
     29cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     30      CALL histwrite_phy(nid_hf3d,"vitv",itau_w,v_seri)
    3531c
    3632c     ENDIF !lev_histhf.GE.1

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histins.h

    r524 r634  
    1414
    1515         i = NINT(zout/zsto)
    16       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
    17       CALL histwrite(nid_ins,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     16cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
     17      CALL histwrite_phy(nid_ins,"phis",itau_w,pphis)
    1818c
    1919         i = NINT(zout/zsto)
    20       CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
    21       CALL histwrite(nid_ins,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     20cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
     21      CALL histwrite_phy(nid_ins,"aire",itau_w,airephy)
    2222
    2323      DO i = 1, klon
    2424         zx_tmp_fi2d(i) = paprs(i,1)
    2525      ENDDO
    26       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    27       CALL histwrite(nid_ins,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     26cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     27      CALL histwrite_phy(nid_ins,"psol",itau_w,zx_tmp_fi2d)
    2828c
    2929      DO i = 1, klon
    3030         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
    3131      ENDDO
    32       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    33       CALL histwrite(nid_ins,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     32cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     33      CALL histwrite_phy(nid_ins,"precip",itau_w,zx_tmp_fi2d)
    3434c
    3535      DO i = 1, klon
    3636         zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
    3737      ENDDO
    38       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    39       CALL histwrite(nid_ins,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     38cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)   
     39      CALL histwrite_phy(nid_ins,"plul",itau_w,zx_tmp_fi2d)
    4040c
    4141      DO i = 1, klon
    4242         zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
    4343      ENDDO
    44       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    45       CALL histwrite(nid_ins,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     44cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     45      CALL histwrite_phy(nid_ins,"pluc",itau_w,zx_tmp_fi2d)
    4646
    47       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    48       CALL histwrite(nid_ins,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     47cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     48      CALL histwrite_phy(nid_ins,"tsol",itau_w,zxtsol)
    4949cccIM
    50       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
    51       CALL histwrite(nid_ins,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     50cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m, zx_tmp_2d)
     51      CALL histwrite_phy(nid_ins,"t2m",itau_w,zt2m)
    5252c
    53       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
    54       CALL histwrite(nid_ins,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     53cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m, zx_tmp_2d)
     54      CALL histwrite_phy(nid_ins,"q2m",itau_w,zq2m)
    5555c
    56       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
    57       CALL histwrite(nid_ins,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     56cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m, zx_tmp_2d)
     57      CALL histwrite_phy(nid_ins,"u10m",itau_w,zu10m)
    5858C
    59       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
    60       CALL histwrite(nid_ins,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     59cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m, zx_tmp_2d)
     60      CALL histwrite_phy(nid_ins,"v10m",itau_w,zv10m)
    6161c
    62       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    63       CALL histwrite(nid_ins,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     62cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
     63      CALL histwrite_phy(nid_ins,"snow",itau_w,snow_fall)
    6464
    65       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    66       CALL histwrite(nid_ins,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     65cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
     66      CALL histwrite_phy(nid_ins,"cdrm",itau_w,cdragm)
    6767c
    68       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    69       CALL histwrite(nid_ins,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     68cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
     69      CALL histwrite_phy(nid_ins,"cdrh",itau_w,cdragh)
    7070c
    71       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    72       CALL histwrite(nid_ins,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     71cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
     72      CALL histwrite_phy(nid_ins,"topl",itau_w,toplw)
    7373c
    74       CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    75       CALL histwrite(nid_ins,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     74cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
     75      CALL histwrite_phy(nid_ins,"evap",itau_w,evap)
    7676c
    77       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    78       CALL histwrite(nid_ins,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     77cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
     78      CALL histwrite_phy(nid_ins,"sols",itau_w,solsw)
    7979c
    80       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    81       CALL histwrite(nid_ins,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     80cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
     81      CALL histwrite_phy(nid_ins,"soll",itau_w,sollw)
    8282c
    83       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    84       CALL histwrite(nid_ins,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
    85      .                ndex2d)
     83cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
     84      CALL histwrite_phy(nid_ins,"solldown",itau_w,sollwdown)
    8685c
    87       CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    88       CALL histwrite(nid_ins,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     86cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     87      CALL histwrite_phy(nid_ins,"bils",itau_w,bils)
    8988c
    9089      zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
    9190c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    92       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    93       CALL histwrite(nid_ins,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     91cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     92      CALL histwrite_phy(nid_ins,"sens",itau_w,zx_tmp_fi2d)
    9493c
    95       CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    96       CALL histwrite(nid_ins,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     94cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
     95      CALL histwrite_phy(nid_ins,"fder",itau_w,fder)
    9796c
    98       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
    99       CALL histwrite(nid_ins,"dtsvdfo",itau_w,zx_tmp_2d,iim*jjmp1,
    100      .               ndex2d)
     97cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
     98      CALL histwrite_phy(nid_ins,"dtsvdfo",itau_w,d_ts(:,is_oce))
    10199c
    102       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
    103       CALL histwrite(nid_ins,"dtsvdft",itau_w,zx_tmp_2d,iim*jjmp1,
    104      .               ndex2d)
     100cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
     101      CALL histwrite_phy(nid_ins,"dtsvdft",itau_w,d_ts(:,is_ter))
    105102c
    106       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
    107       CALL histwrite(nid_ins,"dtsvdfg",itau_w,zx_tmp_2d,iim*jjmp1,
    108      .               ndex2d)
     103cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
     104      CALL histwrite_phy(nid_ins,"dtsvdfg",itau_w, d_ts(:,is_lic))
    109105c
    110       CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
    111       CALL histwrite(nid_ins,"dtsvdfi",itau_w,zx_tmp_2d,iim*jjmp1,
    112      .               ndex2d)
     106cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
     107      CALL histwrite_phy(nid_ins,"dtsvdfi",itau_w,d_ts(:,is_sic))
    113108
    114109      DO nsrf = 1, nbsrf
    115110CXXX
    116111        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    117         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    118         CALL histwrite(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
    119      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     112cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     113        CALL histwrite_phy(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
     114     $      zx_tmp_fi2d)
    120115C
    121116        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    122         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    123         CALL histwrite(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
    124      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     117cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     118        CALL histwrite_phy(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
     119     $      zx_tmp_fi2d)
    125120C
    126121        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    127         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    128         CALL histwrite(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
    129      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     122cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     123        CALL histwrite_phy(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
     124     $      zx_tmp_fi2d)
    130125C
    131126        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    132         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    133         CALL histwrite(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
    134      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     127cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     128        CALL histwrite_phy(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
     129     $      zx_tmp_fi2d)
    135130C
    136131        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    137         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    138         CALL histwrite(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
    139      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     132cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     133        CALL histwrite_phy(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
     134     $      zx_tmp_fi2d)
    140135C     
    141136        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    142         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    143         CALL histwrite(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
    144      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     137cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     138        CALL histwrite_phy(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
     139     $     zx_tmp_fi2d)
    145140C
    146141        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    147         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    148         CALL histwrite(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
    149      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     142cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     143        CALL histwrite_phy(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
     144     $      zx_tmp_fi2d)
    150145C
    151146        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    152         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    153         CALL histwrite(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
    154      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     147cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     148        CALL histwrite_phy(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
     149     $      zx_tmp_fi2d)
    155150C
    156151      END DO 
    157       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    158       CALL histwrite(nid_ins,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    159       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    160       CALL histwrite(nid_ins,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     152cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
     153      CALL histwrite_phy(nid_ins,"albs",itau_w,albsol)
     154     
     155cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
     156      CALL histwrite_phy(nid_ins,"albslw",itau_w,albsollw)
     157
    161158c
    162       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    163       CALL histwrite(nid_ins,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
    164      .               ndex2d)
     159cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
     160      CALL histwrite_phy(nid_ins,"snow_mass",itau_w,zxsnow)
    165161c
    166       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
    167       CALL histwrite(nid_ins,"rugs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     162cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
     163      CALL histwrite_phy(nid_ins,"rugs",itau_w,zxrugs)
    168164c
    169165c Champs 3D:
    170166c
    171       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    172       CALL histwrite(nid_ins,"temp",itau_w,zx_tmp_3d,
    173      .                                   iim*jjmp1*klev,ndex3d)
     167cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     168      CALL histwrite_phy(nid_ins,"temp",itau_w,t_seri)
    174169c
    175       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    176       CALL histwrite(nid_ins,"vitu",itau_w,zx_tmp_3d,
    177      .                                   iim*jjmp1*klev,ndex3d)
     170cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     171      CALL histwrite_phy(nid_ins,"vitu",itau_w,u_seri)
    178172c
    179       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    180       CALL histwrite(nid_ins,"vitv",itau_w,zx_tmp_3d,
    181      .                                   iim*jjmp1*klev,ndex3d)
     173cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     174      CALL histwrite_phy(nid_ins,"vitv",itau_w,v_seri)
    182175c
    183       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    184       CALL histwrite(nid_ins,"geop",itau_w,zx_tmp_3d,
    185      .                                   iim*jjmp1*klev,ndex3d)
     176cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     177      CALL histwrite_phy(nid_ins,"geop",itau_w,zphi)
    186178c
    187       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    188       CALL histwrite(nid_ins,"pres",itau_w,zx_tmp_3d,
    189      .                                   iim*jjmp1*klev,ndex3d)
     179cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     180      CALL histwrite_phy(nid_ins,"pres",itau_w,pplay)
    190181c
    191       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    192       CALL histwrite(nid_ins,"dtvdf",itau_w,zx_tmp_3d,
    193      .                                   iim*jjmp1*klev,ndex3d)
     182cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
     183      CALL histwrite_phy(nid_ins,"dtvdf",itau_w,d_t_vdf)
    194184c
    195       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    196       CALL histwrite(nid_ins,"dqvdf",itau_w,zx_tmp_3d,
    197      .                                   iim*jjmp1*klev,ndex3d)
     185cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
     186      CALL histwrite_phy(nid_ins,"dqvdf",itau_w,d_q_vdf)
    198187
    199188c

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histmth.h

    r633 r634  
    1717c Champs 2D:
    1818c
    19       CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
    20       CALL histwrite(nid_mth,"phis",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     19cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,pphis,zx_tmp_2d)
     20      CALL histwrite_phy(nid_mth,"phis",itau_w,pphis)
    2121C
    2222      i = NINT(zout/zsto)
    23       CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
    24       CALL histwrite(nid_mth,"aire",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     23cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,airephy,zx_tmp_2d)
     24      CALL histwrite_phy(nid_mth,"aire",itau_w,airephy)
    2525c
    2626      zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, is_ter)
    27       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    28       CALL histwrite(nid_mth,"pourc_"//clnsurf(is_ter),itau_w,
    29      $      zx_tmp_2d,iim*jjmp1,ndex2d)
    30 c
    31       CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
    32       CALL histwrite(nid_mth,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     27cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d) 
     28      CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(is_ter),itau_w,
     29     $      zx_tmp_fi2d)
     30c
     31cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
     32      CALL histwrite_phy(nid_mth,"slp",itau_w,slp)
    3333
    34       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    35       CALL histwrite(nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    36 c
    37       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)
    38       CALL histwrite(nid_mth,"t2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     34cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
     35      CALL histwrite_phy(nid_mth,"tsol",itau_w,zxtsol)
     36c
     37cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zt2m,zx_tmp_2d)
     38      CALL histwrite_phy(nid_mth,"t2m",itau_w,zt2m)
    3939c
    4040c ENSEMBLES BEG
    41       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
    42       CALL histwrite(nid_mth,"t2m_min",itau_w,zx_tmp_2d,
    43      .               iim*jjmp1,ndex2d)
    44 c
    45       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
    46       CALL histwrite(nid_mth,"t2m_max",itau_w,zx_tmp_2d,
    47      .               iim*jjmp1,ndex2d)
     41cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
     42      CALL histwrite_phy(nid_mth,"t2m_min",itau_w,zt2m)
     43c
     44cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zt2m,zx_tmp_2d)
     45      CALL histwrite_phy(nid_mth,"t2m_max",itau_w,zt2m)
    4846c
    4947c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsoil(:,1,is_ter),zx_tmp_2d)
    5048c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,ftsol(:,is_ter),zx_tmp_2d)
    5149c     CALL gr_fi_ecrit(1,klon,iim,jjmp1,ztsol,zx_tmp_2d)
    52 c     CALL histwrite(nid_mth,"tsoil",itau_w,zx_tmp_2d,
     50c     CALL histwrite_phy(nid_mth,"tsoil",itau_w,zx_tmp_2d,
    5351c    .               iim*jjmp1,ndex2d)
    5452c
    … …  
    5654       zx_tmp_fi2d(i)=SQRT(zu10m(i)*zu10m(i)+zv10m(i)*zv10m(i))
    5755      ENDDO
    58       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    59       CALL histwrite(nid_mth,"wind10m",itau_w,zx_tmp_2d,
    60      $     iim*jjmp1,ndex2d)
     56cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     57      CALL histwrite_phy(nid_mth,"wind10m",itau_w,zx_tmp_fi2d)
    6158c
    6259      DO i = 1, klon
    6360         zx_tmp_fi2d(i) = pctsrf(i,is_sic)
    6461      ENDDO
    65       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    66       CALL histwrite(nid_mth,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     62cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     63      CALL histwrite_phy(nid_mth,"sicf",itau_w,zx_tmp_fi2d)
    6764c
    6865c     CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    69 c     CALL histwrite(nid_mth,"temp",itau_w,zx_tmp_3d,
     66c     CALL histwrite_phy(nid_mth,"temp",itau_w,zx_tmp_3d,
    7067c    .                                   iim*jjmp1*klev,ndex3d)
    7168c
    7269c ENSEMBLES END
    7370c
    74       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)
    75       CALL histwrite(nid_mth,"q2m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    76 c
    77       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)
    78       CALL histwrite(nid_mth,"u10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    79 C
    80       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)
    81       CALL histwrite(nid_mth,"v10m",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     71cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zq2m,zx_tmp_2d)
     72      CALL histwrite_phy(nid_mth,"q2m",itau_w,zq2m)
     73c
     74cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zu10m,zx_tmp_2d)
     75      CALL histwrite_phy(nid_mth,"u10m",itau_w,zu10m)
     76C
     77cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zv10m,zx_tmp_2d)
     78      CALL histwrite_phy(nid_mth,"v10m",itau_w,zv10m)
    8279C
    8380      DO i = 1, klon
    8481         zx_tmp_fi2d(i) = paprs(i,1)
    8582      ENDDO
    86       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    87       CALL histwrite(nid_mth,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    88 c
    89       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d)
    90       CALL histwrite(nid_mth,"qsurf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     83cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     84      CALL histwrite_phy(nid_mth,"psol",itau_w,zx_tmp_fi2d)
     85c
     86cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsurf,zx_tmp_2d)
     87      CALL histwrite_phy(nid_mth,"qsurf",itau_w,zxqsurf)
    9188c
    9289      if (.not. ok_veget) then
    93           CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d)
    94           CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1
    95      $        ,ndex2d)
     90cym          CALL gr_fi_ecrit(1, klon,iim,jjmp1, qsol,zx_tmp_2d)
     91          CALL histwrite_phy(nid_mth,"qsol",itau_w,qsol)
    9692      endif
    9793c
    … …  
    9995         zx_tmp_fi2d(i) = rain_fall(i) + snow_fall(i)
    10096      ENDDO
    101       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    102       CALL histwrite(nid_mth,"precip",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    103 c
    104       CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d)
    105       CALL histwrite(nid_mth,"ndayrain",itau_w,zx_tmp_2d,
    106      $               iim*jjmp1,ndex2d)
     97cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     98      CALL histwrite_phy(nid_mth,"precip",itau_w,zx_tmp_fi2d)
     99c
     100cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, nday_rain,zx_tmp_2d)
     101      CALL histwrite_phy(nid_mth,"ndayrain",itau_w,nday_rain)
    107102c
    108103      DO i = 1, klon
    109104         zx_tmp_fi2d(i) = rain_lsc(i) + snow_lsc(i)
    110105      ENDDO
    111       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    112       CALL histwrite(nid_mth,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     106cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     107      CALL histwrite_phy(nid_mth,"plul",itau_w,zx_tmp_fi2d)
    113108c
    114109      DO i = 1, klon
    115110         zx_tmp_fi2d(i) = rain_con(i) + snow_con(i)
    116111      ENDDO
    117       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    118       CALL histwrite(nid_mth,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    119 c
    120       CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    121       CALL histwrite(nid_mth,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    122 c
    123       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    124       CALL histwrite(nid_mth,"snow_mass",itau_w,zx_tmp_2d,iim*jjmp1,
    125      .               ndex2d)
     112cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     113      CALL histwrite_phy(nid_mth,"pluc",itau_w,zx_tmp_fi2d)
     114c
     115cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
     116      CALL histwrite_phy(nid_mth,"snow",itau_w,snow_fall)
     117c
     118cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
     119      CALL histwrite_phy(nid_mth,"snow_mass",itau_w,zxsnow)
    126120c
    127121cIM: 071003
    128122c     zx_tmp_fi2d(1:klon)=evap(1:klon)*86400.
    129123c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    130       CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    131       CALL histwrite(nid_mth,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    132 c
    133       CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
    134       CALL histwrite(nid_mth,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    135 c
    136       CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d)
    137       CALL histwrite(nid_mth,"tops0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    138 c
    139       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    140       CALL histwrite(nid_mth,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    141 c
    142       CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d)
    143       CALL histwrite(nid_mth,"topl0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     124cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
     125      CALL histwrite_phy(nid_mth,"evap",itau_w,evap)
     126c
     127cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
     128      CALL histwrite_phy(nid_mth,"tops",itau_w,topsw)
     129c
     130cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d)
     131      CALL histwrite_phy(nid_mth,"tops0",itau_w,topsw0)
     132c
     133cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
     134      CALL histwrite_phy(nid_mth,"topl",itau_w,toplw)
     135c
     136cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d)
     137      CALL histwrite_phy(nid_mth,"topl0",itau_w,toplw0)
    144138c
    145139c     zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, klevp1)
    146140cIM 080304   zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 2 )
    147141      zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, klevp1 )
    148       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    149       CALL histwrite(nid_mth, "SWupTOA",itau_w,zx_tmp_2d,
    150      .                               iim*jjmp1,ndex2d)
     142cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     143      CALL histwrite_phy(nid_mth, "SWupTOA",itau_w,zx_tmp_fi2d)
    151144c
    152145c
    … …  
    154147cIM 080304   zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 2 )
    155148      zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, klevp1 )
    156       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    157       CALL histwrite(nid_mth, "SWupTOAclr",itau_w,zx_tmp_2d,
    158      .                               iim*jjmp1,ndex2d)
     149cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     150      CALL histwrite_phy(nid_mth, "SWupTOAclr",itau_w,zx_tmp_fi2d)
    159151c
    160152c      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, klevp1)
    161153cIM 080304   zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 2 )
    162154      zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, klevp1 )
    163       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    164       CALL histwrite(nid_mth, "SWdnTOA",itau_w,zx_tmp_2d,
    165      .                               iim*jjmp1,ndex2d)
     155cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     156      CALL histwrite_phy(nid_mth, "SWdnTOA",itau_w,zx_tmp_fi2d)
    166157c
    167158c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, klevp1)
    168159cIM 080304   zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 2 )
    169160      zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, klevp1 )
    170       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    171       CALL histwrite(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_2d,
    172      .                               iim*jjmp1,ndex2d)
    173 c
    174       CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d)
    175       CALL histwrite(nid_mth,"SWup200",itau_w,zx_tmp_2d,
    176      $     iim*jjmp1,ndex2d)
    177 c
    178       CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d)
    179       CALL histwrite(nid_mth,"SWup200clr",itau_w,zx_tmp_2d,
    180      $     iim*jjmp1,ndex2d)
    181 c
    182       CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d)
    183       CALL histwrite(nid_mth,"SWdn200",itau_w,zx_tmp_2d,
    184      $     iim*jjmp1,ndex2d)
    185 c
    186       CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d)
    187       CALL histwrite(nid_mth,"SWdn200clr",itau_w,zx_tmp_2d,
    188      $     iim*jjmp1,ndex2d)
    189 c
    190       CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d)
    191       CALL histwrite(nid_mth,"LWup200",itau_w,zx_tmp_2d,
    192      $     iim*jjmp1,ndex2d)
    193 c
    194       CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d)
    195       CALL histwrite(nid_mth,"LWup200clr",itau_w,zx_tmp_2d,
    196      $     iim*jjmp1,ndex2d)
     161cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     162      CALL histwrite_phy(nid_mth, "SWdnTOAclr",itau_w,zx_tmp_fi2d)
     163c
     164cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200,zx_tmp_2d)
     165      CALL histwrite_phy(nid_mth,"SWup200",itau_w,SWup200)
     166c
     167cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWup200clr,zx_tmp_2d)
     168      CALL histwrite_phy(nid_mth,"SWup200clr",itau_w,SWup200clr)
     169c
     170cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200,zx_tmp_2d)
     171      CALL histwrite_phy(nid_mth,"SWdn200",itau_w,SWdn200)
     172c
     173cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, SWdn200clr,zx_tmp_2d)
     174      CALL histwrite_phy(nid_mth,"SWdn200clr",itau_w,SWdn200clr)
     175c
     176cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200,zx_tmp_2d)
     177      CALL histwrite_phy(nid_mth,"LWup200",itau_w,LWup200)
     178c
     179cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, LWup200clr,zx_tmp_2d)
     180      CALL histwrite_phy(nid_mth,"LWup200clr",itau_w,LWup200clr)
    197181c
    198182      zx_tmp_fi2d(1:klon)=-1*LWdn200(1:klon)
    199       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    200       CALL histwrite(nid_mth,"LWdn200",itau_w,zx_tmp_2d,
    201      $     iim*jjmp1,ndex2d)
     183cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     184      CALL histwrite_phy(nid_mth,"LWdn200",itau_w,zx_tmp_fi2d)
    202185c
    203186      zx_tmp_fi2d(1:klon)=-1*LWdn200clr(1:klon)
    204       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    205       CALL histwrite(nid_mth,"LWdn200clr",itau_w,zx_tmp_2d,
    206      $     iim*jjmp1,ndex2d)
     187cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     188      CALL histwrite_phy(nid_mth,"LWdn200clr",itau_w,zx_tmp_fi2d)
    207189c
    208190c200 END
    209       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    210       CALL histwrite(nid_mth,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    211 c
    212       CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d)
    213       CALL histwrite(nid_mth,"sols0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    214 c
    215       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    216       CALL histwrite(nid_mth,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    217 c
    218       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d)
    219       CALL histwrite(nid_mth,"soll0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     191cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
     192      CALL histwrite_phy(nid_mth,"sols",itau_w,solsw)
     193c
     194cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d)
     195      CALL histwrite_phy(nid_mth,"sols0",itau_w,solsw0)
     196c
     197cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
     198      CALL histwrite_phy(nid_mth,"soll",itau_w,sollw)
     199c
     200cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d)
     201      CALL histwrite_phy(nid_mth,"soll0",itau_w,sollw0)
    220202c
    221203c      zx_tmp_fi2d(1 : klon) = ZFSUP( 1 : klon, 1)
    222204      zx_tmp_fi2d(1 : klon) = swup ( 1 : klon, 1 )
    223       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    224       CALL histwrite(nid_mth, "SWupSFC",itau_w,zx_tmp_2d,
    225      .                               iim*jjmp1,ndex2d)
     205cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     206      CALL histwrite_phy(nid_mth, "SWupSFC",itau_w,zx_tmp_fi2d)
    226207c
    227208c      zx_tmp_fi2d(1 : klon) = ZFSUP0( 1 : klon, 1)
    228209      zx_tmp_fi2d(1 : klon) = swup0 ( 1 : klon, 1 )
    229       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    230       CALL histwrite(nid_mth, "SWupSFCclr",itau_w,zx_tmp_2d,
    231      .                               iim*jjmp1,ndex2d)
     210cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     211      CALL histwrite_phy(nid_mth, "SWupSFCclr",itau_w,zx_tmp_fi2d)
    232212c
    233213c      zx_tmp_fi2d(1 : klon) = ZFSDN( 1 : klon, 1)
    234214      zx_tmp_fi2d(1 : klon) = swdn ( 1 : klon, 1 )
    235       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    236       CALL histwrite(nid_mth, "SWdnSFC",itau_w,zx_tmp_2d,
    237      .                               iim*jjmp1,ndex2d)
     215cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     216      CALL histwrite_phy(nid_mth, "SWdnSFC",itau_w,zx_tmp_fi2d)
    238217c
    239218c      zx_tmp_fi2d(1 : klon) = ZFSDN0( 1 : klon, 1)
    240219      zx_tmp_fi2d(1 : klon) = swdn0 ( 1 : klon, 1 )
    241       CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
    242       CALL histwrite(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_2d,
    243      .                               iim*jjmp1,ndex2d)
     220cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1,zx_tmp_fi2d,zx_tmp_2d)
     221      CALL histwrite_phy(nid_mth, "SWdnSFCclr",itau_w,zx_tmp_fi2d)
    244222c
    245223      zx_tmp_fi2d(1:klon)=sollw(1:klon)+sollwdown(1:klon)
    246       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    247       CALL histwrite(nid_mth,"LWupSFC",itau_w,zx_tmp_2d,iim*jjmp1,
    248      .               ndex2d)
     224cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     225      CALL histwrite_phy(nid_mth,"LWupSFC",itau_w,zx_tmp_fi2d)
    249226c
    250227      zx_tmp_fi2d(1:klon)=sollw0(1:klon)+sollwdownclr(1:klon)
    251       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
    252       CALL histwrite(nid_mth,"LWupSFCclr",itau_w,zx_tmp_2d,iim*jjmp1,
    253      .               ndex2d)
    254 c
    255       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    256       CALL histwrite(nid_mth,"LWdnSFC",itau_w,zx_tmp_2d,iim*jjmp1,
    257      .               ndex2d)
     228cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d, zx_tmp_2d)
     229      CALL histwrite_phy(nid_mth,"LWupSFCclr",itau_w,zx_tmp_fi2d)
     230c
     231cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
     232      CALL histwrite_phy(nid_mth,"LWdnSFC",itau_w,sollwdown)
    258233c
    259234      DO i=1, klon
    … …  
    261236      ENDDO !i=1, klon
    262237c
    263       CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
    264       CALL histwrite(nid_mth,"LWdnSFCclr",itau_w,zx_tmp_2d,
    265      $               iim*jjmp1,ndex2d)
     238cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdownclr,zx_tmp_2d)
     239      CALL histwrite_phy(nid_mth,"LWdnSFCclr",itau_w,sollwdownclr)
    266240c
    267241c
    … …  
    271245      zx_tmp_fi2d(1:klon) = topswai(1:klon) - topswad(1:klon)
    272246c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topswad,zx_tmp_2d)
    273       CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
    274       CALL histwrite(nid_mth,"topsad",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     247cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
     248      CALL histwrite_phy(nid_mth,"topsad",itau_w,zx_tmp_fi2d)
    275249c
    276250      zx_tmp_fi2d(1:klon) = solswai(1:klon) - solswad(1:klon)
    277251c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solswad,zx_tmp_2d)
    278       CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
    279       CALL histwrite(nid_mth,"solsad",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     252cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
     253      CALL histwrite_phy(nid_mth,"solsad",itau_w,zx_tmp_fi2d)
    280254c
    281255      zx_tmp_fi2d(1:klon) = topsw(1:klon) - topswai(1:klon)
    282256c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topswai,zx_tmp_2d)
    283       CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
    284       CALL histwrite(nid_mth,"topsai",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     257cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
     258      CALL histwrite_phy(nid_mth,"topsai",itau_w,zx_tmp_fi2d)
    285259c
    286260      zx_tmp_fi2d(1:klon) = solsw(1:klon) - solswai(1:klon)
    287261c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solswai,zx_tmp_2d)
    288       CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
    289       CALL histwrite(nid_mth,"solsai",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    290 c     endif
    291 c
    292       CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    293       CALL histwrite(nid_mth,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     262cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,zx_tmp_fi2d ,zx_tmp_2d)
     263      CALL histwrite_phy(nid_mth,"solsai",itau_w,zx_tmp_fi2d)
     264cym
     265c      endif
     266c
     267cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
     268      CALL histwrite_phy(nid_mth,"bils",itau_w,bils)
    294269c
    295270      zx_tmp_fi2d(1:klon)=-1*sens(1:klon)
    296271c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    297       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    298       CALL histwrite(nid_mth,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    299 c
    300       CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    301       CALL histwrite(nid_mth,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     272cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     273      CALL histwrite_phy(nid_mth,"sens",itau_w,zx_tmp_fi2d)
     274c
     275cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
     276      CALL histwrite_phy(nid_mth,"fder",itau_w,fder)
    302277c
    303278c
    … …  
    315290c
    316291c
    317        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d)
    318        CALL histwrite(nid_mth,"ffonte",itau_w,zx_tmp_2d,iim*jjmp1,
    319      $                ndex2d)
    320 c
    321        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d)
    322        CALL histwrite(nid_mth,"fqcalving",itau_w,zx_tmp_2d,iim*jjmp1,
    323      $                ndex2d)
     292cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxffonte,zx_tmp_2d)
     293       CALL histwrite_phy(nid_mth,"ffonte",itau_w,zxffonte)
     294c
     295cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxfqcalving,zx_tmp_2d)
     296       CALL histwrite_phy(nid_mth,"fqcalving",itau_w,zxfqcalving)
    324297cIM: 171003
    325298       DO nsrf = 1, nbsrf
    326299        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    327         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    328         CALL histwrite(nid_mth,"taux_"//clnsurf(nsrf),itau_w,
    329      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     300cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     301        CALL histwrite_phy(nid_mth,"taux_"//clnsurf(nsrf),itau_w,
     302     $      zx_tmp_fi2d)
    330303C     
    331304        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    332         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    333         CALL histwrite(nid_mth,"tauy_"//clnsurf(nsrf),itau_w,
    334      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     305cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     306        CALL histwrite_phy(nid_mth,"tauy_"//clnsurf(nsrf),itau_w,
     307     $      zx_tmp_fi2d)
    335308       ENDDO
    336309cIM: 171003
    … …  
    341314       IF(nsrf.GT.1) THEN
    342315        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    343         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    344         CALL histwrite(nid_mth,"pourc_"//clnsurf(nsrf),itau_w,
    345      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     316cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     317        CALL histwrite_phy(nid_mth,"pourc_"//clnsurf(nsrf),itau_w,
     318     $      zx_tmp_fi2d)
    346319       ENDIF !nsrf.GT.1
    347320C
    348321        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    349         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    350         CALL histwrite(nid_mth,"tsol_"//clnsurf(nsrf),itau_w,
    351      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     322cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     323        CALL histwrite_phy(nid_mth,"tsol_"//clnsurf(nsrf),itau_w,
     324     $      zx_tmp_fi2d)
    352325C
    353326        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    354         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    355         CALL histwrite(nid_mth,"sens_"//clnsurf(nsrf),itau_w,
    356      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     327cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     328        CALL histwrite_phy(nid_mth,"sens_"//clnsurf(nsrf),itau_w,
     329     $      zx_tmp_fi2d)
    357330C
    358331        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    359         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    360         CALL histwrite(nid_mth,"lat_"//clnsurf(nsrf),itau_w,
    361      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     332cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     333        CALL histwrite_phy(nid_mth,"lat_"//clnsurf(nsrf),itau_w,
     334     $      zx_tmp_fi2d)
    362335C
    363336        zx_tmp_fi2d(1 : klon) = fsollw( 1 : klon, nsrf)
    364         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    365         CALL histwrite(nid_mth,"flw_"//clnsurf(nsrf),itau_w,
    366      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     337cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     338        CALL histwrite_phy(nid_mth,"flw_"//clnsurf(nsrf),itau_w,
     339     $      zx_tmp_fi2d)
    367340c
    368341        zx_tmp_fi2d(1 : klon) = fsolsw( 1 : klon, nsrf)
    369         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    370         CALL histwrite(nid_mth,"fsw_"//clnsurf(nsrf),itau_w,
    371      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     342cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     343        CALL histwrite_phy(nid_mth,"fsw_"//clnsurf(nsrf),itau_w,
     344     $      zx_tmp_fi2d)
    372345C
    373346        zx_tmp_fi2d(1 : klon) = wfbils( 1 : klon, nsrf)
    374         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    375         CALL histwrite(nid_mth,"wbils_"//clnsurf(nsrf),itau_w,
    376      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     347cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     348        CALL histwrite_phy(nid_mth,"wbils_"//clnsurf(nsrf),itau_w,
     349     $      zx_tmp_fi2d)
    377350C
    378351
    … …  
    381354
    382355c
    383       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    384       CALL histwrite(nid_mth,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    385 c
    386       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    387       CALL histwrite(nid_mth,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    388 c
    389       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
    390       CALL histwrite(nid_mth,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    391 c
    392       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
    393       CALL histwrite(nid_mth,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    394 c
    395       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
    396       CALL histwrite(nid_mth,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    397 c
    398       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
    399       CALL histwrite(nid_mth,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    400 c
    401       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
    402       CALL histwrite(nid_mth,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     356cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
     357      CALL histwrite_phy(nid_mth,"cdrm",itau_w,cdragm)
     358c
     359cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
     360      CALL histwrite_phy(nid_mth,"cdrh",itau_w,cdragh)
     361c
     362cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
     363      CALL histwrite_phy(nid_mth,"cldl",itau_w,cldl)
     364c
     365cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
     366      CALL histwrite_phy(nid_mth,"cldm",itau_w,cldm)
     367c
     368cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
     369      CALL histwrite_phy(nid_mth,"cldh",itau_w,cldh)
     370c
     371cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
     372      CALL histwrite_phy(nid_mth,"cldt",itau_w,cldt)
     373c
     374cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
     375      CALL histwrite_phy(nid_mth,"cldq",itau_w,cldq)
    403376c
    404377      zx_tmp_fi2d(1:klon) = flwp(1:klon)
    405       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    406       CALL histwrite(nid_mth,"lwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     378cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     379      CALL histwrite_phy(nid_mth,"lwp",itau_w,zx_tmp_fi2d)
    407380c
    408381      zx_tmp_fi2d(1:klon) = fiwp(1:klon)
    409       CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    410       CALL histwrite(nid_mth,"iwp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    411 c
    412       CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d)
    413       CALL histwrite(nid_mth,"ue",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    414 c
    415       CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d)
    416       CALL histwrite(nid_mth,"ve",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    417 c
    418       CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d)
    419       CALL histwrite(nid_mth,"uq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    420 c
    421       CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d)
    422       CALL histwrite(nid_mth,"vq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     382cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
     383      CALL histwrite_phy(nid_mth,"iwp",itau_w,zx_tmp_fi2d)
     384c
     385cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d)
     386      CALL histwrite_phy(nid_mth,"ue",itau_w,ue)
     387c
     388cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d)
     389      CALL histwrite_phy(nid_mth,"ve",itau_w,ve)
     390c
     391cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d)
     392      CALL histwrite_phy(nid_mth,"uq",itau_w,uq)
     393c
     394cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d)
     395      CALL histwrite_phy(nid_mth,"vq",itau_w,vq)
    423396cKE43
    424397      IF (iflag_con.GE.3) THEN ! sb
    425398c
    426       CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d)
    427       CALL histwrite(nid_mth,"cape",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    428 c
    429       CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d)
    430       CALL histwrite(nid_mth,"pbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    431 c
    432       CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d)
    433       CALL histwrite(nid_mth,"ptop",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    434 c
    435       CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d)
    436       CALL histwrite(nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     399cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d)
     400      CALL histwrite_phy(nid_mth,"cape",itau_w,cape)
     401c
     402cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d)
     403      CALL histwrite_phy(nid_mth,"pbase",itau_w,pbase)
     404c
     405cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d)
     406      CALL histwrite_phy(nid_mth,"ptop",itau_w,ema_pct)
     407c
     408cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d)
     409      CALL histwrite_phy(nid_mth,"fbase",itau_w,ema_cbmf)
    437410c
    438411c34EK
    … …  
    440413      ENDIF !iflag_con.GE.3
    441414c
    442       CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
    443       CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d,
    444      .               iim*jjmp1,ndex2d)
     415cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
     416      CALL histwrite_phy(nid_mth,"prw",itau_w,prw)
    445417c
    446418c
    … …  
    450422      DO k=1, nlevENS
    451423c
    452         CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
    453         CALL histwrite(nid_mth,"u"//clev(k),itau_w,zx_tmp_2d,
    454      $       iim*jjmp1,ndex2d)
    455 c
    456         CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
    457         CALL histwrite(nid_mth,"v"//clev(k),itau_w,zx_tmp_2d,
    458      $       iim*jjmp1,ndex2d)
    459 c
    460       CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlev(:,k),zx_tmp_2d)
    461       CALL histwrite(nid_mth,"w"//clev(k),itau_w,zx_tmp_2d,
    462      $     iim*jjmp1,ndex2d)
    463 c
    464       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
    465       CALL histwrite(nid_mth,"phi"//clev(k),itau_w,zx_tmp_2d,
    466      $     iim*jjmp1,ndex2d)
     424cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulev(:,k),zx_tmp_2d)
     425        CALL histwrite_phy(nid_mth,"u"//clev(k),itau_w, ulev(:,k))
     426c
     427cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlev(:,k),zx_tmp_2d)
     428        CALL histwrite_phy(nid_mth,"v"//clev(k),itau_w,vlev(:,k))
     429c
     430cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, wlev(:,k),zx_tmp_2d)
     431      CALL histwrite_phy(nid_mth,"w"//clev(k),itau_w,wlev(:,k))
     432c
     433cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philev(:,k),zx_tmp_2d)
     434      CALL histwrite_phy(nid_mth,"phi"//clev(k),itau_w,philev(:,k))
    467435c
    468436      ENDDO !nlevENS
    … …  
    474442C
    475443c
    476       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d)
    477       CALL histwrite(nid_mth,"lwcon",itau_w,zx_tmp_3d,
    478      .               iim*jjmp1*klev,ndex3d)
    479 c
    480       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d)
    481       CALL histwrite(nid_mth,"iwcon",itau_w,zx_tmp_3d,
    482      .               iim*jjmp1*klev,ndex3d)
    483 c
    484       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    485       CALL histwrite(nid_mth,"temp",itau_w,zx_tmp_3d,
    486      .                                   iim*jjmp1*klev,ndex3d)
     444cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, flwc,zx_tmp_3d)
     445      CALL histwrite_phy(nid_mth,"lwcon",itau_w,flwc)
     446c
     447cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d)
     448      CALL histwrite_phy(nid_mth,"iwcon",itau_w,fiwc)
     449c
     450cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
     451      CALL histwrite_phy(nid_mth,"temp",itau_w,t_seri)
    487452c
    488453c#ifdef histmthNMC
    … …  
    490455c#endif
    491456c
    492       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    493       CALL histwrite(nid_mth,"ovap",itau_w,zx_tmp_3d,
    494      .                                   iim*jjmp1*klev,ndex3d)
     457cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
     458      CALL histwrite_phy(nid_mth,"ovap",itau_w,qx(:,:,ivap))
    495459c
    496460cIM: 071003
    … …  
    501465c    .                                   iim*jjmp1*klev,ndex3d)
    502466c
    503       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    504       CALL histwrite(nid_mth,"geop",itau_w,zx_tmp_3d,
    505      .                                   iim*jjmp1*klev,ndex3d)
    506 c
    507       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    508       CALL histwrite(nid_mth,"vitu",itau_w,zx_tmp_3d,
    509      .                                   iim*jjmp1*klev,ndex3d)
    510 c
    511       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    512       CALL histwrite(nid_mth,"vitv",itau_w,zx_tmp_3d,
    513      .                                   iim*jjmp1*klev,ndex3d)
    514 c
    515       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    516       CALL histwrite(nid_mth,"vitw",itau_w,zx_tmp_3d,
    517      .                                   iim*jjmp1*klev,ndex3d)
    518 c
    519       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    520       CALL histwrite(nid_mth,"pres",itau_w,zx_tmp_3d,
    521      .                                   iim*jjmp1*klev,ndex3d)
    522 c
    523       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d)
    524       CALL histwrite(nid_mth,"rneb",itau_w,zx_tmp_3d,
    525      .                                   iim*jjmp1*klev,ndex3d)
    526 c
    527       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d)
    528       CALL histwrite(nid_mth,"rnebcon",itau_w,zx_tmp_3d,
    529      .                                   iim*jjmp1*klev,ndex3d)
    530 c
    531       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d)
    532       CALL histwrite(nid_mth,"rhum",itau_w,zx_tmp_3d,
    533      .                                   iim*jjmp1*klev,ndex3d)
    534 c
    535       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d)
    536       CALL histwrite(nid_mth,"ozone",itau_w,zx_tmp_3d,
    537      .                                   iim*jjmp1*klev,ndex3d)
     467cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
     468      CALL histwrite_phy(nid_mth,"geop",itau_w,zphi)
     469c
     470cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
     471      CALL histwrite_phy(nid_mth,"vitu",itau_w,u_seri)
     472c
     473cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
     474      CALL histwrite_phy(nid_mth,"vitv",itau_w,v_seri)
     475c
     476cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
     477      CALL histwrite_phy(nid_mth,"vitw",itau_w,omega)
     478c
     479cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
     480      CALL histwrite_phy(nid_mth,"pres",itau_w,pplay)
     481c
     482cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d)
     483      CALL histwrite_phy(nid_mth,"rneb",itau_w,cldfra)
     484c
     485cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, rnebcon, zx_tmp_3d)
     486      CALL histwrite_phy(nid_mth,"rnebcon",itau_w,rnebcon)
     487c
     488cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d)
     489      CALL histwrite_phy(nid_mth,"rhum",itau_w,zx_rh)
     490c
     491cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d)
     492      CALL histwrite_phy(nid_mth,"ozone",itau_w,wo)
    538493c
    539494cIM 22.03.04 BEG
    540       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
    541       CALL histwrite(nid_mth,"dtphy",itau_w,zx_tmp_3d,
    542      .                                   iim*jjmp1*klev,ndex3d)
    543 c
    544       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap),
    545      .                 zx_tmp_3d)
    546       CALL histwrite(nid_mth,"dqphy",itau_w,zx_tmp_3d,
    547      .                                   iim*jjmp1*klev,ndex3d)
     495cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
     496      CALL histwrite_phy(nid_mth,"dtphy",itau_w,d_t)
     497c
     498cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,ivap),
     499cym     .                 zx_tmp_3d)
     500      CALL histwrite_phy(nid_mth,"dqphy",itau_w, d_qx(:,:,ivap))
    548501cIM 22.03.04 END
    549502c
    … …  
    555508c
    556509        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    557         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    558         CALL histwrite(nid_mth,"albe_"//clnsurf(nsrf),itau_w,
    559      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     510cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     511        CALL histwrite_phy(nid_mth,"albe_"//clnsurf(nsrf),itau_w,
     512     $      zx_tmp_fi2d)
    560513C
    561514        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    562         CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    563         CALL histwrite(nid_mth,"rugs_"//clnsurf(nsrf),itau_w,
    564      $      zx_tmp_2d,iim*jjmp1,ndex2d)
     515cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
     516        CALL histwrite_phy(nid_mth,"rugs_"//clnsurf(nsrf),itau_w,
     517     $      zx_tmp_fi2d)
    565518c
    566519      zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf)
    567       CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d)
    568       CALL histwrite(nid_mth,"ages_"//clnsurf(nsrf),itau_w
    569      $    ,zx_tmp_2d,iim*jjmp1,ndex2d)
     520cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d)
     521      CALL histwrite_phy(nid_mth,"ages_"//clnsurf(nsrf),itau_w
     522     $    ,zx_tmp_fi2d)
    570523c
    571524      ENDDO !nsrf=1, nbsrf
    572525c
    573       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    574       CALL histwrite(nid_mth,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    575 c
    576       CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    577       CALL histwrite(nid_mth,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
     526cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
     527      CALL histwrite_phy(nid_mth,"albs",itau_w,albsol)
     528c
     529cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
     530      CALL histwrite_phy(nid_mth,"albslw",itau_w,albsollw)
    578531c
    579532      ENDIF !lev_histmth.GE.3
    … …  
    582535      IF(lev_histmth.GE.4) THEN
    583536c
    584       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d)
    585       CALL histwrite(nid_mth,"clwcon",itau_w,zx_tmp_3d,
    586      .                                   iim*jjmp1*klev,ndex3d)
     537cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, clwcon0, zx_tmp_3d)
     538      CALL histwrite_phy(nid_mth,"clwcon",itau_w,clwcon0)
    587539c
    588540      IF (iflag_con.GE.3) THEN
    589541c
    590       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d)
    591       CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d,
    592      .                                   iim*jjmp1*klev,ndex3d)
    593 c
    594       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d)
    595       CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d,
    596      .                                   iim*jjmp1*klev,ndex3d)
    597 c
    598       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d)
    599       CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d,
    600      .                                   iim*jjmp1*klev,ndex3d)
    601 c
    602       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d)
    603       CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d,
    604      .                                   iim*jjmp1*klev,ndex3d)
    605 c
    606       ENDIF !iflag_con.GE.3
    607 c
    608       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
    609       CALL histwrite(nid_mth,"dtdyn",itau_w,zx_tmp_3d,
    610      .                                   iim*jjmp1*klev,ndex3d)
    611 c
    612       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
    613       CALL histwrite(nid_mth,"dqdyn",itau_w,zx_tmp_3d,
    614      .                                   iim*jjmp1*klev,ndex3d)
     542cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d)
     543      CALL histwrite_phy(nid_mth,"Ma",itau_w,Ma)
     544c
     545cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d)
     546      CALL histwrite_phy(nid_mth,"upwd",itau_w,upwd)
     547c
     548cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d)
     549      CALL histwrite_phy(nid_mth,"dnwd",itau_w,dnwd)
     550c
     551cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d)
     552      CALL histwrite_phy(nid_mth,"dnwd0",itau_w,dnwd0)
     553c
     554
     555      ENDIF
     556c
     557cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
     558      CALL histwrite_phy(nid_mth,"dtdyn",itau_w,d_t_dyn)
     559c
     560cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
     561      CALL histwrite_phy(nid_mth,"dqdyn",itau_w,d_q_dyn)
    615562c
    616563cIM: 101003 : K/30min ==> K/s
    617564      zx_tmp_fi3d(1:klon,1:klev)=d_t_con(1:klon,1:klev)/pdtphys
    618       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    619       CALL histwrite(nid_mth,"dtcon",itau_w,zx_tmp_3d,
    620      .                                   iim*jjmp1*klev,ndex3d)
    621 c
    622       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
    623       CALL histwrite(nid_mth,"dqcon",itau_w,zx_tmp_3d,
    624      .                                   iim*jjmp1*klev,ndex3d)
     565cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     566      CALL histwrite_phy(nid_mth,"dtcon",itau_w,zx_tmp_fi3d)
     567c
     568cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
     569      CALL histwrite_phy(nid_mth,"dqcon",itau_w,d_q_con)
    625570c
    626571cIM: 101003 : K/30min ==> K/s
    627572      zx_tmp_fi3d(1:klon,1:klev)=d_t_lsc(1:klon,1:klev)/pdtphys
    628       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    629       CALL histwrite(nid_mth,"dtlsc",itau_w,zx_tmp_3d,
    630      .                                   iim*jjmp1*klev,ndex3d)
     573cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     574      CALL histwrite_phy(nid_mth,"dtlsc",itau_w,zx_tmp_fi3d)
    631575cIM: 071003
    632576cIM: 101003 : K/30min ==> K/s
    633577      zx_tmp_fi3d(1:klon, 1:klev)=(d_t_lsc(1:klon,1:klev)+
    634578     .                             d_t_eva(1:klon,1:klev))/pdtphys
    635       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d)
    636       CALL histwrite(nid_mth,"dtlschr",itau_w,zx_tmp_3d,
    637      .                                   iim*jjmp1*klev,ndex3d)
    638 c
    639       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
    640       CALL histwrite(nid_mth,"dqlsc",itau_w,zx_tmp_3d,
    641      .                                   iim*jjmp1*klev,ndex3d)
     579cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_tmp_fi3d, zx_tmp_3d)
     580      CALL histwrite_phy(nid_mth,"dtlschr",itau_w,zx_tmp_fi3d)
     581c
     582cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
     583      CALL histwrite_phy(nid_mth,"dqlsc",itau_w,d_q_lsc)
    642584c
    643585cIM: 101003 : K/30min ==> K/s
    644586      zx_tmp_fi3d(1:klon,1:klev)=d_t_vdf(1:klon,1:klev)/pdtphys
    645       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    646       CALL histwrite(nid_mth,"dtvdf",itau_w,zx_tmp_3d,
    647      .                                   iim*jjmp1*klev,ndex3d)
    648 c
    649       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    650       CALL histwrite(nid_mth,"dqvdf",itau_w,zx_tmp_3d,
    651      .                                   iim*jjmp1*klev,ndex3d)
     587cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     588      CALL histwrite_phy(nid_mth,"dtvdf",itau_w,zx_tmp_fi3d)
     589c
     590cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
     591      CALL histwrite_phy(nid_mth,"dqvdf",itau_w,d_q_vdf)
    652592c
    653593cIM: 101003 : K/30min ==> K/s
    654594      zx_tmp_fi3d(1:klon,1:klev)=d_t_eva(1:klon,1:klev)/pdtphys
    655       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    656       CALL histwrite(nid_mth,"dteva",itau_w,zx_tmp_3d,
    657      .                                   iim*jjmp1*klev,ndex3d)
    658 c
    659       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
    660       CALL histwrite(nid_mth,"dqeva",itau_w,zx_tmp_3d,
    661      .                                   iim*jjmp1*klev,ndex3d)
     595cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     596      CALL histwrite_phy(nid_mth,"dteva",itau_w,zx_tmp_fi3d)
     597c
     598cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
     599      CALL histwrite_phy(nid_mth,"dqeva",itau_w, d_q_eva)
    662600c
    663601      zpt_conv = 0.
    664602      where (ptconv) zpt_conv = 1.
    665       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d)
    666       CALL histwrite(nid_mth,"ptconv",itau_w,zx_tmp_3d,
    667      .                                   iim*(jjmp1)*klev,ndex3d)
    668 c
    669       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d)
    670       CALL histwrite(nid_mth,"ratqs",itau_w,zx_tmp_3d,
    671      .                                   iim*(jjmp1)*klev,ndex3d)
     603cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d)
     604      CALL histwrite_phy(nid_mth,"ptconv",itau_w,zpt_conv)
     605c
     606cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d)
     607      CALL histwrite_phy(nid_mth,"ratqs",itau_w,ratqs)
    672608c
    673609cIM: 101003 : K/30min ==> K/s
    674610      zx_tmp_fi3d(1:klon,1:klev)=d_t_ajs(1:klon,1:klev)/pdtphys
    675       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    676       CALL histwrite(nid_mth,"dtajs",itau_w,zx_tmp_3d,
    677      .                                   iim*jjmp1*klev,ndex3d)
    678 c
    679       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
    680       CALL histwrite(nid_mth,"dqajs",itau_w,zx_tmp_3d,
    681      .                                   iim*jjmp1*klev,ndex3d)
     611cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     612      CALL histwrite_phy(nid_mth,"dtajs",itau_w,zx_tmp_fi3d)
     613c
     614cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
     615      CALL histwrite_phy(nid_mth,"dqajs",itau_w,d_q_ajs)
    682616c
    683617cIM: 101003 : K/day ==> K/s
    684618cIM: LMD_ARMIP3   zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)*pdtphys/RDAY
    685619      zx_tmp_fi3d(1:klon,1:klev)=heat(1:klon,1:klev)/RDAY
    686       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    687       CALL histwrite(nid_mth,"dtswr",itau_w,zx_tmp_3d,
    688      .                                   iim*jjmp1*klev,ndex3d)
     620cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     621      CALL histwrite_phy(nid_mth,"dtswr",itau_w,zx_tmp_fi3d)
    689622c
    690623cIM: 101003 : K/day ==> K/s     
    691624cIM: LMD_ARMIP3   zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)*pdtphys/RDAY
    692625      zx_tmp_fi3d(1:klon,1:klev)=heat0(1:klon,1:klev)/RDAY
    693       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    694       CALL histwrite(nid_mth,"dtsw0",itau_w,zx_tmp_3d,
    695      .                                   iim*jjmp1*klev,ndex3d)
     626cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     627      CALL histwrite_phy(nid_mth,"dtsw0",itau_w,zx_tmp_fi3d)
    696628c
    697629cIM: 101003 : K/day ==> K/s     
    698630cIM: LMD_ARMIP3     zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)*pdtphys/RDAY
    699631      zx_tmp_fi3d(1:klon,1:klev)=-1.*cool(1:klon,1:klev)/RDAY
    700       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    701       CALL histwrite(nid_mth,"dtlwr",itau_w,zx_tmp_3d,
    702      .                                   iim*jjmp1*klev,ndex3d)
     632cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     633      CALL histwrite_phy(nid_mth,"dtlwr",itau_w,zx_tmp_fi3d)
    703634c
    704635cIM: 101003 : K/day ==> K/s     
    705636cIM: LMD_ARMIP3     zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)*pdtphys/RDAY
    706637      zx_tmp_fi3d(1:klon,1:klev)=-1.*cool0(1:klon,1:klev)/RDAY
    707       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    708       CALL histwrite(nid_mth,"dtlw0",itau_w,zx_tmp_3d,
    709      .                                   iim*jjmp1*klev,ndex3d)
     638cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     639      CALL histwrite_phy(nid_mth,"dtlw0",itau_w,zx_tmp_fi3d)
    710640c
    711641cIM: 101003 : deja en K/s     
    712642      zx_tmp_fi3d(1:klon,1:klev)=d_t_ec(1:klon,1:klev)
    713       CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    714       CALL histwrite(nid_mth,"dtec",itau_w,zx_tmp_3d,
    715      .                                   iim*jjmp1*klev,ndex3d)
    716 c
    717       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
    718       CALL histwrite(nid_mth,"duvdf",itau_w,zx_tmp_3d,
    719      .                                   iim*jjmp1*klev,ndex3d)
    720 c
    721       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
    722       CALL histwrite(nid_mth,"dvvdf",itau_w,zx_tmp_3d,
    723      .                                   iim*jjmp1*klev,ndex3d)
     643cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
     644      CALL histwrite_phy(nid_mth,"dtec",itau_w,zx_tmp_fi3d)
     645c
     646cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
     647      CALL histwrite_phy(nid_mth,"duvdf",itau_w,d_u_vdf)
     648c
     649cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
     650      CALL histwrite_phy(nid_mth,"dvvdf",itau_w,d_v_vdf)
    724651c
    725652      IF (ok_orodr) THEN
    726       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oro, zx_tmp_3d)
    727       CALL histwrite(nid_mth,"duoro",itau_w,zx_tmp_3d,
    728      .                                   iim*jjmp1*klev,ndex3d)
    729 c
    730       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oro, zx_tmp_3d)
    731       CALL histwrite(nid_mth,"dvoro",itau_w,zx_tmp_3d,
    732      .                                   iim*jjmp1*klev,ndex3d)
     653cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oro, zx_tmp_3d)
     654      CALL histwrite_phy(nid_mth,"duoro",itau_w,d_u_oro)
     655c
     656cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oro, zx_tmp_3d)
     657      CALL histwrite_phy(nid_mth,"dvoro",itau_w,d_v_oro)
    733658c
    734659      ENDIF
    735660C
    736661      IF (ok_orolf) THEN
    737       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_lif, zx_tmp_3d)
    738       CALL histwrite(nid_mth,"dulif",itau_w,zx_tmp_3d,
    739      .                                   iim*jjmp1*klev,ndex3d)
    740 c
    741       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_lif, zx_tmp_3d)
    742       CALL histwrite(nid_mth,"dvlif",itau_w,zx_tmp_3d,
    743      .                                   iim*jjmp1*klev,ndex3d)
     662cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_lif, zx_tmp_3d)
     663      CALL histwrite_phy(nid_mth,"dulif",itau_w,d_u_lif)
     664c
     665cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_lif, zx_tmp_3d)
     666      CALL histwrite_phy(nid_mth,"dvlif",itau_w, d_v_lif)
    744667      ENDIF
    745668C
    … …  
    748671c
    749672c     IF (ok_ade.OR.ok_aie) THEN
    750       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, re, zx_tmp_3d)
    751       CALL histwrite(nid_mth,"re",itau_w,zx_tmp_3d,
    752      .                                   iim*jjmp1*klev,ndex3d)
    753 c
    754       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fl, zx_tmp_3d)
    755       CALL histwrite(nid_mth,"redenom",itau_w,zx_tmp_3d,
    756      .                                   iim*jjmp1*klev,ndex3d)
    757 c
    758       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtau, zx_tmp_3d)
    759       CALL histwrite(nid_mth,"tau",itau_w,zx_tmp_3d,
    760      .                                   iim*jjmp1*klev,ndex3d)
    761 c
    762       CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtaupi, zx_tmp_3d)
    763       CALL histwrite(nid_mth,"taupi",itau_w,zx_tmp_3d,
    764      .                                   iim*jjmp1*klev,ndex3d)
     673cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, re, zx_tmp_3d)
     674      CALL histwrite_phy(nid_mth,"re",itau_w,re)
     675c
     676cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fl, zx_tmp_3d)
     677      CALL histwrite_phy(nid_mth,"redenom",itau_w,fl)
     678c
     679cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtau, zx_tmp_3d)
     680      CALL histwrite_phy(nid_mth,"tau",itau_w,cldtau)
     681c
     682cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtaupi, zx_tmp_3d)
     683      CALL histwrite_phy(nid_mth,"taupi",itau_w,cldtaupi)
    765684c     endif
    766685c
    767686      IF (nqmax.GE.3) THEN
    768687      DO iq=3,nqmax
    769          CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d)
    770          CALL histwrite(nid_mth,tnom(iq),itau_w,zx_tmp_3d,
    771      .                                   iim*jjmp1*klev,ndex3d)
     688c         CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq), zx_tmp_3d)
     689         CALL histwrite_phy(nid_mth,tnom(iq),itau_w,qx(:,:,iq))
    772690      ENDDO
    773691      ENDIF

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histmthNMC.h

    r524 r634  
    2828         ENDIF
    2929c
    30       CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d)
    31       CALL histwrite(nid_nmc,"t"//bb,itau_w,zx_tmp_2d,
    32      $       iim*jjmp1,ndex2d)
     30cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d)
     31      CALL histwrite_phy(nid_nmc,"t"//bb,itau_w,tlevSTD(:,k))
    3332c
    34       CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d)
    35       CALL histwrite(nid_nmc,"phi"//bb,itau_w,zx_tmp_2d,
    36      $       iim*jjmp1,ndex2d)
     33cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d)
     34      CALL histwrite_phy(nid_nmc,"phi"//bb,itau_w,philevSTD(:,k))
    3735c
    38       CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d)
    39       CALL histwrite(nid_nmc,"q"//bb,itau_w,zx_tmp_2d,
    40      $       iim*jjmp1,ndex2d)
     36cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d)
     37      CALL histwrite_phy(nid_nmc,"q"//bb,itau_w,qlevSTD(:,k))
    4138c
    42       CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d)
    43       CALL histwrite(nid_nmc,"rh"//bb,itau_w,zx_tmp_2d,
    44      $       iim*jjmp1,ndex2d)
     39cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d)
     40      CALL histwrite_phy(nid_nmc,"rh"//bb,itau_w,rhlevSTD(:,k))
    4541c
    46       CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d)
    47       CALL histwrite(nid_nmc,"u"//bb,itau_w,zx_tmp_2d,
    48      $       iim*jjmp1,ndex2d)
     42cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d)
     43      CALL histwrite_phy(nid_nmc,"u"//bb,itau_w,ulevSTD(:,k))
    4944c
    50       CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d)
    51       CALL histwrite(nid_nmc,"v"//bb,itau_w,zx_tmp_2d,
    52      $       iim*jjmp1,ndex2d)
     45cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d)
     46      CALL histwrite_phy(nid_nmc,"v"//bb,itau_w,vlevSTD(:,k))
    5347c
    5448      ENDDO !k=1, nlevSTD

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/write_histrac.h

    r633 r634  
    1212     
    1313      i = NINT(zout/zsto)
    14       CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
    15       CALL histwrite(nid_tra,"phis",itau_w,zx_tmp_2d,iim*(jjm+1),ndex2d)
     14cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,pphis,zx_tmp_2d)
     15      CALL histwrite_phy(nid_tra,"phis",itau_w,pphis)
    1616C
    17       CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)     
    18       CALL histwrite(nid_tra,"aire",itau_w,zx_tmp_2d,iim*(jjm+1),ndex2d)
    19 #ifdef INCA
    20       CALL gr_fi_ecrit(1, klon,iim,jjm+1, ps,zx_tmp_2d)
    21       CALL histwrite(nid_tra,"ps",itau_w,zx_tmp_2d,
    22      .     iim*(jjm+1),ndex2d)
    23 
    24       CALL gr_fi_ecrit(1, klon,iim,jjm+1, ptrop,zx_tmp_2d)
    25       CALL histwrite(nid_tra,"ptrop",itau_w,zx_tmp_2d,
    26      .     iim*(jjm+1),ndex2d)
     17cym      CALL gr_fi_ecrit(1,klon,iim,jjm+1,airephy,zx_tmp_2d)     
     18      CALL histwrite_phy(nid_tra,"aire",itau_w,airephy)
     19#ifdef INCA
     20cym      CALL gr_fi_ecrit(1, klon,iim,jjm+1, ps,zx_tmp_2d)
     21      CALL histwrite_phy(nid_tra,"ps",itau_w,ps)
     22
     23      print *,"WRITE PTROP"
     24cym      CALL gr_fi_ecrit(1, klon,iim,jjm+1, ptrop,zx_tmp_2d)
     25      CALL histwrite_phy(nid_tra,"ptrop",itau_w,ptrop)
    2726
    2827C   3d FIELDS
    29 
    30       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri, zx_tmp_3d)
    31       CALL histwrite(nid_tra,"temp",itau_w,zx_tmp_3d,
    32      .                                   iim*(jjm+1)*klev,ndex3d)
    33 
    34       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,u, zx_tmp_3d)
    35       CALL histwrite(nid_tra,"u",itau_w,zx_tmp_3d,
    36      .                                   iim*(jjm+1)*klev,ndex3d)
    37 
    38       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,v, zx_tmp_3d)
    39       CALL histwrite(nid_tra,"v",itau_w,zx_tmp_3d,
    40      .                                   iim*(jjm+1)*klev,ndex3d)
    41 
    42       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,sh, zx_tmp_3d)
    43       CALL histwrite(nid_tra,"h2o",itau_w,zx_tmp_3d,
    44      .                                   iim*(jjm+1)*klev,ndex3d)
    45 
    46       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pdel, zx_tmp_3d)
    47       CALL histwrite(nid_tra,"pdel",itau_w,zx_tmp_3d,
    48      .                                   iim*(jjm+1)*klev,ndex3d)
    49 
    50       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay, zx_tmp_3d)
    51       CALL histwrite(nid_tra,"pmid",itau_w,zx_tmp_3d,
    52      .                                   iim*(jjm+1)*klev,ndex3d)
     28     
     29       print *,"WRITE T_SERI"
     30cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri, zx_tmp_3d)
     31      CALL histwrite_phy(nid_tra,"temp",itau_w,t_seri)
     32
     33cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,u, zx_tmp_3d)
     34      CALL histwrite_phy(nid_tra,"u",itau_w,u)
     35
     36cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,v, zx_tmp_3d)
     37      CALL histwrite_phy(nid_tra,"v",itau_w,v)
     38
     39cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,sh, zx_tmp_3d)
     40      CALL histwrite_phy(nid_tra,"h2o",itau_w,sh)
     41
     42cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pdel, zx_tmp_3d)
     43      CALL histwrite_phy(nid_tra,"pdel",itau_w,pdel)
     44
     45cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay, zx_tmp_3d)
     46      CALL histwrite_phy(nid_tra,"pmid",itau_w,pplay)
     47
    5348
    5449! Ajout Anne
    5550!#ifdef INCA_AER
    56       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,airm, zx_tmp_3d)
    57       CALL histwrite(nid_tra,"airm",itau_w,zx_tmp_3d,
    58      .                                   iim*(jjm+1)*klev,ndex)
     51c      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,airm, zx_tmp_3d)
     52      CALL histwrite_phy(nid_tra,"airm",itau_w,airm)
    5953!#endif
    6054
    … …  
    6559      DO it=1, phtcnt
    6660      WRITE(str2,'(i2.2)') it
    67       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,it),
    68      .     zx_tmp_3d)
    69       CALL histwrite(nid_tra,"j"//str2,itau_w,zx_tmp_3d,
    70      .                                   iim*(jjm+1)*klev,ndex3d)
     61cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,it),
     62cym     .     zx_tmp_3d)
     63      CALL histwrite_phy(nid_tra,"j"//str2,itau_w,jrates(:,:,it))
    7164      ENDDO
    7265
    7366      DO it=1, hetcnt
    7467      WRITE(str2,'(i2.2)') it
    75       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hrates(1,1,it),
    76      .     zx_tmp_3d)
    77       CALL histwrite(nid_tra,"w"//str2,itau_w,zx_tmp_3d,
    78      .                                   iim*(jjm+1)*klev,ndex3d)
     68cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hrates(1,1,it),
     69cym     .     zx_tmp_3d)
     70      CALL histwrite_phy(nid_tra,"w"//str2,itau_w,hrates(:,:,it))
    7971      ENDDO
    8072
    8173      DO it=1, extcnt
    8274      WRITE(str2,'(i2.2)') it
    83       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,extflx(1,1,it),
    84      .     zx_tmp_3d)
    85       CALL histwrite(nid_tra,"ext"//str2,itau_w,zx_tmp_3d,
    86      .                                   iim*(jjm+1)*klev,ndex3d)
     75cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,extflx(1,1,it),
     76cym     .     zx_tmp_3d)
     77      CALL histwrite_phy(nid_tra,"ext"//str2,itau_w,extflx(:,:,it))
    8778      ENDDO
    8879
    8980      DO it=1, nfs
    9081      WRITE(str2,'(i2.2)') it
    91       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,invariants(1,1,it),
    92      .     zx_tmp_3d)
    93       CALL histwrite(nid_tra,"INV"//str2,itau_w,zx_tmp_3d,
    94      .                                   iim*(jjm+1)*klev,ndex3d)
     82cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,invariants(1,1,it),
     83cym     .     zx_tmp_3d)
     84      CALL histwrite_phy(nid_tra,"INV"//str2,itau_w,invariants(:,:,it))
    9585      ENDDO
    9686#else
    97       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,2),
    98      .     zx_tmp_3d)
    99       CALL histwrite(nid_tra,"jO3",itau_w,zx_tmp_3d,
    100      .                                   iim*(jjm+1)*klev,ndex3d)
    101 
    102       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,4),
    103      .     zx_tmp_3d)
    104       CALL histwrite(nid_tra,"jNO2",itau_w,zx_tmp_3d,
    105      .                                   iim*(jjm+1)*klev,ndex3d)
    106 
    107       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,13),
    108      .     zx_tmp_3d)
    109       CALL histwrite(nid_tra,"jH2O2",itau_w,zx_tmp_3d,
    110      .                                   iim*(jjm+1)*klev,ndex3d)
    111 
    112       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hrates(1,1,1),
    113      .     zx_tmp_3d)
    114       CALL histwrite(nid_tra,"wHNO3",itau_w,zx_tmp_3d,
    115      .                                   iim*(jjm+1)*klev,ndex3d)
    116 
    117       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,krates(1,1,1),
    118      .     zx_tmp_3d)
    119       CALL histwrite(nid_tra,"kN2O5",itau_w,zx_tmp_3d,
    120      .                                   iim*(jjm+1)*klev,ndex3d)
    121 
    122       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,extflx(1,1,1),
    123      .     zx_tmp_3d)
    124       CALL histwrite(nid_tra,"LghtNO",itau_w,zx_tmp_3d,
    125      .                                   iim*(jjm+1)*klev,ndex3d)
     87cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,2),
     88cym    .     zx_tmp_3d)
     89      CALL histwrite_phy(nid_tra,"jO3",itau_w,jrates(:,:,2))
     90
     91cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,4),
     92cym     .     zx_tmp_3d)
     93      CALL histwrite_phy(nid_tra,"jNO2",itau_w,jrates(:,:,4))
     94
     95cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,jrates(1,1,13),
     96cym     .     zx_tmp_3d)
     97      CALL histwrite_phy(nid_tra,"jH2O2",itau_w,jrates(:,:,13))
     98
     99cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hrates(1,1,1),
     100cym     .     zx_tmp_3d)
     101      CALL histwrite_phy(nid_tra,"wHNO3",itau_w,hrates(:,:,1))
     102
     103cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,krates(1,1,1),
     104cym     .     zx_tmp_3d)
     105      CALL histwrite_phy(nid_tra,"kN2O5",itau_w,krates(:,:,1))
     106
     107cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,extflx(1,1,1),
     108cym     .     zx_tmp_3d)
     109      CALL histwrite_phy(nid_tra,"LghtNO",itau_w,extflx(:,:,1))
    126110#endif
    127111      DO it=1, grpcnt
    128112
    129       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,nas(1,1,it),zx_tmp_3d)
    130       zx_tmp_3d = zx_tmp_3d * dry_mass / nadv_mass(it)
    131       CALL histwrite(nid_tra,grpsym(it),itau_w,zx_tmp_3d,
    132      .                                   iim*(jjm+1)*klev,ndex3d)
     113cym      CALL gr_fi_ecrit(klev,klon,iim,jjm+1,nas(1,1,it),zx_tmp_3d)
     114cym      zx_tmp_3d = zx_tmp_3d * dry_mass / nadv_mass(it)
     115      CALL histwrite_phy(nid_tra,grpsym(it),itau_w,
     116     .          nas(:,:,it)* dry_mass / nadv_mass(it))
    133117      ENDDO
    134118#endif
    … …  
    137121
    138122      it = id_CIDUSTM
    139        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,scavcoef_st(1,1,it),
    140      .                  zx_tmp_3d)
    141        CALL histwrite(nid_tra2,"scavcoef_st",itau_w,zx_tmp_3d,
    142      .                  iim*(jjm+1)*klev,ndex3d)
    143        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,scavcoef_cv(1,1,it),
    144      .                  zx_tmp_3d)
    145        CALL histwrite(nid_tra2,"scavcoef_cv",itau_w,zx_tmp_3d,
    146      .                  iim*(jjm+1)*klev,ndex3d)
     123cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,scavcoef_st(1,1,it),
     124cym     .                  zx_tmp_3d)
     125       CALL histwrite_phy(nid_tra,"scavcoef_st",itau_w,
     126     .                scavcoef_st(:,:,it))
     127cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,scavcoef_cv(1,1,it),
     128cym     .                  zx_tmp_3d)
     129       CALL histwrite_phy(nid_tra,"scavcoef_cv",itau_w,
     130     .                 scavcoef_cv(:,:,it))
    147131
    148132       CALL gr_fi_ecrit(1, klon,iim,jjm+1,angst(1),zx_tmp_2d)
    149        CALL histwrite(nid_tra2,"AngstroemComp",itau_w,zx_tmp_2d,
    150      .                     iim*(jjm+1),ndex2d)
     133       CALL histwrite_phy(nid_tra2,"AngstroemComp",itau_w,angst(:))
    151134
    152135#endif
    … …  
    157140#ifdef INCA
    158141      IF ( prt_flag_ts(it) == 0 ) CYCLE
    159       CALL gr_fi_ecrit(1, klon,iim,jjm+1, eflux(1,it),zx_tmp_2d)
    160       CALL histwrite(nid_tra,"Emi_"//solsym(it),itau_w,zx_tmp_2d,
    161      .     iim*(jjm+1),ndex2d)
    162 
    163       CALL gr_fi_ecrit(1, klon,iim,jjm+1, dvel(1,it),zx_tmp_2d)
    164       CALL histwrite(nid_tra,"Dep_"//solsym(it),itau_w,zx_tmp_2d,
    165      .     iim*(jjm+1),ndex2d)
     142cym      CALL gr_fi_ecrit(1, klon,iim,jjm+1, eflux(1,it),zx_tmp_2d)
     143      CALL histwrite_phy(nid_tra,"Emi_"//solsym(it),itau_w,
     144     .               eflux(:,it))
     145
     146cym      CALL gr_fi_ecrit(1, klon,iim,jjm+1, dvel(1,it),zx_tmp_2d)
     147      CALL histwrite_phy(nid_tra,"Dep_"//solsym(it),itau_w,
     148     .               dvel(:,it))
    166149#ifdef INCA_AER
    167150      call diag(airephy,tr_seri)
    168151
    169152      IF  ((it .ge. trmx) .and. (it .le. trnx)) then
    170         CALL gr_fi_ecrit(1, klon,iim,jjm+1,sflux(1,it),zx_tmp_2d)
    171         CALL histwrite(nid_tra2,"Sed_"//solsym(it),itau_w,
    172      .         zx_tmp_2d,iim*(jjm+1),ndex2d)
    173 
    174         CALL gr_fi_ecrit(1, klon,iim,jjm+1,dflux(1,it),zx_tmp_2d)
    175         CALL histwrite(nid_tra2,"Dry_"//solsym(it),itau_w,zx_tmp_2d,
    176      .                 iim*(jjm+1),ndex2d)
    177         CALL gr_fi_ecrit(1, klon,iim,jjm+1,wflux(1,it),zx_tmp_2d)
    178         CALL histwrite(nid_tra2,"Wet_"//solsym(it),itau_w,zx_tmp_2d,
    179      .               iim*(jjm+1),ndex2d)
    180         CALL gr_fi_ecrit(1, klon,iim,jjm+1,wsflux(1,it),zx_tmp_2d)
    181         CALL histwrite(nid_tra2,"WetST_"//solsym(it),itau_w,zx_tmp_2d,
    182      .            iim*(jjm+1),ndex2d)
    183         CALL gr_fi_ecrit(1, klon,iim,jjm+1,wcflux(1,it),zx_tmp_2d)
    184         CALL histwrite(nid_tra2,"WetCV_"//solsym(it),itau_w,zx_tmp_2d,
    185      .         iim*(jjm+1),ndex2d)
    186 
    187         CALL gr_fi_ecrit(klev, klon,iim,jjm+1,eflux_alt(1,1,it),zx_tmp_3d)
    188         CALL histwrite(nid_tra2,"Emi_alt_"//solsym(it),itau_w,zx_tmp_3d,
    189      .              iim*(jjm+1)*klev,ndex3d)
    190 
    191         CALL gr_fi_ecrit(1, klon,iim,jjm+1,aload(1,it),zx_tmp_2d)
    192         CALL histwrite(nid_tra2,"Load_"//solsym(it),itau_w,zx_tmp_2d,
    193      .              iim*(jjm+1),ndex2d)
    194         CALL histwrite(nid_tra3,"Inst_Load_"//solsym(it),itau_w,zx_tmp_2d,
    195      .             iim*(jjm+1),ndex2d)
    196 
    197         CALL gr_fi_ecrit(1, klon,iim,jjm+1,sconc(1,it),zx_tmp_2d)
    198         CALL histwrite(nid_tra2,"SConc_"//solsym(it),itau_w,zx_tmp_2d,
    199      .           iim*(jjm+1),ndex2d)
     153cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,sflux(1,it),zx_tmp_2d)
     154        CALL histwrite_phy(nid_tra2,"Sed_"//solsym(it),itau_w,
     155     .        sflux(:,it))
     156
     157cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,dflux(1,it),zx_tmp_2d)
     158        CALL histwrite_phy(nid_tra2,"Dry_"//solsym(it),itau_w,
     159     .                 dflux(:,it))
     160cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,wflux(1,it),zx_tmp_2d)
     161        CALL histwrite_phy(nid_tra2,"Wet_"//solsym(it),itau_w,
     162     .                 wflux(:,it))
     163cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,wsflux(1,it),zx_tmp_2d)
     164        CALL histwrite_phy(nid_tra2,"WetST_"//solsym(it),itau_w,
     165     .                 wsflux(:,it))
     166cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,wcflux(1,it),zx_tmp_2d)
     167        CALL histwrite_phy(nid_tra2,"WetCV_"//solsym(it),itau_w,
     168     .                 wcflux(:,it))
     169
     170cym        CALL gr_fi_ecrit(klev, klon,iim,jjm+1,eflux_alt(1,1,it),zx_tmp_3d)
     171        CALL histwrite_phy(nid_tra2,"Emi_alt_"//solsym(it),itau_w,
     172     .                 eflux_alt(:,:,it))
     173
     174cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,aload(1,it),zx_tmp_2d)
     175        CALL histwrite_phy(nid_tra2,"Load_"//solsym(it),itau_w,
     176     .                 aload(:,it))
     177        CALL histwrite_phy(nid_tra3,"Inst_Load_"//solsym(it),itau_w,
     178     .             aload(:,it))
     179
     180cym        CALL gr_fi_ecrit(1, klon,iim,jjm+1,sconc(1,it),zx_tmp_2d)
     181        CALL histwrite_phy(nid_tra2,"SConc_"//solsym(it),itau_w,
     182     .                sconc(:,it))
    200183
    201184        do la=1,las
    202           CALL gr_fi_ecrit(1, klon,iim,jjm+1,tausum(1,la,it),zx_tmp_2d)
    203           CALL histwrite(nid_tra2,"OD_"//cla(la)//solsym(it),itau_w,zx_tmp_2d,
    204      .                    iim*(jjm+1),ndex2d)
     185cym          CALL gr_fi_ecrit(1, klon,iim,jjm+1,tausum(1,la,it),zx_tmp_2d)
     186          CALL histwrite_phy(nid_tra2,"OD_"//cla(la)//solsym(it),
     187     .                       itau_w,tausum(:,la,it))
    205188        enddo
    206189
    207         CALL gr_fi_ecrit(klev, klon,iim,jjm+1,md(1,1,it),zx_tmp_3d)
    208         CALL histwrite(nid_tra2,"MD_"//solsym(it),itau_w,zx_tmp_3d,
    209      .              iim*(jjm+1)*klev,ndex3d)
     190cym        CALL gr_fi_ecrit(klev, klon,iim,jjm+1,md(1,1,it),zx_tmp_3d)
     191        CALL histwrite_phy(nid_tra2,"MD_"//solsym(it),itau_w,
     192     .                 md(:,:,it))
    210193
    211194      endif
    212195#endif
    213196C champs 3D
    214        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
    215 
     197cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
     198
     199       zx_tmp_fi3d(:,:)=tr_seri(:,:,it)
    216200       !Prefer vmr to mmr for transported species
    217201       if( adv_mass(it) /= 0. ) then
    … …  
    219203         if (it .lt. trmx) then
    220204#endif
    221        zx_tmp_3d = zx_tmp_3d * dry_mass / adv_mass(it)
     205       zx_tmp_fi3d(:,:)= zx_tmp_fi3d(:,:) * dry_mass / adv_mass(it)
    222206#ifdef INCA_AER
    223207         endif
    … …  
    226210#ifdef INCA
    227211       if ( solsym(it) == 'OX' ) then
    228        zx_tmp_3d = zx_tmp_3d * dry_mass / nadv_mass(id_o3)
     212       zx_tmp_fi3d(:,:)=zx_tmp_fi3d(:,:)*dry_mass/nadv_mass(id_o3)
    229213       end if
    230214#endif
    231215       end if
    232216
    233        CALL histwrite(nid_tra,solsym(it),itau_w,zx_tmp_3d,
    234      .                                   iim*(jjm+1)*klev,ndex3d)
     217       CALL histwrite_phy(nid_tra,solsym(it),itau_w,zx_tmp_fi3d)
    235218#else
    236219
    237        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
    238        CALL histwrite(nid_tra,tnom(it+2),itau_w,zx_tmp_3d,
    239      .                                   iim*(jjm+1)*klev,ndex3d)
     220cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,tr_seri(1,1,it),zx_tmp_3d)
     221       CALL histwrite_phy(nid_tra,tnom(it+2),itau_w,tr_seri(:,:,it))
    240222       if (lessivage) THEN
    241        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,flestottr(1,1,it),zx_tmp_3d)
    242        CALL histwrite(nid_tra,"fl"//tnom(it+2),itau_w,zx_tmp_3d,
    243      .                                   iim*(jjm+1)*klev,ndex3d)
     223cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,flestottr(1,1,it),zx_tmp_3d)
     224       CALL histwrite_phy(nid_tra,"fl"//tnom(it+2),itau_w,
     225     .                                   flestottr(:,:,it))
    244226      endif
    245227     
    246228c----Olivia
    247        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_th(1,1,it),zx_tmp_3d)
    248        CALL histwrite(nid_tra,"d_tr_th_"//tnom(it+2),itau_w,zx_tmp_3d,
    249      .                                   iim*(jjm+1)*klev,ndex3d)
    250        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cv(1,1,it),zx_tmp_3d)
    251        CALL histwrite(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w,zx_tmp_3d,
    252      .                                   iim*(jjm+1)*klev,ndex3d)
    253        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cl(1,1,it),zx_tmp_3d)
    254        CALL histwrite(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w,zx_tmp_3d,
    255      .                                   iim*(jjm+1)*klev,ndex3d)
     229cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_th(1,1,it),zx_tmp_3d)
     230       CALL histwrite_phy(nid_tra,"d_tr_th_"//tnom(it+2),itau_w,
     231     .                                   d_tr_th(:,:,it))
     232cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cvi(1,1,it),zx_tmp_3d)
     233       CALL histwrite_phy(nid_tra,"d_tr_cv_"//tnom(it+2),itau_w,
     234     .                                  d_tr_cvi(:,:,it))
     235cym       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,d_tr_cli(1,1,it),zx_tmp_3d)
     236       CALL histwrite_phy(nid_tra,"d_tr_cl_"//tnom(it+2),itau_w,
     237     .                                   d_tr_cli(:,:,it))
    256238c---fin Olivia     
    257239     
    … …  
    261243#ifdef INCA
    262244!#ifdef INCA_CH4
    263       CALL gr_fi_ecrit(1, klon,iim,jjm+1, o3_col(1), zx_tmp_2d)
    264       CALL histwrite(nid_tra,"O3_column",itau_w,zx_tmp_2d,
    265      .     iim*(jjm+1),ndex2d)
    266 
    267       CALL gr_fi_ecrit(1, klon,iim,jjm+1, co_col(1), zx_tmp_2d)
    268       CALL histwrite(nid_tra,"CO_column",itau_w,zx_tmp_2d,
    269      .     iim*(jjm+1),ndex2d)
    270 
    271       CALL gr_fi_ecrit(1, klon,iim,jjm+1, ch4_col(1), zx_tmp_2d)
    272       CALL histwrite(nid_tra,"CH4_column",itau_w,zx_tmp_2d,
    273      .     iim*(jjm+1),ndex2d)
    274 
    275       CALL gr_fi_ecrit(1, klon,iim,jjm+1, no2_col(1), zx_tmp_2d)
    276       CALL histwrite(nid_tra,"NO2_column",itau_w,zx_tmp_2d,
    277      .     iim*(jjm+1),ndex2d)
    278 
    279       CALL gr_fi_ecrit(1, klon,iim,jjm+1, o3_st_flx(1), zx_tmp_2d)
    280       CALL histwrite(nid_tra,"O3_ste",itau_w,zx_tmp_2d,
    281      .     iim*(jjm+1),ndex2d)
    282 
    283       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,o3_prod(1,1),
    284      .     zx_tmp_3d)
    285       CALL histwrite(nid_tra,"O3_prod",itau_w,zx_tmp_3d,
    286      .                                   iim*(jjm+1)*klev,ndex3d)
    287 
    288       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,o3_loss(1,1),
    289      .     zx_tmp_3d)
    290       CALL histwrite(nid_tra,"O3_loss",itau_w,zx_tmp_3d,
    291      .                                   iim*(jjm+1)*klev,ndex3d)
     245      CALL histwrite_phy(nid_tra,"O3_column",itau_w,o3_col)
     246
     247      CALL histwrite_phy(nid_tra,"CO_column",itau_w,co_col)
     248
     249      CALL histwrite_phy(nid_tra,"CH4_column",itau_w,ch4_col)
     250
     251      CALL histwrite_phy(nid_tra,"NO2_column",itau_w,no2_col)
     252
     253      CALL histwrite_phy(nid_tra,"O3_ste",itau_w,o3_st_flx)
     254
     255      CALL histwrite_phy(nid_tra,"O3_prod",itau_w,o3_prod)
     256
     257      CALL histwrite_phy(nid_tra,"O3_loss",itau_w,o3_loss)
     258
    292259! Ajout Anne
    293260#ifdef INCA_AER
    294261! for sulfur cycle
    295262
    296       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,SO2_p_dmsoh(1,1),
    297      .     zx_tmp_3d)
    298       CALL histwrite(nid_tra,"SO2_p_dmsoh",itau_w,zx_tmp_3d,
    299      .                                   iim*(jjm+1)*klev,ndex)
    300 
    301       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,SO2_p_dmsno3(1,1),
    302      .     zx_tmp_3d)
    303       CALL histwrite(nid_tra,"SO2_p_dmsno3",itau_w,zx_tmp_3d,
    304      .                                   iim*(jjm+1)*klev,ndex)
    305 
    306       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,SO2_p_h2soh(1,1),
    307      .     zx_tmp_3d)
    308       CALL histwrite(nid_tra,"SO2_p_h2soh",itau_w,zx_tmp_3d,
    309      .                                   iim*(jjm+1)*klev,ndex)
    310 
    311       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,SO2_p_dmsooh(1,1),
    312      .     zx_tmp_3d)
    313       CALL histwrite(nid_tra,"SO2_p_dmsooh",itau_w,zx_tmp_3d,
    314      .                                   iim*(jjm+1)*klev,ndex)
    315 
    316       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,DMSO_p_dmsoh(1,1),
    317      .     zx_tmp_3d)
    318       CALL histwrite(nid_tra,"DMSO_p_dmsoh",itau_w,zx_tmp_3d,
    319      .                                   iim*(jjm+1)*klev,ndex)
    320 
    321       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,ASMSAM_p_dmsooh(1,1),
    322      .     zx_tmp_3d)
    323       CALL histwrite(nid_tra,"ASMSAM_p_dmsooh",itau_w,zx_tmp_3d,
    324      .                                   iim*(jjm+1)*klev,ndex)
    325 
    326       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,ASSO4M_p_so2oh(1,1),
    327      .     zx_tmp_3d)
    328       CALL histwrite(nid_tra,"ASSO4M_p_so2oh",itau_w,zx_tmp_3d,
    329      .                                   iim*(jjm+1)*klev,ndex)
    330       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,ASSO4M_p_so2h2o2(1,1),
    331      .     zx_tmp_3d)
    332       CALL histwrite(nid_tra,"ASSO4M_p_so2h2o2",itau_w,zx_tmp_3d,
    333      .                                   iim*(jjm+1)*klev,ndex)
    334 
    335       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,ASSO4M_p_so2o3(1,1),
    336      .     zx_tmp_3d)
    337       CALL histwrite(nid_tra,"ASSO4M_p_so2o3",itau_w,zx_tmp_3d,
    338      .                                   iim*(jjm+1)*klev,ndex)
     263      CALL histwrite_phy(nid_tra,"SO2_p_dmsoh",itau_w,SO2_p_dmsoh)
     264
     265      CALL histwrite_phy(nid_tra,"SO2_p_dmsno3",itau_w,SO2_p_dmsno3)
     266
     267      CALL histwrite_phy(nid_tra,"SO2_p_h2soh",itau_w,SO2_p_h2soh)
     268
     269      CALL histwrite_phy(nid_tra,"SO2_p_dmsooh",itau_w,SO2_p_dmsooh)
     270
     271      CALL histwrite_phy(nid_tra,"DMSO_p_dmsoh",itau_w,DMSO_p_dmsoh)
     272
     273      CALL histwrite_phy(nid_tra,"ASMSAM_p_dmsooh",itau_w,ASMSAM_p_dmsooh)
     274
     275      CALL histwrite_phy(nid_tra,"ASSO4M_p_so2oh",itau_w,ASSO4M_p_so2oh)
     276
     277      CALL histwrite_phy(nid_tra,"ASSO4M_p_so2h2o2",itau_w,ASSO4M_p_so2h2o2)
     278
     279      CALL histwrite_phy(nid_tra,"ASSO4M_p_so2o3",itau_w,ASSO4M_p_so2o3)
    339280
    340281c closing the sulfur budget
    341       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, wet3d_so2(1,1), zx_tmp_3d)
    342       CALL histwrite(nid_tra,"Wet3D_SO2",itau_w,zx_tmp_3d,
    343      .     iim*(jjm+1)*klev,ndex)
    344       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, wet3d_dms(1,1), zx_tmp_3d)
    345       CALL histwrite(nid_tra,"Wet3D_DMS",itau_w,zx_tmp_3d,
    346      .     iim*(jjm+1)*klev,ndex)
    347       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, wet3d_hno3(1,1), zx_tmp_3d)
    348       CALL histwrite(nid_tra,"Wet3D_HNO3",itau_w,zx_tmp_3d,
    349      .     iim*(jjm+1)*klev,ndex)
    350       CALL gr_fi_ecrit(klev,klon,iim,jjm+1, wet3d_h2o2(1,1), zx_tmp_3d)
    351       CALL histwrite(nid_tra,"Wet3D_H2O2",itau_w,zx_tmp_3d,
    352      .     iim*(jjm+1)*klev,ndex)
    353 
    354 
    355       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,PH_HIST(1,1),
    356      .     zx_tmp_3d)
    357       CALL histwrite(nid_tra,"PH_HIST",itau_w,zx_tmp_3d,
    358      .                                   iim*(jjm+1)*klev,ndex)
     282      CALL histwrite_phy(nid_tra,"Wet3D_SO2",itau_w,wet3d_so2)
     283      CALL histwrite_phy(nid_tra,"Wet3D_DMS",itau_w,wet3d_dms)
     284      CALL histwrite_phy(nid_tra,"Wet3D_HNO3",itau_w,wet3d_hno3)
     285      CALL histwrite_phy(nid_tra,"Wet3D_H2O2",itau_w,wet3d_h2o2)
     286
     287
     288      CALL histwrite_phy(nid_tra,"PH_HIST",itau_w,PH_HIST)
    359289#endif
    360290
    361291#ifdef INCA_NMHC
    362       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,CO2_basprod(1,1),
    363      .     zx_tmp_3d)
    364       CALL histwrite(nid_tra,"CO2_basprod",itau_w,zx_tmp_3d,
    365      .                                   iim*(jjm+1)*klev,ndex)
    366 
    367       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,CO2_nmhcprod(1,1),
    368      .     zx_tmp_3d)
    369       CALL histwrite(nid_tra,"CO2_nmhcprod",itau_w,zx_tmp_3d,
    370      .                                   iim*(jjm+1)*klev,ndex)
    371 
    372       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,CO2_radicalprod(1,1),
    373      .     zx_tmp_3d)
    374       CALL histwrite(nid_tra,"CO2_radicalprod",itau_w,zx_tmp_3d,
    375      .                                   iim*(jjm+1)*klev,ndex)
    376 
    377       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hno3_prod(1,1),
    378      .     zx_tmp_3d)
    379       CALL histwrite(nid_tra,"HNO3_prod",itau_w,zx_tmp_3d,
    380      .                                   iim*(jjm+1)*klev,ndex)
    381 
    382       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,hno3_loss(1,1),
    383      .     zx_tmp_3d)
    384       CALL histwrite(nid_tra,"HNO3_loss",itau_w,zx_tmp_3d,
    385      .                                   iim*(jjm+1)*klev,ndex)
    386 
    387       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,co_prod(1,1),
    388      .     zx_tmp_3d)
    389       CALL histwrite(nid_tra,"CO_prod",itau_w,zx_tmp_3d,
    390      .                                   iim*(jjm+1)*klev,ndex)
    391 
    392       CALL gr_fi_ecrit(klev,klon,iim,jjm+1,co_loss(1,1),
    393      .     zx_tmp_3d)
    394       CALL histwrite(nid_tra,"CO_loss",itau_w,zx_tmp_3d,
    395      .                                   iim*(jjm+1)*klev,ndex)
     292      CALL histwrite_phy(nid_tra,"CO2_basprod",itau_w,CO2_basprod)
     293
     294      CALL histwrite_phy(nid_tra,"CO2_nmhcprod",itau_w,CO2_nmhcprod)
     295
     296      CALL histwrite_phy(nid_tra,"CO2_radicalprod",itau_w,CO2_radicalprod)
     297
     298      CALL histwrite_phy(nid_tra,"HNO3_prod",itau_w,hno3_prod)
     299
     300      CALL histwrite_phy(nid_tra,"HNO3_loss",itau_w,hno3_loss)
     301
     302      CALL histwrite_phy(nid_tra,"CO_prod",itau_w,co_prod)
     303
     304      CALL histwrite_phy(nid_tra,"CO_loss",itau_w,co_loss)
    396305
    397306#endif
    … …  
    413322
    414323C abder
    415          CALL gr_fi_ecrit(1,klon,iim,jjm+1,yu1,zx_tmp_2d)
    416          CALL histwrite(nid_tra,"pyu1",itau_w,zx_tmp_2d,
    417      s                                  iim*(jjm+1),ndex2d)
    418 
    419          CALL gr_fi_ecrit(1,klon,iim,jjm+1,yv1,zx_tmp_2d)
    420          CALL histwrite(nid_tra,"pyv1",itau_w,zx_tmp_2d,
    421      s                                  iim*(jjm+1),ndex2d)
    422 
    423          CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol1,zx_tmp_2d)
    424          CALL histwrite(nid_tra,"ftsol1",itau_w,zx_tmp_2d,
    425      s                                       iim*(jjm+1),ndex2d)
    426 
    427          CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol2,zx_tmp_2d)
    428          CALL histwrite(nid_tra,"ftsol2",itau_w,zx_tmp_2d,
    429      s                                       iim*(jjm+1),ndex2d)
    430 
    431          CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol3,zx_tmp_2d)
    432          CALL histwrite(nid_tra,"ftsol3",itau_w,zx_tmp_2d,
    433      s                                      iim*(jjm+1),ndex2d)
    434 
    435          CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol4,zx_tmp_2d)
    436          CALL histwrite(nid_tra,"ftsol4",itau_w,zx_tmp_2d,
    437      s                                      iim*(jjm+1),ndex2d)
    438 
    439          CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf1,zx_tmp_2d)
    440          CALL histwrite(nid_tra,"psrf1",itau_w,zx_tmp_2d,
    441      s                                     iim*(jjm+1),ndex2d)
    442 
    443          CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf2,zx_tmp_2d)
    444          CALL histwrite(nid_tra,"psrf2",itau_w,zx_tmp_2d,
    445      s                                     iim*(jjm+1),ndex2d)
    446 
    447          CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf3,zx_tmp_2d)
    448          CALL histwrite(nid_tra,"psrf3",itau_w,zx_tmp_2d,
    449      s                                     iim*(jjm+1),ndex2d)
    450 
    451          CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf4,zx_tmp_2d)
    452          CALL histwrite(nid_tra,"psrf4",itau_w,zx_tmp_2d,
    453      s                                     iim*(jjm+1),ndex2d)
    454         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay,zx_tmp_3d)
    455         CALL histwrite(nid_tra,"pplay",itau_w,zx_tmp_3d,
    456      .                  iim*(jjm+1)*klev,ndex3d)
    457 
    458         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri,zx_tmp_3d)
    459         CALL histwrite(nid_tra,"t",itau_w,zx_tmp_3d,
    460      .                  iim*(jjm+1)*klev,ndex3d)
    461         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfu,zx_tmp_3d)
    462         CALL histwrite(nid_tra,"mfu",itau_w,zx_tmp_3d,
    463      .                  iim*(jjm+1)*klev,ndex3d)
    464         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfd,zx_tmp_3d)
    465         CALL histwrite(nid_tra,"mfd",itau_w,zx_tmp_3d,
    466      .                  iim*(jjm+1)*klev,ndex3d)
    467         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_u,zx_tmp_3d)
    468         CALL histwrite(nid_tra,"en_u",itau_w,zx_tmp_3d,
    469      .                  iim*(jjm+1)*klev,ndex3d)
    470         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_d,zx_tmp_3d)
    471         CALL histwrite(nid_tra,"en_d",itau_w,zx_tmp_3d,
    472      .                  iim*(jjm+1)*klev,ndex3d)
    473         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_d,zx_tmp_3d)
    474         CALL histwrite(nid_tra,"de_d",itau_w,zx_tmp_3d,
    475      .                  iim*(jjm+1)*klev,ndex3d)
    476         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_u,zx_tmp_3d)
    477         CALL histwrite(nid_tra,"de_u",itau_w,zx_tmp_3d,
    478      .                  iim*(jjm+1)*klev,ndex3d)
    479         CALL gr_fi_ecrit(klev,klon,iim,jjm+1,coefh,zx_tmp_3d)
    480         CALL histwrite(nid_tra,"coefh",itau_w,zx_tmp_3d,
    481      .                  iim*(jjm+1)*klev,ndex3d)
     324cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,yu1,zx_tmp_2d)
     325         CALL histwrite_phy(nid_tra,"pyu1",itau_w,yu1)
     326
     327cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,yv1,zx_tmp_2d)
     328         CALL histwrite_phy(nid_tra,"pyv1",itau_w,yv1)
     329
     330cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol1,zx_tmp_2d)
     331         CALL histwrite_phy(nid_tra,"ftsol1",itau_w,pftsol1)
     332
     333cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol2,zx_tmp_2d)
     334         CALL histwrite_phy(nid_tra,"ftsol2",itau_w,pftsol2)
     335
     336cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol3,zx_tmp_2d)
     337         CALL histwrite_phy(nid_tra,"ftsol3",itau_w,pftsol3)
     338
     339cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,pftsol4,zx_tmp_2d)
     340         CALL histwrite_phy(nid_tra,"ftsol4",itau_w,pftsol4)
     341
     342cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf1,zx_tmp_2d)
     343         CALL histwrite_phy(nid_tra,"psrf1",itau_w,ppsrf1)
     344
     345cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf2,zx_tmp_2d)
     346         CALL histwrite_phy(nid_tra,"psrf2",itau_w,ppsrf2)
     347
     348cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf3,zx_tmp_2d)
     349         CALL histwrite_phy(nid_tra,"psrf3",itau_w,ppsrf3)
     350
     351cym         CALL gr_fi_ecrit(1,klon,iim,jjm+1,ppsrf4,zx_tmp_2d)
     352         CALL histwrite_phy(nid_tra,"psrf4",itau_w,ppsrf4)
     353         
     354cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pplay,zx_tmp_3d)
     355        CALL histwrite_phy(nid_tra,"pplay",itau_w,pplay)
     356
     357cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,t_seri,zx_tmp_3d)
     358        CALL histwrite_phy(nid_tra,"t",itau_w,t_seri)
     359       
     360cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfu,zx_tmp_3d)
     361        CALL histwrite_phy(nid_tra,"mfu",itau_w,pmfu)
     362     
     363cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pmfd,zx_tmp_3d)
     364        CALL histwrite_phy(nid_tra,"mfd",itau_w,pmfd)
     365     
     366cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_u,zx_tmp_3d)
     367        CALL histwrite_phy(nid_tra,"en_u",itau_w,pen_u)
     368     
     369cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pen_d,zx_tmp_3d)
     370        CALL histwrite_phy(nid_tra,"en_d",itau_w,pen_d)
     371     
     372cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_d,zx_tmp_3d)
     373        CALL histwrite_phy(nid_tra,"de_d",itau_w,pde_d)
     374     
     375cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,pde_u,zx_tmp_3d)
     376        CALL histwrite_phy(nid_tra,"de_u",itau_w,pde_u)
     377     
     378cym        CALL gr_fi_ecrit(klev,klon,iim,jjm+1,coefh,zx_tmp_3d)
     379        CALL histwrite_phy(nid_tra,"coefh",itau_w,coefh)
    482380
    483381

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/yamada.F

    r633 r634  
    55     s   ,zlev,zlay,u,v,teta,cd,q2,km,kn,ustar
    66     s   ,l_mix)
     7      use dimphy
    78      IMPLICIT NONE
    89c.......................................................................
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112c.......................................................................
    1213c
    … …  
    4849
    4950      integer nlay,nlev
    50       PARAMETER (nlay=klev)
    51       PARAMETER (nlev=klev+1)
     51cym      PARAMETER (nlay=klev)
     52cym      PARAMETER (nlev=klev+1)
    5253
    5354      logical first
    … …  
    7778      fsm(ri)=1.96*(0.1912-ri)*(0.2341-ri)/((1.-ri)*(0.2231-ri))
    7879
     80      nlay=klev
     81      nlev=klev+1
     82     
    7983      if (0.eq.1.and.first) then
    8084      do ig=1,1000

  • LMDZ4/branches/LMDZ4_par_0/libf/phylmd/yamada4.F

    r633 r634  
    55     s   ,zlev,zlay,u,v,teta,cd,q2,km,kn,kq,ustar
    66     s   ,iflag_pbl)
     7      use dimphy
    78      IMPLICIT NONE
    89c.......................................................................
    9 #include "dimensions.h"
    10 #include "dimphy.h"
     10cym#include "dimensions.h"
     11cym#include "dimphy.h"
    1112c.......................................................................
    1213c
    … …  
    6465
    6566      integer nlay,nlev
    66       PARAMETER (nlay=klev)
    67       PARAMETER (nlev=klev+1)
     67cym      PARAMETER (nlay=klev)
     68cym      PARAMETER (nlev=klev+1)
    6869
    6970      logical first
    … …  
    8283      real dtetadz(klon,klev+1)
    8384      real m2cstat,mcstat,kmcstat
    84       real l(klon,klev+1),l0(klon)
    85       save l0
    86 
     85      real l(klon,klev+1)
     86      real,allocatable,save :: l0(:)
     87     
    8788      real sq(klon),sqz(klon),zz(klon,klev+1)
    8889      integer iter
    … …  
    9596      real fl,zzz,zl0,zq2,zn2
    9697
    97       real rino(klon,klev+1),smyam(klon,klev),styam(klon,klev)
    98      s  ,lyam(klon,klev),knyam(klon,klev)
    99      s  ,w2yam(klon,klev),t2yam(klon,klev)
    100       common/pbldiag/rino,smyam,styam,lyam,knyam,w2yam,t2yam
    101 
     98cym      real rino(klon,klev+1),smyam(klon,klev),styam(klon,klev)
     99cym     s  ,lyam(klon,klev),knyam(klon,klev)
     100cym     s  ,w2yam(klon,klev),t2yam(klon,klev)
     101      real,allocatable,save,dimension(:,:) :: rino,smyam,styam,lyam,
     102     s                                        knyam,w2yam,t2yam
     103cym      common/pbldiag/rino,smyam,styam,lyam,knyam,w2yam,t2yam
     104      logical,save :: firstcall=.true.
     105     
    102106      frif(ri)=0.6588*(ri+0.1776-sqrt(ri*ri-0.3221*ri+0.03156))
    103107      falpha(ri)=1.318*(0.2231-ri)/(0.2341-ri)
    … …  
    106110     s     max(min(l0(ig)*kap*zlev(ig,k)/(kap*zlev(ig,k)+l0(ig))
    107111     s     ,0.5*sqrt(q2(ig,k))/sqrt(max(n2(ig,k),1.e-10))) ,1.)
     112
     113
     114      nlay=klev
     115      nlev=klev+1
     116     
     117      if (firstcall) then
     118        allocate(rino(klon,klev+1),smyam(klon,klev),styam(klon,klev))
     119        allocate(lyam(klon,klev),knyam(klon,klev))
     120        allocate(w2yam(klon,klev),t2yam(klon,klev))
     121        allocate(l0(klon))
     122        firstcall=.false.
     123      endif
     124
    108125
    109126      if (.not.(iflag_pbl.ge.6.and.iflag_pbl.le.9)) then

  • LMDZ4/branches/LMDZ4_par_0/physiq.def

    r541 r634  
    44
    55OCEAN=force
    6 VEGET=y
    7 OK_journe=n
     6VEGET=n
     7OK_journe=y
    88OK_mensuel=y
    9 OK_instan=n
     9OK_instan=y
    1010if_ebil=0
    1111#
Note: See TracChangeset for help on using the changeset viewer.