Changeset 1971 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Feb 13, 2014, 3:45:29 PM (11 years ago)

Author:

idelkadi

Message:

Corrections pour les sorties XIOS :

1. Dans phys_output_mod.F90 : Calcul de l'heure de départ sorti en dehors de la boucle sur les fichiers Definition des axes verticaux pour XIOS mis sous la cles de controle des sorties Definition de l'axe vertical pour les fichiers NMC

2. Corrections divers pour les sorties NMC (unite, description, ...) phys_output_ctrlout_mod.F90 et phys_output_write_mod.F90

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -252 +252 @@
     REAL :: pdtphys
     CHARACTER (LEN=4), DIMENSION(nlevSTD) :: clevSTD
+    REAL, DIMENSION(klon,nlevSTD) :: zx_tmp_fi3d_STD
     REAL, DIMENSION(klon) :: pphis
     REAL, DIMENSION(klon, klev) :: pplay, d_t
@@ -1221 +1222 @@
                          freq_moyNMC(iff-6)=freq_outNMC(iff-6)/freq_calNMC(iff-6)
                       ENDIF
-                      zx_tmp_fi3d(i,k) = (100.*tnondef(i,k,iff-6))/freq_moyNMC(iff-6)
+                      zx_tmp_fi3d_STD(i,k) = (100.*tnondef(i,k,iff-6))/freq_moyNMC(iff-6)
                    ELSE
-                      zx_tmp_fi3d(i,k) = missing_val
+                      zx_tmp_fi3d_STD(i,k) = missing_val
                    ENDIF
                 ENDDO
              ENDDO
           ENDIF
-          CALL histwrite_phy(o_psbg,zx_tmp_fi3d,iff)
+          CALL histwrite_phy(o_psbg,zx_tmp_fi3d_STD,iff)
           IF(vars_defined) THEN
              DO k=1, nlevSTD
                 DO i=1, klon
                    IF(O3sumSTD(i,k,iff-6).NE.missing_val) THEN
-                      zx_tmp_fi3d(i,k) = O3sumSTD(i,k,iff-6) * 1.e+9
+                      zx_tmp_fi3d_STD(i,k) = O3sumSTD(i,k,iff-6) * 1.e+9
                    ELSE
-                      zx_tmp_fi3d(i,k) = missing_val
+                      zx_tmp_fi3d_STD(i,k) = missing_val
                    ENDIF
                 ENDDO
              ENDDO !k=1, nlevSTD
           ENDIF
-          CALL histwrite_phy(o_tro3,zx_tmp_fi3d,iff)
+          CALL histwrite_phy(o_tro3,zx_tmp_fi3d_STD,iff)
           if (read_climoz == 2) THEN
              IF(vars_defined) THEN
@@ -1246 +1247 @@
                    DO i=1, klon
                       IF(O3daysumSTD(i,k,iff-6).NE.missing_val) THEN
-                         zx_tmp_fi3d(i,k) = O3daysumSTD(i,k,iff-6) * 1.e+9
+                         zx_tmp_fi3d_STD(i,k) = O3daysumSTD(i,k,iff-6) * 1.e+9
                       ELSE
-                         zx_tmp_fi3d(i,k) = missing_val
+                         zx_tmp_fi3d_STD(i,k) = missing_val
                       ENDIF
                    ENDDO
                 ENDDO !k=1, nlevSTD
              ENDIF
-             CALL histwrite_phy(o_tro3_daylight,zx_tmp_fi3d,iff)
+             CALL histwrite_phy(o_tro3_daylight,zx_tmp_fi3d_STD,iff)
           endif
           CALL histwrite_phy(o_uxv,uvsumSTD(:,:,iff-6),iff)