Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/phyetat0_get_mod.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/phyetat0_get_mod.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/phyetat0_get_mod.f90

@@ -122 +122 @@
   USE iostart,           ONLY: get_field
   USE print_control_mod, ONLY: lunout
-  USE strings_mod,       ONLY: int2str, maxlen
+  USE strings_mod,       ONLY: num2str, maxlen
   IMPLICIT NONE
   REAL,             INTENT(INOUT) :: field(:,:,:)
@@ -133 +133 @@
   IF(SIZE(field,3)>99) CALL abort_physic("phyetat0", "Too much sub-cells", 1)
   DO nsrf = 1, SIZE(field,3)
-    DO i = 1, SIZE(name); nam(i) = TRIM(name(i))//TRIM(int2str(nsrf,2)); END DO
-    des = TRIM(descr)//" srf:"//int2str(nsrf,2)
+    DO i = 1, SIZE(name); nam(i) = TRIM(name(i))//TRIM(num2str(nsrf,2)); END DO
+    des = TRIM(descr)//" srf:"//num2str(nsrf,2)
     lFound = phyetat0_get21(field(:,:,nsrf), nam, TRIM(des), default, tname)
   END DO