Changeset 2045 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Nov 28, 2018, 9:20:18 AM (6 years ago)

Author:

jvatant

Message:

Correct a (luckily harmless) typo.
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/calchim.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/calchim.F90

@@ -307 +307 @@
      ! If 2D chemistry, trick to do the calculation only once per latitude band within the chunk
      ! NB1 : Will be obsolete with DYNAMICO, the chemistry will necessarly be 3D
-     ! NB2 : Test of same latitude with dlat=0.5 : I think that if you run sims better than 1/10th degree then
+     ! NB2 : Test of same latitude with dlat=0.1 : I think that if you run sims better than 1/10th degree then
      ! either it's with Dynamico and doesn't apply OR it is more than enough in terms of "preco / calc time" !
      ! -------------------------------------------------------------------------------------------------------
 
-     IF ( ( moyzon_ch .AND. ( ig.EQ.1 .OR. (ABS(latitude(ig)-latitude(igm1)).GT.0.1*pi/180.)) ) .OR. (.NOT. moyzon_ch) ) THEN
+     IF ( ( moyzon_ch .AND. ( ig.EQ.1 .OR. (ABS(latitude(ig)-latitude(igm1)).GT.0.1*180.0/pi)) ) .OR. (.NOT. moyzon_ch) ) THEN
 
         ! 1. Compute altitude for the grid point with hydrostat. equilib.