Changeset 2057 for LMDZ5/trunk/libf/phylmd/phyredem.F90

Timestamp:

Jun 16, 2014, 4:33:38 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Preparatory stuff to fix and improve the slab ocean model.
FC

File:

• LMDZ5/trunk/libf/phylmd/phyredem.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phyredem.F90

@@ -15 +15 @@
   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
   USE indice_sol_mod
+  USE surface_data
+  USE ocean_slab_mod, ONLY : tslab
 
   IMPLICIT none
@@ -33 +35 @@
 
   REAL tsoil(klon, nsoilmx, nbsrf)
-  REAL tslab(klon), seaice(klon)
   REAL qsurf(klon, nbsrf)
   REAL qsol(klon)
@@ -340 +341 @@
   END IF
 
+  ! Restart variables for Slab ocean
+  IF (type_ocean == 'slab') THEN
+      CALL put_field("tslab", "Slab ocean temperature", tslab)
+  END IF
+
   if (ok_gwd_rando) then
      call put_field("du_gwd_rando", &