Changeset 759 for trunk/LMDZ.MARS/libf

Timestamp:

Aug 8, 2012, 10:26:15 AM (12 years ago)

Author:

emillour

Message:

Mars GCM:

commented out some messages in nlte_tcool.F (which were informations

useful and meaningful during code development only)

FGG

File:

• trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/nlte_tcool.F

@@ -390 +390 @@
          zl_cts(i) = zl_cts(1) + (i-1)*deltaz_cts
          if (zl_cts(i) .gt. z_gcm(n_gcm)) then
-            write (*,*) '!!!!!!!! Warning in top CTS layers. '
-            write (*,*) ' zl_Cts too high for z_gcm. '
-            write (*,*) ' z_gcm, zl_cts(i), i =',
-     $           z_gcm(n_gcm), zl_cts(i), i
-            write (*,*) '!!!!!!!! NLTE-CTS upper boundary modified '//
-     $           ' to match z_gcm'
+!            write (*,*) '!!!!!!!! Warning in top CTS layers. '
+!            write (*,*) ' zl_Cts too high for z_gcm. '
+!            write (*,*) ' z_gcm, zl_cts(i), i =',
+!     $           z_gcm(n_gcm), zl_cts(i), i
+!            write (*,*) '!!!!!!!! NLTE-CTS upper boundary modified '//
+!     $           ' to match z_gcm'
             nl_cts_real=i-1
-            write (*,*) '  Original,Real NL_CTS=', nl_cts,nl_cts_real
+!            write (*,*) '  Original,Real NL_CTS=', nl_cts,nl_cts_real
             goto 6000
          endif