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

Timestamp:

Feb 28, 2016, 12:30:51 PM (8 years ago)

Author:

jyg

Message:

Implementation of a second order distribution on

sub-surfaces of longwave net radiance (Alain
Lahellec).

Introduction of the flag iflag_order2_sollw:

=1 ==> second order distribution.
=0 ==> linear distribution (Default).

File:

• LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -36 +36 @@
 
     include "clesphys.h"
-    ! for cycle_diurne
+    ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
 
 ! Input variables
@@ -244 +244 @@
        z0h(i)=0.4*14e-6 / SQRT(cdragm(i) * tmp)
     ENDDO
+ELSE IF (iflag_z0_oce==-1) THEN
+    DO i = 1, knon
+       z0m(i) = z0min
+       z0h(i) = z0min
+    ENDDO
 ELSE
        CALL abort_physic(modname,'version non prevue',1)