Changeset 2586 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Nov 18, 2021, 11:39:59 AM (3 years ago)
Author:
romain.vande
Message:

LMDZ_MARS Implementation of Open_MP in the physic.
Works with radiative transfert

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/convadj.F

    r2311 r2586  
    8181      LOGICAL vtest(ngrid),down
    8282      logical,save :: firstcall=.true.
     83
     84
     85!$OMP THREADPRIVATE(ico2,A,B,firstcall)
    8386
    8487!     for conservation test
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/nltecool.F

    r2448 r2586  
    114114
    115115      logical    firstcall
     116     
     117!$OMP THREADPRIVATE(firstcall,ef1,ef2,co2vmr,n2covmr,o3pvmr,pnb)     
     118     
    116119      data       firstcall/.true./
    117120      save       firstcall,ef1,ef2,co2vmr,n2covmr,o3pvmr,pnb
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/pbl_parameters.F

    r1393 r2586  
    7777      REAL karman,nu
    7878      DATA karman,nu/.41,0.001/
     79
     80!$OMP THREADPRIVATE(karman,nu)
     81
    7982      SAVE karman,nu
    8083
  • TabularUnified trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

    r2584 r2586  
    88use dust_param_mod, only: odpref, dustscaling_mode
    99use planete_h, only: year_day
     10USE mod_phys_lmdz_transfert_para, ONLY: bcast
    1011implicit none
    1112
     
    8081     filename="dust_tes_MY26.nc"
    8182   endif
     83
     84
     85!$OMP MASTER
    8286   
    8387   ierr=nf90_open(trim(datadir)//"/"//trim(filename),NF90_NOWRITE,nid)
     
    107111   ierr=nf90_inquire_dimension(nid,londim,len=lonlen)
    108112
     113!$OMP END MASTER
     114
     115   call bcast(lonlen)
     116   call bcast(latlen)
     117   call bcast(timelen)
    109118
    110119   if (.not.allocated(tautes)) allocate(tautes(lonlen,latlen,timelen))
    111120   if (.not.allocated(lat)) allocate(lat(latlen), lon(lonlen), time(timelen))
     121
     122!$OMP MASTER
    112123
    113124   ! "dustop" if loading visible extinction opacity
     
    176187
    177188   ierr=nf90_close(nid)
     189
     190!$OMP END MASTER
     191
     192   call bcast(tautes)
     193   call bcast(time)
     194   call bcast(lat)
     195   call bcast(lon)
    178196
    179197endif ! of if (firstcall)
Note: See TracChangeset for help on using the changeset viewer.