Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_wk.F90

Timestamp:

Aug 3, 2024, 2:56:58 PM (7 weeks ago)

Author:

abarral

Message:

Put .h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/alpale_wk.F90 (modified) (4 diffs)

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

@@ -49 +49 @@
     ALLOCATE (cellrad(klon))
     !  Compute pseudo grid-cell radius cellrad, such that pi*cellrad^2=cell_area
-    print *, 'alpale_wk: cell_area(1) ', cell_area(1)
+    PRINT *, 'alpale_wk: cell_area(1) ', cell_area(1)
     cellrad(:) = sqrt(cell_area(:) / rpi)
     first = .FALSE.
@@ -55 +55 @@
 
   !  Compute wake radius
-  !!  print *,'alpale_wk: sigmaw(1), wdens(1) ', sigmaw(1), wdens(1)
+  !!  PRINT *,'alpale_wk: sigmaw(1), wdens(1) ', sigmaw(1), wdens(1)
   DO i = 1, klon
     IF (zoccur(i) >= 1) THEN
@@ -65 +65 @@
 
   !  Compute probability that the grid-cell is intersected by a gust front
-  !!  print *,'alpale_wk: wkrad(1), cellrad(1) ', wkrad(1), cellrad(1)
+  !!  PRINT *,'alpale_wk: wkrad(1), cellrad(1) ', wkrad(1), cellrad(1)
   !!  proba_gf(:) = exp(-wdens(:)*rpi*max(wkrad(:)-cellrad(:),0.)**2) - &   ! Formules
   !!                exp(-wdens(:)*rpi*(wkrad(:)+cellrad(:))**2)             ! fausses !
@@ -74 +74 @@
   !  Compute Fip conditionned on the presence of some gust front within the
   !  grid-cell
-  !!  print *,'alpale_wk: proba_gf(1), fip(1), ', proba_gf(1), fip(1)
+  !!  PRINT *,'alpale_wk: proba_gf(1), fip(1), ', proba_gf(1), fip(1)
   fip_cond(:) = fip(:) / proba_gf(:)
-  !!    print *,'alpale_wk: wkrad(1), cellrad(1), proba_gf(1), fip(1), fip_cond(1) ', &
+  !!    PRINT *,'alpale_wk: wkrad(1), cellrad(1), proba_gf(1), fip(1), fip_cond(1) ', &
   !!                        wkrad(1), cellrad(1), proba_gf(1), fip(1), fip_cond(1)