Changeset 3826 for trunk/LMDZ.VENUS


Ignore:
Timestamp:
Jul 3, 2025, 1:19:49 PM (4 weeks ago)
Author:
emillour
Message:

Venus PCM:

Some preliminary tidying with respect to OpenMP when initializing the
physics. Turned suphec into a module in the process.
EM

Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90

    r2135 r3826  
    88
    99real,save :: cpp ! reference Cp
     10!$OMP THREADPRIVATE(cpp)
    1011real,save :: nu_venus
     12!$OMP THREADPRIVATE(nu_venus)
    1113real,save :: t0_venus
     14!$OMP THREADPRIVATE(t0_venus)
    1215
    1316contains

  • trunk/LMDZ.VENUS/libf/phyvenus/suphec.F

    r2135 r3826  
    1 !
    2 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/suphec.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
    3 !
     1      MODULE suphec_mod
     2     
     3      IMPLICIT NONE
     4     
     5      CONTAINS
     6     
    47      SUBROUTINE suphec(cpp_)
    58C
    6 #include "YOMCST.h"
     9      include "YOMCST.h"
    710cIM cf. JLD
    8        REAL cpp_   ! from dynamics
    9        LOGICAL firstcall
    10        SAVE firstcall
    11        DATA firstcall /.TRUE./
     11       REAL,INTENT(IN) :: cpp_   ! from dynamics
     12
     13       LOGICAL, SAVE :: firstcall=.true.
     14!$OMP THREADPRIVATE(firstcall)
     15
    1216       IF (firstcall) THEN
    13          PRINT*, 'suphec initialise les constantes du GCM'
     17         PRINT*, 'suphec initialize some physics constants'
    1418         firstcall = .FALSE.
    1519       ELSE
    16          PRINT*, 'suphec DEJA APPELE '
     20         PRINT*, 'suphec HAS ALREADY BEEN CALLED '
    1721         RETURN
    1822       ENDIF
    … …  
    152156      WRITE(UNIT=6,FMT='(''     Rv/Rd-1  = '',e13.7)') RETV
    153157C
    154       RETURN
    155       END
     158
     159      END SUBROUTINE suphec
     160
     161      END MODULE suphec_mod
Note: See TracChangeset for help on using the changeset viewer.