Changeset 1763

Timestamp:

Aug 7, 2017, 3:16:51 PM (7 years ago)

Author:

jvatant

Message:

Fixed a bug in phyetat0_mod : typo leading to uninitialized field sea_ice
JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/phyetat0_mod.F90

@@ -343 +343 @@
   if (.not.found) then
     write(*,*) "phyetat0: Failed loading <sea_ice>"
-    tsea_ice(1:ngrid)=0.
-  endif
-else
-  tsea_ice(1:ngrid)=0.
+    sea_ice(1:ngrid)=0.
+  endif
+else
+  sea_ice(1:ngrid)=0.
 endif ! of if (startphy_file)
 write(*,*) "phyetat0: Oceanic ice quantity <sea_ice> range:", &