Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/near_surface_m.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (5 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/near_surface_m.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/near_surface_m.F90

@@ -13 +13 @@
     ! Hugo Bellenger, 2016
 
-    use config_ocean_skin_m, only: depth_1
-    use const, only: beta, cpw, grav, rhow, von
-    use Phiw_m, only: Phiw
-    use therm_expans_m, only: therm_expans
+    use config_ocean_skin_m, ONLY: depth_1
+    use const, ONLY: beta, cpw, grav, rhow, von
+    use Phiw_m, ONLY: Phiw
+    use therm_expans_m, ONLY: therm_expans
 
     real, intent(out):: al(:) ! water thermal expansion coefficient (in K-1)
@@ -93 +93 @@
     end where
 
-    if (depth_1 < depth) then
+    if (depth_1 < depth) THEN
        correction = 1. - (depth_1 / depth)**eta
        ! (neglecting microlayer thickness compared to depth_1 and depth)