Changeset 3906 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

May 19, 2021, 12:35:18 PM (3 years ago)

Author:

jyg

Message:

1/ Bug fix in wx_pbl_mod.F90

2/ New pbl_split option:
iflag_pbl_split=3 ==> iflag_split=1 over ocean,

iflag_split=0 everywhere else.

File:

• LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -56 +56 @@
     REAL, DIMENSION(klon), INTENT(IN)        :: rmu0  
     REAL, DIMENSION(klon), INTENT(IN)        :: fder
-    REAL, INTENT(IN):: tsurf_in(klon) ! defined only for subscripts 1:knon
+    REAL, DIMENSION(klon), INTENT(IN)        :: tsurf_in     ! defined only for subscripts 1:knon
     REAL, DIMENSION(klon), INTENT(IN)        :: p1lay,z1lay ! pression (Pa) et altitude (m) du premier niveau
     REAL, DIMENSION(klon), INTENT(IN)        :: cdragh
@@ -74 +74 @@
     REAL, DIMENSION(klon), INTENT(INOUT)     :: qsurf
     REAL, DIMENSION(klon), INTENT(INOUT)     :: agesno
-    REAL, DIMENSION(klon), INTENT(inOUT):: z0h
+    REAL, DIMENSION(klon), INTENT(inOUT)     :: z0h
 
     REAL, intent(inout):: delta_sst(:) ! (knon)
@@ -98 +98 @@
     REAL, DIMENSION(klon), INTENT(OUT)       :: z0m
     !albedo SB >>>
-    !    REAL, DIMENSION(klon), INTENT(OUT)       :: alb1_new  ! new albedo in visible SW interval
-    !    REAL, DIMENSION(klon), INTENT(OUT)       :: alb2_new  ! new albedo in near IR interval
-    REAL, DIMENSION(6), INTENT(IN)          :: SFRWL 
-    REAL, DIMENSION(klon,nsw), INTENT(OUT)       :: alb_dir_new,alb_dif_new
+    !    REAL, DIMENSION(klon), INTENT(OUT)  :: alb1_new  ! new albedo in visible SW interval
+    !    REAL, DIMENSION(klon), INTENT(OUT)  :: alb2_new  ! new albedo in near IR interval
+    REAL, DIMENSION(6), INTENT(IN)           :: SFRWL 
+    REAL, DIMENSION(klon,nsw), INTENT(OUT)   :: alb_dir_new,alb_dif_new
     !albedo SB <<<     
     REAL, DIMENSION(klon), INTENT(OUT)       :: evap, fluxsens, fluxlat
-    REAL, INTENT(OUT):: tsurf_new(klon) ! sea surface temperature, in K
+    REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new    ! sea surface temperature, in K
     REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
     REAL, DIMENSION(klon), INTENT(OUT)       :: lmt_bils