Changeset 3185 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/modis_simulator.F90

Timestamp:

Feb 5, 2018, 7:04:44 PM (7 years ago)

Author:

idelkadi

Message:

Correction de bogue dans le simulateur Modis (mise a jour dans la version Cosp v1.4.2)

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/modis_simulator.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/modis_simulator.F90

@@ -863 +863 @@
     tau(:) = ice_tau(:) + water_tau(:) 
     where (tau(:) > 0) 
-      g(:)  = (water_tau(:) * water_g(:)                + ice_tau(:) * ice_g(:)            ) / & 
-              tau(:) 
-      w0(:) = (water_tau(:) * water_g(:) * water_w0(:)  + ice_tau(:) * ice_g(:) * ice_w0(:)) / &
-              (g(:) * tau(:))
+      w0(:) = (water_tau(:) * water_w0(:)  + ice_tau(:) * ice_w0(:)) / &
+              tau(:)
+      g(:) = (water_tau(:) * water_g(:) * water_w0(:)  + ice_tau(:) * ice_g(:) * ice_w0(:)) / &
+             (w0(:) * tau(:))
     end where