Changeset 1573


Ignore:
Timestamp:
Sep 13, 2011, 5:34:02 PM (13 years ago)
Author:
jghattas
Message:
  • Added missing attribute SAVE.
  • Changed FORALL into DO loop because some OpenMP compilers do not permet FORALL within the body of an OpenMP SINGLE directive. (Titane)

/Martial Mancip

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3p_mixing.F

    r1519 r1573  
    8181      Rmix(F) = qqa1*Rmix1(F) + qqa2*Rmix2(F)
    8282C
    83       INTEGER ifrst
     83      INTEGER, SAVE :: ifrst
    8484      DATA ifrst/0/
    8585c$OMP THREADPRIVATE(ifrst)

  • LMDZ5/trunk/libf/phylmd/press_coefoz_m.F90

    r1403 r1573  
    6060       press_in_edg(1) = 0.
    6161       ! We choose edges halfway in logarithm:
    62        forall (k = 2:n_plev) press_in_edg(k) = sqrt(plev(k - 1) * plev(k))
     62       DO k = 2,n_plev
     63          press_in_edg(k) = SQRT(plev(k - 1) * plev(k))
     64       ENDDO
    6365       press_in_edg(n_plev + 1) = huge(0.)
    6466       ! (infinity, but any value guaranteed to be greater than the
Note: See TracChangeset for help on using the changeset viewer.