Changeset 2656 for LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90

Timestamp:

Oct 10, 2016, 10:57:24 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Making the slab work:

• added a slab_heat_transp_mod module for horizontal diffusion and Ekman transport
• added storage and output of relevent variables in phyredem, phyetat0, phy_output_ctrlout_mod, phys_output_write_mod
• moved nslay (number of slab layers) out of dimphy into ocean_slab_mod.

FC

File:

• LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90

@@ -87 +87 @@
        CALL limit_read_frac(itime, dtime, jour, pctsrf, is_modified)
     CASE ('slab')
+       IF (version_ocean == 'sicOBS'.OR. version_ocean == 'sicNO') THEN
+       ! Read fraction from limit.nc
+           CALL limit_read_frac(itime, dtime, jour, pctsrf, is_modified)
+       ELSE
        ! Get fraction from slab module
-       CALL ocean_slab_frac(itime, dtime, jour, pctsrf, is_modified)
+           CALL ocean_slab_frac(itime, dtime, jour, pctsrf, is_modified)
+       ENDIF
     CASE ('couple')
        ! Get fraction from the coupler