Changeset 2276 for LMDZ5/branches/LMDZ6_rc0/libf/cosp/cosp_output_write_mod.F90

Timestamp:

May 13, 2015, 6:25:50 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Backport of trunk revision 2268 into LMDZ6_rc0 branch:

• modifications for COSP/XIOS

File:

• LMDZ5/branches/LMDZ6_rc0/libf/cosp/cosp_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/branches/LMDZ6_rc0/libf/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)