Changeset 3703 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/o3_chem_m.F90

Timestamp:

Jun 11, 2020, 11:01:18 AM (4 years ago)

Author:

adurocher

Message:

Fixed compilation errors

• Fixed some OpenMP syntax errors for scorep
• Fix issues with ifort -check all -warn all -O0

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/o3_chem_m.F90 (modified) (3 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/o3_chem_m.F90

@@ -24 +24 @@
 
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
-    real, intent(in):: gmtime ! heure de la journée en fraction de jour
+    real, intent(in):: gmtime ! heure de la journ�e en fraction de jour
     real, intent(in):: t_seri(:, :) ! (klon, nbp_lev) temperature, in K
 
@@ -59 +59 @@
     real earth_long
     ! (longitude vraie de la Terre dans son orbite solaire, par
-    ! rapport au point vernal (21 mars), en degrés)
+    ! rapport au point vernal (21 mars), en degr�s)
 
     real pmu0(klon) ! mean of cosine of solar zenith angle during "pdtphys"
@@ -85 +85 @@
     ! Heterogeneous chemistry is only during daytime:
     call orbite(real(julien), earth_long, trash1)
-    call zenang(earth_long, gmtime, pdtphys, rlat, rlon, pmu0, trash2)
+    call zenang(earth_long, gmtime, 0., pdtphys, rlat, rlon, pmu0, trash2)
     forall (k = 1: nbp_lev)
        where (pmu0 <= cos(87. / 180. * pi)) b(:, k) = 0.