Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/cpl_mod.F90

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/cpl_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/cpl_mod.F90

@@ -363 +363 @@
        CALL histdef(nidct, 'tmp_lat','tmp_lat', &
             "-",nbp_lon,nbp_lat, nhoridct, 1, 1, 1, -99, 32, "inst", dtime,dtime)
-       DO jf=1,maxsend
+       DO jf=1,maxsend_phys
          IF (infosend(i)%action) THEN
              CALL histdef(nidct, infosend(i)%name ,infosend(i)%name , &
@@ -1280 +1280 @@
     REAL, DIMENSION(nbp_lon, jj_nb)                          :: tmp_calv
 ! Table with all fields to send to coupler
-    REAL, DIMENSION(nbp_lon, jj_nb, maxsend)                 :: tab_flds
+    REAL, DIMENSION(nbp_lon, jj_nb, maxsend_phys)            :: tab_flds
     REAL, DIMENSION(klon_mpi)                                :: rlon_mpi, rlat_mpi
     REAL  :: calving(nb_zone_calving)
@@ -1510 +1510 @@
 !*************************************************************************************
     IF (is_sequential) THEN
-        DO j=1,maxsend
+        DO j=1,maxsend_phys
           IF (infosend(j)%action) CALL histwrite(nidct,infosend(j)%name, itau_w, &
              tab_flds(:,:,j),nbp_lon*(nbp_lat),ndexct)