Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (3 months 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/inlandsis/surf_inlandsis_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

@@ -206 +206 @@
         IF (debut) THEN
             firstcall = .TRUE.
-            INI_SV = .false.
+            INI_SV = .FALSE.
         ELSE
-            firstcall = .false.
-            INI_SV = .true.
+            firstcall = .FALSE.
+            INI_SV = .TRUE.
         END IF
 
@@ -1047 +1047 @@
         ! Objet: Lecture du fichier de conditions initiales pour SISVAT
         !======================================================================
-        !    include "indicesol.h"
-
-        !    include "dimsoil.h"
         include "clesphys.h"
-        include "thermcell.h"
         include "compbl.h"
 
@@ -1284 +1280 @@
         IMPLICIT none
 
-        !    include "indicesol.h"
-        !    include "dimsoil.h"
         include "clesphys.h"
-        include "thermcell.h"
         include "compbl.h"