Changeset 3762 for trunk

Timestamp:

May 14, 2025, 5:59:16 PM (7 weeks ago)

Author:

afalco

Message:

pluto start2archive: fix for previous commit. lat/lon dimensions off by one.
AF

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/start2archive.F (modified) (4 diffs)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/start2archive.F

@@ -450 +450 @@
         endif
         if (naltold.ne.llm) then
-          print*,"start.nc:          n_levels:", llm
+          print*, "start.nc:         n_levels:", llm
           print*, "start_archive.nc: n_levels:",naltold
           call abort_gcm('start2archive: ',
      &              'altitude dimension from start_archive.nc differ'//
-     &              'from start/startfi.nc', 1)
+     &              'from start/startfi.nc/executable', 1)
         endif
       endif
@@ -465 +465 @@
      &              'Failed reading longitude length', 1)
         endif
-        if (nlonold.ne.iim) then
-          print*,"start.nc:          n_lon:", iim
-          print*, "start_archive.nc: n_lon:",nlonold
+        if ((nlonold-1).ne.iim) then
+          print*, "start.nc:          n_lon:", iim
+          print*, "start_archive.nc: n_lon:",nlonold-1
           call abort_gcm('start2archive: ',
      &              'longitude dimension from start_archive.nc differ'//
-     &              'from start/startfi.nc', 1)
+     &              'from start/startfi.nc/executable', 1)
         endif
       endif
@@ -482 +482 @@
      &              'Failed reading latitude length', 1)
         endif
-        if (nlatold.ne.jjm) then
-          print*,"start.nc:          n_lat:", jjm
-          print*, "start_archive.nc: n_lat:",nlatold
+        if ((nlatold-1).ne.jjm) then
+          print*, "start.nc:         n_lat:", jjm
+          print*, "start_archive.nc: n_lat:",nlatold-1
           call abort_gcm('start2archive: ',
      &              'latitude dimension from start_archive.nc differ'//
-     &              'from start/startfi.nc', 1)
+     &              'from start/startfi.nc/executable', 1)
         endif
       endif
@@ -499 +499 @@
         endif
         if (nsoilold.ne.nsoilmx) then
-          print*,"start.nc:          n_levels:", nsoilmx
+          print*, "start.nc:         n_levels:", nsoilmx
           print*, "start_archive.nc: n_levels:",nsoilold
           call abort_gcm('start2archive: ',
      &              'Soil dimension from start_archive.nc differ'//
-     &              'from start/startfi.nc', 1)
+     &              'from start/startfi.nc/executable', 1)
         endif
       endif