Changeset 2656 for LMDZ5/trunk/libf/phylmd/limit_slab.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/limit_slab.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/limit_slab.F90

@@ -164 +164 @@
   diff_sst(:) = diff_sst_save(:)
   diff_siv(:) = diff_siv_save(:)
-! For Debug purpose
-!  PRINT *,'limit_slab sst',MINVAL(diff_sst(:)),MAXVAL(diff_sst(:))
-!  PRINT *,'limit_slab siv',MINVAL(diff_siv(:)),MAXVAL(diff_siv(:))
-!  PRINT *,'limit_slab bils',MINVAL(lmt_bils(:)),MAXVAL(lmt_bils(:))
 
 END SUBROUTINE limit_slab