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

Timestamp:

Nov 8, 2017, 4:45:50 PM (8 years ago)

Author:

jvatant

Message:

Commit various bugs leading to negative tracer tendencies
Also deleted some useless cfg files
--JVO

File:

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

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

@@ -89 +89 @@
     ! Convert tracers to extensive ( except for gazs where we work with molar mass ratio )
     ! We suppose a given order of tracers !
-    int2ext(:) = ( plev(ilon,2:nlay+1) - plev(ilon,1:nlay) ) / g
+    int2ext(:) = ( plev(ilon,1:nlay) - plev(ilon,2:nlay+1) ) / g
 
     m0as(:) = pq(ilon,:,1) * int2ext(:)