Changeset 5123 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

Timestamp:

Jul 25, 2024, 8:45:50 AM (2 months ago)

Author:

abarral

Message:

Correct various minor mistakes from previous commits

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -460 +460 @@
     var3d(iml, :, :) = var3d(1, :, :)
 
-    DO il = 1, lml
-      CALL minmax(iml * jml, var3d(1, 1, il), chmin, chmax)
-      WRITE(lunout, *)' ' // TRIM(var) // '  min max l ', il, chmin, chmax
-    END DO
-
   END SUBROUTINE start_inter_3d