Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_forced_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/ocean_forced_mod.F90 (modified) (9 diffs)

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE ocean_forced_mod
-!
+
 ! This module is used for both the sub-surfaces ocean and sea-ice for the case of a 
 ! forced ocean,  "ocean=force".
-!
+
   IMPLICIT NONE
 
 CONTAINS
-!
-!****************************************************************************************
-!
+
+!****************************************************************************************
+
   SUBROUTINE ocean_forced_noice( &
        itime, dtime, jour, knon, knindex, &
@@ -28 +28 @@
 #endif            
        )
-!
+
 ! This subroutine treats the "open ocean", all grid points that are not entierly covered
 ! by ice.
 ! The routine receives data from climatologie file limit.nc and does some calculations at the 
 ! surface. 
-!
+
     USE dimphy
     USE calcul_fluxs_mod
@@ -139 +139 @@
 ! 1)    
 ! Read sea-surface temperature from file limit.nc
-!
+
 !****************************************************************************************
 !--sb:
@@ -162 +162 @@
 ! 2)
 ! Flux calculation
-!
+
 !****************************************************************************************
 ! Set some variables for calcul_fluxs
@@ -237 +237 @@
 
   END SUBROUTINE ocean_forced_noice
-!
+
 !***************************************************************************************
-!
+
   SUBROUTINE ocean_forced_ice( &
        itime, dtime, jour, knon, knindex, &
@@ -254 +254 @@
 #endif            
        )
-!
+
 ! This subroutine treats the ocean where there is ice. 
 ! The routine reads data from climatologie file and does flux calculations at the 
 ! surface.
-!
+
     USE dimphy
     USE geometry_mod, ONLY: longitude,latitude
@@ -421 +421 @@
 ! 2)
 ! Calculations due to snow and runoff
-!
+
 !****************************************************************************************
 #ifdef ISO
@@ -489 +489 @@
     
 ! Calculation of albedo at snow (alb_neig) and update the age of snow (agesno)
-! 
+
     CALL albsno(klon, knon, dtime, agesno(:), alb_neig(:), precip_snow(:))  
 
@@ -508 +508 @@
 !************************************************************************
 !  SUBROUTINE read_tsurf1d(knon,sst_out)
-!
+
 ! This subroutine specifies the surface temperature to be used in 1D simulations
-!
+
 !      USE dimphy, ONLY : klon
-!
+
 !      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
 !      REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out  ! tsurf used to force the single-column model
-!
+
 !       INTEGER :: i
 ! COMMON defined in lmdz1d.F:
 !       real ts_cur
 !       common /sst_forcing/ts_cur
-!
+
 !       DO i = 1, knon
 !        sst_out(i) = ts_cur
 !       ENDDO
-!
+
 !      END SUBROUTINE read_tsurf1d
-!
-!
+
+
 !************************************************************************
 END MODULE ocean_forced_mod