Context Navigation

Ocean_skin

Timestamp:

Jul 24, 2024, 6:46:45 PM (12 months ago)

Author:

abarral

Message:

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin

Files:

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   SUBROUTINE bulk_flux(tkt, tks, taur, dter, dser, t_int, s_int, ds_ns, dt_ns, &
 …
   END SUBROUTINE  bulk_flux
 end module bulk_flux_m
+END MODULE bulk_flux_m

-                      r5117
+                      r5119
 #endif
+contains
+CONTAINS
   SUBROUTINE config_ocean_skin
 …
   END SUBROUTINE  config_ocean_skin
 end module config_ocean_skin_m
+END MODULE config_ocean_skin_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   elemental real function esat(T, P)
 …
   END FUNCTION esat
 end module esat_m
+END MODULE esat_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   elemental real function fV(z, rain)
 …
   END FUNCTION fV
 end module fv_m
+END MODULE fv_m

-                      r5117
+                      r5119
   Implicit none
+contains
+CONTAINS
   SUBROUTINE Microlayer(dter, dser, tkt, tks, hlb, tau, s_subskin, al, &
 …
   END SUBROUTINE  Microlayer
 end module Microlayer_m
+END MODULE Microlayer_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   elemental real function mom_flux_rain(u, rain)
 …
   END FUNCTION mom_flux_rain
 end module mom_flux_rain_m
+END MODULE mom_flux_rain_m

-                      r5117
+                      r5119
   ! diurnal warm layer and fresh water lens depth, in m (Zeng and Beljaars 2005)
+contains
+CONTAINS
   SUBROUTINE near_surface(al, t_subskin, s_subskin, ds_ns, dt_ns, tau, taur, &
 …
   END SUBROUTINE  Near_Surface
 end module Near_Surface_m
+END MODULE Near_Surface_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   elemental real function Phiw(zL)
 …
   END FUNCTION Phiw
 end module Phiw_m
+END MODULE Phiw_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
 #ifdef IN_LMDZ
 …
   END FUNCTION sens_heat_rain
 end module sens_heat_rain_m
+END MODULE sens_heat_rain_m

-                      r5117
+                      r5119
   IMPLICIT NONE
+contains
+CONTAINS
   elemental real function therm_expans(t)
 …
   END FUNCTION therm_expans
 end module therm_expans_m
+END MODULE therm_expans_m

Note: See TracChangeset for help on using the changeset viewer.