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

Timestamp:

Jul 7, 2018, 4:55:03 PM (6 years ago)

Author:

jvatant

Message:

Correct typos in r1966
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (2 diffs)

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

@@ -1133 +1133 @@
             ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
             
-            call calc_ysat(ngrid,nlayer,pplay,pt,ysat) ! Compute saturation profiles for every grid point
+            call calc_ysat(ngrid,nlayer,pplay/100.0,pt,ysat) ! Compute saturation profiles for every grid point
 
             dyccond(:,:,:) = 0.0 ! Default value -> no condensation
@@ -1155 +1155 @@
             if ( moyzon_ch .and. mod(icount-1,ichim).eq. 0 ) then
 
-              call calc_ysat(ngrid,nlayer,zzlaybar,ztfibar,ysat) ! Compute saturation profiles for every grid point for the zon-ave fields
+              call calc_ysat(ngrid,nlayer,zplaybar/100.0,ztfibar,ysat) ! Compute saturation profiles for every grid point for the zon-ave fields
 
               dyccondbar(:,:,:) = 0.0 ! Default value -> no condensation