Changeset 3306 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

Timestamp:

Apr 4, 2018, 10:48:33 AM (6 years ago)

Author:

idelkadi

Message:

Corrections des diagnostiques de sorties pour les champs 4D (pour la compatibilite avec DR CMIP6) :

• nomes des axes (pour MISR)
• inversion des axes pour les cfads (lidar et radar)

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90 (modified) (3 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

@@ -343 +343 @@
 
 !+++++++++++++ Open output files and define output files axis !+++++++++++++
-    if (debut_cosp) then
+!    if (debut_cosp) then
 
       !$OMP MASTER
@@ -354 +354 @@
         debut_cosp=.false.
 !      endif ! debut_cosp
-    else
+!    else
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
         ! Call simulator
@@ -375 +375 @@
                                cfg, gbx, vgrid, sglidar, sgradar, stlidar, stradar, & 
                                isccp, misr, modis)
-    endif !debut_cosp
+!    endif !debut_cosp
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
         ! Deallocate memory in derived types