Changeset 1142


Ignore:
Timestamp:
Apr 7, 2009, 5:53:39 PM (16 years ago)
Author:
yann meurdesoif
Message:

Portage vers Vargas

Y.M + E.M

Location:
LMDZ4/branches/LMDZ4-dev
Files:
2 added
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F

    r1114 r1142  
    369369      CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,pphi,zphi)
    370370
    371 c$OMP MASTER
    372371      CALL gr_dyn_fi_p(1,iip1,jjp1,klon,pphis,zphis)
    373 c$OMP END MASTER
     372
    374373c$OMP BARRIER
    375374
    … …  
    895894c  tendance sur la pression :
    896895c  -----------------------------------
    897 c$OMP MASTER
    898896      CALL gr_fi_dyn_p(1,klon,iip1,jjp1,zdpsrf,pdpsfi)
    899 c$OMP END MASTER
    900897c
    901898c   62. enthalpie potentielle

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90

    r1000 r1142  
    207207      endif
    208208     
    209     ENDIF  ! using_mpî
     209    ENDIF  ! using_mp�
    210210  end subroutine allgather_timer_average
    211211 
    … …  
    222222  end subroutine InitTime
    223223 
    224   function DiffTime
     224  function DiffTime()
    225225  implicit none
    226226    double precision :: DiffTime
    … …  
    236236  end function DiffTime
    237237 
    238   function DiffCpuTime
     238  function DiffCpuTime()
    239239  implicit none
    240240    real :: DiffCpuTime

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90

    r1139 r1142  
    1616#include "thermcell.h"
    1717#include "iniprint.h"
    18 
    19 !  A inclure eventuellement dans les fichiers de configuration
    20       data r_aspect_thermals,l_mix_thermals/2.,30./
    21       data w2di_thermals/1/
    2218
    2319!IM 140508
    … …  
    176172     &      ,tau_thermals,3)
    177173          else if (iflag_thermals.eq.11) then
    178             stop'cas non prevu dans calltherm'
     174            stop 'cas non prevu dans calltherm'
    179175!           CALL thermcell_pluie(klon,klev,zdt  &
    180176!   &      ,pplay,paprs,pphi,zlev  &

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90

    r1069 r1142  
    460460!****************************************************************************************
    461461! Declarations specifiques pour le 1D. A reprendre
    462   REAL  :: fsens,flat
    463   LOGICAL ok_flux_surf
    464   DATA ok_flux_surf/.FALSE./
    465 !ym pas glop !!
    466   COMMON /flux_arp/fsens,flat,ok_flux_surf
    467 !$OMP THREADPRIVATE(/flux_arp/)
     462  REAL,SAVE    :: fsens,flat
     463  LOGICAL,SAVE :: ok_flux_surf=.FALSE.
     464!$OMP THREADPRIVATE(fsens,flat,ok_flux_surf)
    468465
    469466!****************************************************************************************

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h

    r1026 r1142  
    1       integer iflag_thermals,nsplit_thermals
    2       real r_aspect_thermals,l_mix_thermals,tau_thermals
    3       integer w2di_thermals,isplit
    4       integer iflag_coupl,iflag_clos,iflag_wake
    5       integer iflag_thermals_ed,iflag_thermals_optflux
     1      integer            :: iflag_thermals,nsplit_thermals
     2      real,parameter     :: r_aspect_thermals=2.,l_mix_thermals=30.
     3      real               :: tau_thermals
     4      integer,parameter  :: w2di_thermals=1
     5      integer            :: isplit
     6
     7      integer            :: iflag_coupl,iflag_clos,iflag_wake
     8      integer            :: iflag_thermals_ed,iflag_thermals_optflux
    69
    710      common/ctherm1/iflag_thermals,nsplit_thermals
    8       common/ctherm2/r_aspect_thermals,l_mix_thermals,tau_thermals
    9       common/ctherm3/w2di_thermals
     11      common/ctherm2/tau_thermals
    1012      common/ctherm4/iflag_coupl,iflag_clos,iflag_wake
    1113      common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux
    1214
    13 !$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm3/,/ctherm4/)
     15!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/)

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90

    r987 r1142  
    164164! FH Version en cours de test;
    165165! par rapport a thermcell_flux, on fait une grande boucle sur "l"
    166 ! et on modifie le flux avec tous les contrôles appliques d'affilee
     166! et on modifie le flux avec tous les contr�les appliques d'affilee
    167167! pour la meme couche
    168168! Momentanement, on duplique le calcule du flux pour pouvoir comparer
    … …  
    264264            if (entr(ig,l)<0.) then
    265265               print*,'N1 ig,l,entr',ig,l,entr(ig,l)
    266                stop'entr negatif'
     266               stop 'entr negatif'
    267267            endif
    268268            if (detr(ig,l).gt.fm(ig,l)) then
    … …  
    292292               print*,'entr(ig,l)',entr(ig,l)
    293293               print*,'fm(ig,l)',fm(ig,l)
    294                stop'probleme dans thermcell flux'
     294               stop 'probleme dans thermcell flux'
    295295            endif
    296296         enddo
    … …  
    319319               print*,'detr(ig,l)',detr(ig,l)
    320320               print*,'fm(ig,l)',fm(ig,l)
    321                stop'probleme dans thermcell flux'
     321               stop 'probleme dans thermcell flux'
    322322            endif
    323323        enddo
    … …  
    420420                         print*,'fm(ig,l+1)',fm(ig,l+1)
    421421                         print*,'fm(ig,l)',fm(ig,l)
    422                          stop'probleme dans thermcell_flux'
     422                         stop 'probleme dans thermcell_flux'
    423423                      endif
    424424                      entr(ig,l+1)=entr(ig,l+1)-ddd

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90

    r1026 r1142  
    160160! FH Version en cours de test;
    161161! par rapport a thermcell_flux, on fait une grande boucle sur "l"
    162 ! et on modifie le flux avec tous les contrôles appliques d'affilee
     162! et on modifie le flux avec tous les contr�les appliques d'affilee
    163163! pour la meme couche
    164164! Momentanement, on duplique le calcule du flux pour pouvoir comparer
    … …  
    256256            if (entr(ig,l)<0.) then
    257257               print*,'N1 ig,l,entr',ig,l,entr(ig,l)
    258                stop'entr negatif'
     258               stop 'entr negatif'
    259259            endif
    260260            if (detr(ig,l).gt.fm(ig,l)) then
    … …  
    285285               print*,'entr(ig,l)',entr(ig,l)
    286286               print*,'fm(ig,l)',fm(ig,l)
    287                stop'probleme dans thermcell flux'
     287               stop 'probleme dans thermcell flux'
    288288            endif
    289289         enddo
    … …  
    312312               print*,'detr(ig,l)',detr(ig,l)
    313313               print*,'fm(ig,l)',fm(ig,l)
    314                stop'probleme dans thermcell flux'
     314               stop 'probleme dans thermcell flux'
    315315            endif
    316316        enddo
    … …  
    413413                         print*,'fm(ig,l+1)',fm(ig,l+1)
    414414                         print*,'fm(ig,l)',fm(ig,l)
    415                          stop'probleme dans thermcell_flux'
     415                         stop 'probleme dans thermcell_flux'
    416416                      endif
    417417                      entr(ig,l+1)=entr(ig,l+1)-ddd

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90

    r1134 r1142  
    484484! Test valable seulement en 1D mais pas genant
    485485      if (.not. (f0(1).ge.0.) ) then
    486            stop'Dans thermcell_main'
     486           stop 'Dans thermcell_main'
    487487      endif
    488488
Note: See TracChangeset for help on using the changeset viewer.