Changeset 2268 for LMDZ5/trunk/libf

Timestamp:

Apr 30, 2015, 11:12:46 AM (10 years ago)

Author:

idelkadi

Message:

Mise a jour et corrections pour les sorties Cosp via Xios.

Location:

LMDZ5/trunk/libf/phylmd/cosp

Files:

• cosp_output_mod.F90 (modified) (2 diffs)
• cosp_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/cosp/cosp_output_mod.F90

@@ -50 +50 @@
   TYPE(ctrl_outcosp), SAVE :: o_parasol_crefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &              
          "parasol_crefl", "PARASOL-like mono-directional reflectance (integral)","1", (/ ('', i=1, 3) /))                  
+  TYPE(ctrl_outcosp), SAVE :: o_Ncrefl = ctrl_outcosp((/ .TRUE., .TRUE., .TRUE. /), &
+         "Ncrefl", "Nb PARASOL-like mono-directional reflectance (integral)","1", (/ ('', i=1, 3) /))
   TYPE(ctrl_outcosp), SAVE :: o_atb532 = ctrl_outcosp((/ .FALSE., .FALSE., .FALSE. /), &
          "atb532", "Lidar Attenuated Total Backscatter (532 nm)","1", (/ ('', i=1, 3) /))
@@ -172 +174 @@
     ! ug R\'eglage du calendrier xios
     !Temps julian => an, mois, jour, heure
-    CALL ju2ymds(zjulian, x_an, x_mois, x_jour, x_heure)
-    CALL ju2ymds(zjulian_start, ini_an, ini_mois, ini_jour, ini_heure)
-    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure, ini_an, &
-                       ini_mois, ini_jour, ini_heure )
+!    CALL ju2ymds(zjulian, x_an, x_mois, x_jour, x_heure)
+!    CALL ju2ymds(zjulian_start, ini_an, ini_mois, ini_jour, ini_heure)
+!    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure, ini_an, &
+!                       ini_mois, ini_jour, ini_heure )
        ! ug d�claration des axes verticaux de chaque fichier:
-    if (use_vgrid) then
+!    if (use_vgrid) then
         CALL wxios_add_vaxis("height", vgrid%Nlvgrid, vgrid%z)
-    else
-         WRITE(lunout,*) 'wxios_add_vaxis "presnivs", vgrid%Nlvgrid ',vgrid%Nlvgrid
-        CALL wxios_add_vaxis("presnivs", vgrid%Nlvgrid, presnivs)
-    endif
+!    else
+!         WRITE(lunout,*) 'wxios_add_vaxis "presnivs", vgrid%Nlvgrid ',vgrid%Nlvgrid
+!        CALL wxios_add_vaxis("presnivs", vgrid%Nlvgrid, presnivs)
+!    endif
     WRITE(lunout,*) 'wxios_add_vaxis height_mlev, Nlevlmdz ',Nlevlmdz
     CALL wxios_add_vaxis("height_mlev", Nlevlmdz, vgrid%mz)

LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -73 +73 @@
    endif
 
-#ifdef CPP_XIOS
- !$OMP MASTER
-IF (cosp_varsdefined) THEN
-   if (prt_level >= 10) then
-         WRITE(lunout,*)'Apell xios_update_calendar cosp_varsdefined iinitend ', &
-                         cosp_varsdefined,iinitend
-   endif 
-    CALL xios_update_calendar(itau_wcosp)
-ENDIF
-  !$OMP END MASTER
-  !$OMP BARRIER
-#endif
+!#ifdef CPP_XIOS
+! !$OMP MASTER
+!IF (cosp_varsdefined) THEN
+!   if (prt_level >= 10) then
+!         WRITE(lunout,*)'Apell xios_update_calendar cosp_varsdefined iinitend ', &
+!                         cosp_varsdefined,iinitend
+!   endif 
+!    CALL xios_update_calendar(itau_wcosp)
+!ENDIF
+!  !$OMP END MASTER
+!  !$OMP BARRIER
+!#endif
 
  if (cfg%Llidar_sim) then
@@ -153 +153 @@
     enddo
    enddo
+   CALL histwrite3d_cosp(o_Ncrefl,Ncref,nvertp)
    CALL histwrite3d_cosp(o_parasol_crefl,parasolcrefl,nvertp)