Changeset 2322 for LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jul 7, 2015, 6:01:01 PM (9 years ago)

Author:

lguez

Message:

Bug fix in alboc_cd (more than 11 years old). rmu0 must not be
modified in alboc_cd. The corresponding actual argument in subroutine
surf_ocean is an intent(in) argument of surf_ocean. It probably worked
before because the compiler made a copy of the argument but I would
say the behavior was in principle compiler-dependent and
optimization-level-dependent.

File:

• LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -20 +20 @@
        flux_u1, flux_v1)
 
+  use albedo, only: alboc, alboc_cd
   USE dimphy
   USE surface_data, ONLY     : type_ocean