Changeset 2760 for LMDZ5/trunk/libf/phylmd/cosp

Timestamp:

Jan 10, 2017, 4:10:04 PM (8 years ago)

Author:

idelkadi

Message:

Correction relative a l'ajout de diagnostiques !

File:

• LMDZ5/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (2 diffs)

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

@@ -370 +370 @@
      modis%Optical_Thickness_vs_Cloud_Top_Pressure(:,icl,:),nvertisccp,icl)           
    enddo
- endif
 
     where(modis%Optical_Thickness_vs_ReffIce == R_UNDEF) &
@@ -384 +383 @@
      modis%Optical_Thickness_vs_ReffLiq(:,icl,:),nvertReffLiq,icl)
     enddo
+ endif
 
  IF(.NOT.cosp_varsdefined) THEN