Changeset 3372 for LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

Timestamp:

Jul 15, 2018, 12:11:53 PM (6 years ago)

Author:

idelkadi

Message:

Implementation de COSPv2 dans LMDZ (Corrections)

File:

• LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cosp2/cosp_read_otputkeys.F90

@@ -659 +659 @@
   if (Lproftemp)                cfg%out_list(i) = 'proftemp'         !TIBO
     
-  if (i /= 78) then
+  if (i.gt.78) then
      print *, 'COSP_IO: wrong number of output diagnostics'
      print *, i,78