Changeset 2043


Ignore:
Timestamp:
May 14, 2014, 1:09:20 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Pour compilation avec ifort

For ifort compilation

  1. Baek
Location:
LMDZ5/trunk/libf/phylmd
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/YOETHF.h

    r1907 r2043  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    … …  
    1717      REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
    1818      REAL RVTMP2, RHOH2O
     19      REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
     20      REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
    1921      COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
    20      &               RVTMP2, RHOH2O
     22     &               RVTMP2, RHOH2O,                                    &
     23     &               R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,                   &
     24     &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
     25     &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
     26     &               RKOOP2
     27
    2128!$OMP THREADPRIVATE(/YOETHF/)

  • LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

    r2003 r2043  
    6464!    &    RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF, RLINLI
    6565      USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
    66       USE YOETHF   , ONLY : RTICE
     66!      USE YOETHF   , ONLY : RTICE
    6767      USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK     
    6868      USE YOMPHY3  , ONLY : RII0

  • LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90

    r1990 r2043  
    144144 & RLILIA   ,RLILIB 
    145145USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
    146 USE YOETHF        , ONLY : RTICE
     146!USE YOETHF        , ONLY : RTICE
    147147USE YOEPHLI       , ONLY : LPHYLIN
    148148USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
    … …  
    154154
    155155include "clesphys.h"
    156 
     156include "YOETHF.h"
    157157INTEGER(KIND=JPIM),INTENT(IN)    :: KLON
    158158INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV

  • LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90

    r1990 r2043  
    289289  WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
    290290  WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
    291   call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
     291!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    292292   do j=1,9
    293293     print*,'TEST J',j
    … …  
    295295     print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
    296296   enddo
    297   call flush()
     297  call flush(0)
    298298
    299299  WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)

  • LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90

    r1990 r2043  
    6969USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
    7070 & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM
    71 USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
    72  & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
    73  & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
    74  & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
    75  & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
    76  & RKOOP1   ,RKOOP2
     71!USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
     72! & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
     73! & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
     74! & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
     75! & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
     76! & RKOOP1   ,RKOOP2
    7777USE YOMPHY   , ONLY : LRAYFM15
    7878!USE YOERAD   , ONLY : NSW      ,NTSW     ,&
    … …  
    8989
    9090IMPLICIT NONE
    91 
     91include "YOETHF.h"
    9292include "clesphys.h"
    9393
Note: See TracChangeset for help on using the changeset viewer.