Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/hgardfou.F90

Timestamp:

Jul 29, 2024, 11:01:04 PM (3 months ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/hgardfou.F90 (modified) (6 diffs)

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

@@ -1 @@
-
 ! $Id$
-SUBROUTINE hgardfou(t, tsol, text,abortphy)
+SUBROUTINE hgardfou(t, tsol, text, abortphy)
   USE dimphy, ONLY: klon, klev
   USE phys_state_var_mod, ONLY: pctsrf
@@ -7 +6 @@
   USE indice_sol_mod, ONLY: nbsrf
   USE lmdz_print_control, ONLY: lunout
+  USE lmdz_yomcst
+
   IMPLICIT NONE
   ! ======================================================================
   ! Verifier la temperature
   ! ======================================================================
-  include "YOMCST.h"
   REAL t(klon, klev), tsol(klon, nbsrf)
-  CHARACTER(len=*), INTENT(IN):: text
-  CHARACTER (LEN=20) :: modname = 'hgardfou'
+  CHARACTER(len = *), INTENT(IN) :: text
+  CHARACTER (LEN = 20) :: modname = 'hgardfou'
   INTEGER abortphy
 
@@ -52 +52 @@
       DO i = 1, jbad
         WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
-          jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
-          latitude_deg(jadrs(i)),(pctsrf(jadrs(i),nsrf), nsrf=1, nbsrf)
+                jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+                latitude_deg(jadrs(i)), (pctsrf(jadrs(i), nsrf), nsrf = 1, nbsrf)
       END DO
     END IF
@@ -68 +68 @@
       DO i = 1, jbad
         WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
-          jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
-          latitude_deg(jadrs(i)), (pctsrf(jadrs(i),nsrf), nsrf=1, nbsrf)
+                jadrs(i), k, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+                latitude_deg(jadrs(i)), (pctsrf(jadrs(i), nsrf), nsrf = 1, nbsrf)
       END DO
     END IF
@@ -89 +89 @@
       DO i = 1, jbad
         WRITE (lunout, *) &
-          'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
-          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
-          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
+                'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
+                nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+                latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
       END DO
     END IF
@@ -106 +106 @@
       DO i = 1, jbad
         WRITE (lunout, *) &
-          'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
-          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
-          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
+                'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
+                nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+                latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
       END DO
     END IF
   END DO
 
-!  IF (.NOT. ok) CALL abort_physic(modname, text, 1)
-  IF (.NOT. ok) abortphy=1
+  !  IF (.NOT. ok) CALL abort_physic(modname, text, 1)
+  IF (.NOT. ok) abortphy = 1
 
 END SUBROUTINE hgardfou