Changeset 3457 for trunk

Timestamp:

Oct 11, 2024, 10:49:23 AM (6 weeks ago)

Author:

jbclement

Message:

PCM:
Modification of dimension detection for the variables written in "diagpem.nc": in particular for 'nb_str_max' which can evolve and match the value of other dimensions.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• iostart_PEM.F90 (modified) (3 diffs)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt

@@ -439 +439 @@
 == 11/10/2024 == JBC
 Cleaning of the adsorption module to make the debugging easier.
+
+== 11/10/2024 == JBC
+Modification of dimension detection for the variables written in "diagpem.nc": in particular for 'nb_str_max' which can evolve and match the value of other dimensions.

trunk/LMDZ.COMMON/libf/evolution/iostart_PEM.F90

@@ -694 +694 @@
     IF (is_master) THEN
 
+     IF (index(field_name,"stratif") == 0) then
       IF (field_size==1) THEN
         ! input is a 1D "surface field" array
@@ -907 +908 @@
         endif ! of if (.not.present(time))
 
-      ELSE IF (field_size == nb_str_max) THEN
+      ELSE
+        write(*,*) "Error phyredem(put_field_rgen) : wrong dimension for ",trim(field_name)
+        write(*,*) "  field_size =",field_size
+        CALL abort_physic("put_field_rgen","wrong field dimension",1)
+      ENDIF
+     ELSE
         ! input is a 2D "stratification" array
         if (.not.present(time)) then ! for a time-independent field
@@ -949 +955 @@
 
         endif ! of if (.not.present(time))
-
-      ELSE
-        write(*,*) "Error phyredem(put_field_rgen) : wrong dimension for ",trim(field_name)
-        write(*,*) "  field_size =",field_size
-        CALL abort_physic("put_field_rgen","wrong field dimension",1)
-      ENDIF
+     ENDIF
 
       ! Check the writting of field to file went OK