Changeset 4203 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Ocean_skin
- Timestamp:
- Jul 19, 2022, 1:33:28 PM (2 years ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
/LMDZ6/trunk (added) merged: 4176,4184,4186-4187,4189-4191,4193-4195,4199
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Ocean_skin/config_ocean_skin_m.F90
r3834 r4203 11 11 ! the depth of a sensor, or the depth at the middle of the first 12 12 ! layer of an ocean model (half the depth of the first layer). In 13 ! m. Setting depth_1 to any value >= depth has the same effect as 14 ! setting depth_1 to depth. 13 ! m. Setting depth_1 to any value >= depth (named constant defined 14 ! in module `near_Surface_m`) has the same effect as setting depth_1 15 ! to depth. 15 16 16 17 !$omp threadprivate(jcool, jwarm, rain_effect, depth_1) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90
r3834 r4203 5 5 contains 6 6 7 #ifdef IN_LMDZ 7 8 real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p) 9 #else 10 elemental real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p) 11 #endif 8 12 9 13 ! Computes heat flux due to rainfall, in W m-2, positive 10 14 ! upward. 11 15 12 ! Do not declare this function as elemental because it may include13 ! YOMCST.h , which contains an OpenMP directive, and that only14 ! works inOpenMP 5.0.16 ! If in LMDZ, do not declare this function as elemental because 17 ! YOMCST.h contains an OpenMP directive, and that only works in 18 ! OpenMP 5.0. 15 19 16 20 use const, only: cpa, cpw, rgas
Note: See TracChangeset
for help on using the changeset viewer.