Changeset 4261 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Sep 20, 2022, 4:09:50 PM (2 years ago)

Author:

lguez

Message:

Bug fix: pass array argument to pfi of gr_dyn_fi

Dummy argument pfi in procedure gr_dyn_fi is an array. In procedure
get_2Dfield, we cannot associate the array element champo(1, k) to
pfi because champo is a pointer. The association of an array element
to an array is not allowed in this case.

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -641 +641 @@
   ALLOCATE(champo(klon, ndays))
   DO k=1, ndays
-    CALL gr_dyn_fi(1, iip1, jjp1, klon, champan(1, 1, k), champo(1, k))
+    CALL gr_dyn_fi(1, iip1, jjp1, klon, champan(1, 1, k), champo(:, k))
   END DO
   DEALLOCATE(champan)