Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_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/surf_landice_mod.F90 (modified) (9 diffs)

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

@@ -227 +227 @@
       PRINT*, 'alb_nir_sno_lic', alb_nir_sno_lic
 
-      firstcall = .false.
+      firstcall = .FALSE.
     ENDIF
     !******************************************************************************************
@@ -248 +248 @@
     !****************************************************************************************
     !  landice_opt = 0 : soil_model, calcul_flux, fonte_neige, ...
-    !  landice_opt = 1  : prepare and call INterace Lmdz SISvat (INLANDSIS)
+    !  landice_opt = 1  : prepare and CALL INterace Lmdz SISvat (INLANDSIS)
     !****************************************************************************************
 
@@ -263 +263 @@
 
         debut_is = debut
-        lafin_is = .false.
+        lafin_is = .FALSE.
         ! Suppose zero surface speed
         u0(:) = 0.0
@@ -299 +299 @@
 
         IF (lafin) THEN
-          lafin_is = .true.
+          lafin_is = .TRUE.
         END IF
 
@@ -312 +312 @@
                 emis_new, z0m, z0h, qsurf)
 
-        debut_is = .false.
+        debut_is = .FALSE.
 
 
@@ -330 +330 @@
 
       ELSE
-        abort_message = 'Pb de coherence: landice_opt = 1  mais CPP_INLANDSIS = .false.'
+        abort_message = 'Pb de coherence: landice_opt = 1  mais CPP_INLANDSIS = .FALSE.'
         CALL abort_physic(modname, abort_message, 1)
       END IF
@@ -506 +506 @@
 
             if (precip_snow(j) > abs(fluxbs_1(j))) then
-              ok_remaining_freshsnow(j) = .true.
+              ok_remaining_freshsnow(j) = .TRUE.
               bsweight_fresh(j) = 1.
             else
-              ok_remaining_freshsnow(j) = .false.
+              ok_remaining_freshsnow(j) = .FALSE.
               bsweight_fresh(j) = exp(-(abs(fluxbs_1(j)) - precip_snow(j)) / precip_snow(j))
             endif
           else
-            ok_remaining_freshsnow(j) = .false.
+            ok_remaining_freshsnow(j) = .FALSE.
             fluxbs_1(j) = 0.
             bsweight_fresh(j) = 0.
@@ -626 +626 @@
      )
 
-!        call fonte_neige_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag)
+!        CALL fonte_neige_export_xtrun_off_lic_0(knon,xtrun_off_lic_0_diag)
 
 #endif
@@ -639 +639 @@
     ! Send run-off on land-ice to coupler if coupled ocean.
     ! run_off_lic has been calculated in fonte_neige or surf_inlandsis
-    ! If landice_opt>=2, corresponding call is done from surf_land_orchidee
+    ! If landice_opt>=2, corresponding CALL is done from surf_land_orchidee
     !****************************************************************************************
     IF (type_ocean=='couple' .AND. landice_opt < 2) THEN