Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/hgardfou.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/hgardfou.F90 (modified) (5 diffs)

LMDZ5/branches/testing/libf/phylmd/hgardfou.F90

@@ -2 +2 @@
 ! $Id$
 SUBROUTINE hgardfou(t, tsol, text,abortphy)
-  USE dimphy
-  USE phys_state_var_mod
-  USE indice_sol_mod
+  USE dimphy, ONLY: klon, klev
+  USE phys_state_var_mod, ONLY: pctsrf
+  USE geometry_mod, ONLY: longitude_deg, latitude_deg
+  USE indice_sol_mod, ONLY: nbsrf
   USE print_control_mod, ONLY: lunout
   IMPLICIT NONE
@@ -55 +56 @@
       DO i = 1, jbad
         WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
-          jadrs(i), k, zt(jadrs(i)), rlon(jadrs(i)), rlat(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
@@ -75 +76 @@
       DO i = 1, jbad
         WRITE (lunout, *) 'i,k,temperature,lon,lat,pourc ter,lic,oce,sic =', &
-          jadrs(i), k, zt(jadrs(i)), rlon(jadrs(i)), rlat(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
@@ -101 +102 @@
         WRITE (lunout, *) &
           'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
-          nsrf, zt(jadrs(i)), rlon(jadrs(i)), rlat(jadrs(i)), &
-          pctsrf(jadrs(i), nsrf)
+          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
       END DO
     END IF
@@ -122 +123 @@
         WRITE (lunout, *) &
           'i,nsrf,temperature,lon,lat,pourc ter,lic,oce,sic =', jadrs(i), &
-          nsrf, zt(jadrs(i)), rlon(jadrs(i)), rlat(jadrs(i)), &
-          pctsrf(jadrs(i), nsrf)
+          nsrf, zt(jadrs(i)), longitude_deg(jadrs(i)), &
+          latitude_deg(jadrs(i)), pctsrf(jadrs(i), nsrf)
       END DO
     END IF