Ignore:
Timestamp:
Jun 4, 2007, 4:34:47 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/conlmd.F

    r524 r766  
    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
    … …  
    154156      INTEGER ncpt
    155157      SAVE ncpt
     158c$OMP THREADPRIVATE(ncpt)
    156159      REAL frac(nb) ! valeur de la maille fractionnelle
    157160      SAVE frac
     161c$OMP THREADPRIVATE(frac)
    158162      INTEGER opt_cld(nb) ! option pour le modele nuageux
    159163      SAVE opt_cld
     164c$OMP THREADPRIVATE(opt_cld)
    160165      LOGICAL appel1er
    161166      SAVE appel1er
     167c$OMP THREADPRIVATE(appel1er)
    162168c
    163169c Fonctions thermodynamiques:
    … …  
    301307     s                    d_t, d_q, d_ql, rneb,
    302308     s                    rain, snow, ibas, itop,accompli,imprim)
     309      USE dimphy
    303310      IMPLICIT none
    304311c======================================================================
    … …  
    309316c        et itop est le haut du plus haut bloc
    310317c======================================================================
    311 #include "dimensions.h"
    312 #include "dimphy.h"
     318cym#include "dimensions.h"
     319cym#include "dimphy.h"
    313320#include "YOMCST.h"
    314321c
    … …  
    10641071     s                  d_t, d_q, d_ql, rneb,
    10651072     s                  rain, snow, ibas, itop)
     1073      USE dimphy
    10661074      IMPLICIT none
    10671075c======================================================================
    … …  
    10711079c N.B. version vectorielle (le 6 oct. 1997)
    10721080c======================================================================
    1073 #include "dimensions.h"
    1074 #include "dimphy.h"
     1081cym#include "dimensions.h"
     1082cym#include "dimphy.h"
    10751083#include "YOMCST.h"
    10761084c
    … …  
    11451153      LOGICAL appel1er
    11461154      SAVE appel1er
     1155c$OMP THREADPRIVATE(appel1er)
    11471156c
    11481157c Fonctions thermodynamiques
    … …  
    15871596      END
    15881597      SUBROUTINE kuofcl(pt, pq, pg, pp, LDCUM, kcbot)
     1598      USE dimphy
    15891599      IMPLICIT none
    15901600c======================================================================
    … …  
    16031613c kcbot---output-I- Niveau du bas de la convection
    16041614c======================================================================
    1605 #include "dimensions.h"
    1606 #include "dimphy.h"
     1615cym#include "dimensions.h"
     1616cym#include "dimphy.h"
    16071617#include "YOMCST.h"
    16081618#include "YOETHF.h"
    … …  
    16881698      END
    16891699      SUBROUTINE adjtq(pp, pt, pq, LDFLAG, KCALL)
     1700      USE dimphy
    16901701      IMPLICIT none
    16911702c======================================================================
    … …  
    17061717C        KCALL=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    17071718C
    1708 #include "dimensions.h"
    1709 #include "dimphy.h"
     1719cym#include "dimensions.h"
     1720cym#include "dimphy.h"
    17101721#include "YOMCST.h"
    17111722C
    … …  
    17971808     .                 d_t, d_q, d_ql, rneb,
    17981809     .                 rain, snow, ibas, itop)
     1810      USE dimphy
    17991811      IMPLICIT NONE
    18001812c
    18011813c Ajustement humide (Schema de convection de Manabe)
    18021814C.
    1803 #include "dimensions.h"
    1804 #include "dimphy.h"
     1815cym#include "dimensions.h"
     1816cym#include "dimphy.h"
    18051817#include "YOMCST.h"
    18061818c
    … …  
    20952107     .                 d_t, d_q, d_ql,rneb,
    20962108     .                 rain, snow, ibas, itop)
     2109      USE dimphy
    20972110      IMPLICIT NONE
    20982111c
    2099 #include "dimensions.h"
    2100 #include "dimphy.h"
     2112cym#include "dimensions.h"
     2113cym#include "dimphy.h"
    21012114#include "YOMCST.h"
    21022115c
Note: See TracChangeset for help on using the changeset viewer.