Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/freinage.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/freinage.F90 (modified) (2 diffs)

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

@@ -6 +6 @@
 
     !ONLINE:
-    use dimphy, only: klon, klev
+    use dimphy, ONLY: klon, klev
 !    USE control, ONLY: nvm
 !    USE indice_sol_mod, ONLY: nvm_orch
@@ -96 +96 @@
       sumveg(i,k)= sumveg(i,k)+ veget(i,jv)
 
-!      if  ( (height(i,jv) .gt. yzlay(i,k)) .AND. (height(i,jv) .gt. 0.1) .and. LAI(i,jv).gt.0. ) then                     
-      if  ( (height(i,jv) > yzlay(i,k)) .AND. (height(i,jv) > 0.1) ) then
+!      if  ( (height(i,jv) .gt. yzlay(i,k)) .AND. (height(i,jv) .gt. 0.1) .and. LAI(i,jv).gt.0. ) THEN
+      if  ( (height(i,jv) > yzlay(i,k)) .AND. (height(i,jv) > 0.1) ) THEN
 !FC attention veut on le test sur le LAI ?
-         if (ifl_pbltree==1) then
+         if (ifl_pbltree==1) THEN
       drag_pro(i,k)= drag_pro(i,k)+ &
       veget(i,jv)
-          elseif (ifl_pbltree==2) then
+          elseif (ifl_pbltree==2) THEN
       drag_pro(i,k)= drag_pro(i,k)+ &
       6*LAI(i,jv)*veget(i,jv)*( yzlay(i,k)*(height(i,jv)-yzlay(i,k))/(height(i,jv)*height(i,jv)+ 0.01))
-          elseif (ifl_pbltree==3) then
+          elseif (ifl_pbltree==3) THEN
       drag_pro(i,k)= drag_pro(i,k)+ &
       veget(i,jv)*( yzlay(i,k)*(height(i,jv)-yzlay(i,k))/(height(i,jv)*height(i,jv)+ 0.01))
-          elseif (ifl_pbltree==0) then
+          elseif (ifl_pbltree==0) THEN
           drag_pro(i,k)=0.0
            endif