Changeset 2608


Ignore:
Timestamp:
Jan 18, 2022, 3:26:51 PM (3 years ago)
Author:
romain.vande
Message:

LMDZ_MARS RV : Open_MP; Reading files in parallel for Dustdevil parametrisation
(callddevil = .true.)

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/README

    r2607 r2608  
    35713571== 18/01/2022 == RV
    35723572Open_MP files reading for NIR : callnirco2.and.nircorr.eq.1
     3573
     3574== 18/01/2022 == RV
     3575Open_MP files reading for Dustdevil : callddevil = .true.

  • trunk/LMDZ.MARS/libf/phymars/dustdevil.F

    r1779 r2608  
    55      use surfdat_h, only: z0_default
    66      USE comcstfi_h
     7      USE mod_phys_lmdz_para, only: is_master,bcast
    78      IMPLICIT NONE
    89
    … …  
    5253      real Cd, z1
    5354      save Cd
     55     
     56!$OMP THREADPRIVATE(Cd)
    5457
    5558      LOGICAL firstcall
    5659      SAVE firstcall
    5760
     61!$OMP THREADPRIVATE(firstcall)
    5862
    5963      REAL devila(ngrid)
    … …  
    6771      DATA q2top/.5/ ! value of q2 at the top of PBL
    6872      DATA seuil/.3/ ! value of minimum dust devil activity for dust lifting
     73     
     74!$OMP THREADPRIVATE(q2top,seuil)
    6975
    7076
    … …  
    8793
    8894      ! AS: OK firstcall absolute
     95
     96      if(is_master) then
    8997      IF (firstcall) THEN
    9098
    … …  
    105113     
    106114      ENDIF
     115      endif !ismaster
     116
     117      CALL bcast(z1)
     118      CALL bcast(Cd)
     119      CALL bcast(firstcall)
    107120
    108121c-----------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.