Changeset 759

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/nlte_tcool.F (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -1786 +1786 @@
 - put example def files used for MCDv5 simulations in deftank:
   callphys.def.MCD5 run.def.64x48x49.MCD5 traceur.def.MCD5
+
+== 08/08/12 == FGG
+>> commented out some messages in nlte_tcool.F (which were informations
+   useful and meaningful during code development only)

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