Changeset 3532 for trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90

Timestamp:

Dec 4, 2024, 4:04:54 PM (3 weeks ago)

Author:

jbclement

Message:

PEM:
Removing unecessary module/subroutine "interpol_TI_PEM2PCM.F90" + Few small corrections/cleanings.
JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90

@@ -401 +401 @@
 ! Locals
 ! ------
-integer :: ik       ! Loop variables 
+integer :: ik       ! Loop variables
 integer :: indexice ! Index of the ice
 
@@ -412 +412 @@
     if(ice_depth < mlayer_PEM(0)) then
         indexice = 0.
-    else     
+    else
         do ik = 0,nsoil - 2 ! go through all the layers to find the ice locations
             if (mlayer_PEM(ik) <= ice_depth .and. mlayer_PEM(ik + 1) > ice_depth) then