Ignore:
Timestamp:
May 4, 2005, 5:11:29 PM (19 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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.