Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE surf_ocean_mod
 
@@ -7 +7 @@
 
 CONTAINS
-  !
+
   !******************************************************************************
-  !
+
   SUBROUTINE surf_ocean(rlon, rlat, swnet, lwnet, alb1, &
        windsp, rmu0, fder, tsurf_in, &
@@ -45 +45 @@
     USE limit_read_mod
     USE config_ocean_skin_m, ONLY: activate_ocean_skin
-    !
+
     ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 
     ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 
@@ -196 +196 @@
     !******************************************************************************
     ! Calculate total net radiance at surface
-    !
+
     !******************************************************************************
     radsol(1:klon) = 0.0 ! initialisation a priori inutile
@@ -294 +294 @@
     IF (iflag_albedo==0) THEN
        !--old parametrizations of ocean surface albedo
-       !
+
        IF (iflag_cycle_diurne>=1) THEN
-          !
+
           CALL alboc_cd(rmu0,alb_eau)
-          !
+
           !--ad-hoc correction for model radiative balance tuning
           !--now outside alboc_cd routine
           alb_eau(1:klon) = fmagic*alb_eau(1:klon) + pmagic
           alb_eau(1:klon)=MIN(MAX(alb_eau(1:klon),0.0),1.0)
-          !
+
        ELSE
-          !
+
           CALL alboc(REAL(jour),rlat,alb_eau)
           !--ad-hoc correction for model radiative balance tuning
@@ -311 +311 @@
           alb_eau(1:klon) = fmagic*alb_eau(1:klon) + pmagic
           alb_eau(1:klon)=MIN(MAX(alb_eau(1:klon),0.04),0.60)
-          !
+
        ENDIF
-       !
+
        DO i =1, knon
           DO  k=1,nsw
@@ -323 +323 @@
        alb_dif_new(1:knon,:)=alb_dir_new(1:knon,:)
        !IM 09122015 end
-       !
+
     ELSE IF (iflag_albedo==1) THEN
        !--new parametrization of ocean surface albedo by Sunghye Baek
        !--albedo for direct and diffuse radiation are different
-       !
+
        CALL ocean_albedo(knon,rmu0,knindex,windsp,SFRWL,alb_dir_new,alb_dif_new)
-       !
+
        !--ad-hoc correction for model radiative balance tuning
        alb_dir_new(1:knon,:) = fmagic*alb_dir_new(1:knon,:) + pmagic
@@ -335 +335 @@
        alb_dir_new(1:knon,:)=MIN(MAX(alb_dir_new(1:knon,:),0.0),1.0)
        alb_dif_new(1:knon,:)=MIN(MAX(alb_dif_new(1:knon,:),0.0),1.0)
-       !
+
     ELSE IF (iflag_albedo==2) THEN
        ! F. Codron albedo read from limit.nc
@@ -399 +399 @@
   END SUBROUTINE surf_ocean
   !****************************************************************************
-  !
+
 END MODULE surf_ocean_mod