Changeset 3916

Timestamp:

Feb 24, 2016, 6:23:17 PM (9 years ago)

Author:

ymipsl

Message:

Bug-fix : limit.nc was not written for aquaplant configuration using dynamico.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/create_etat0_limit_unstruct.f90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/create_etat0_limit_unstruct.f90

@@ -36 +36 @@
         IF (is_omp_master) CALL xios_set_axis_attr("time_year",n_glo=ndays,value=value) 
         
-        IF (iflag_phys<100) THEN
-
-          IF (create_etat0_limit) THEN
+        IF (create_etat0_limit) THEN
+          IF (iflag_phys<100) THEN
             IF (is_omp_master) CALL xios_set_fieldgroup_attr("etat0_limit_read",read_access=.TRUE.,enabled=.TRUE.)
             IF (is_omp_master) CALL xios_set_filegroup_attr("etat0_limit_read",enabled=.TRUE.)
-            IF (is_omp_master) CALL xios_set_file_attr("limit_write",enabled=.TRUE.)
           ENDIF
-      
+          IF (is_omp_master) CALL xios_set_file_attr("limit_write",enabled=.TRUE.)
         ENDIF