Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/limit_read_mod.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (8 weeks ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/limit_read_mod.F90 (modified) (5 diffs)

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

@@ -7 +7 @@
 
 ! Module subroutines :
-!  limit_read_frac    : call limit_read_tot and return the fractions
-!  limit_read_rug_alb : return rugosity and albedo, if coupled ocean call limit_read_tot first
+!  limit_read_frac    : CALL limit_read_tot and return the fractions
+!  limit_read_rug_alb : return rugosity and albedo, if coupled ocean CALL limit_read_tot first
 !  limit_read_sst     : return sea ice temperature   
 !  limit_read_tot     : read limit.nc and store the fields in local modules variables
@@ -52 +52 @@
   SUBROUTINE limit_read_frac(itime, dtime, jour, pctsrf_new, is_modified)
 
-! This subroutine is called from "change_srf_frac" for case of 
+! This SUBROUTINE is called from "change_srf_frac" for case of
 ! ocean=force or from ocean_slab_frac for ocean=slab.
 ! The fraction for all sub-surfaces at actual time step is returned.
@@ -87 +87 @@
        rugos_out, alb_out)
 
-! This subroutine is called from surf_land_bucket. 
+! This SUBROUTINE is called from surf_land_bucket.
 ! The flag "ok_veget" must can not be true. If coupled run, "ocean=couple"
-! then this routine will call limit_read_tot.
+! then this routine will CALL limit_read_tot.
 
     USE dimphy
@@ -129 +129 @@
   SUBROUTINE limit_read_sst(knon, knindex, sst_out)
 
-! This subroutine returns the sea surface temperature already read from limit.nc.
+! This SUBROUTINE returns the sea surface temperature already read from limit.nc.
 
     USE dimphy, ONLY: klon
@@ -147 +147 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !!
-!! Private subroutine :
+!! Private SUBROUTINE :
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!