Ignore:
Timestamp:
Mar 13, 2015, 9:17:42 AM (10 years ago)
Author:
milmd
Message:

In LMDZ.GENERIC replacement of all phystd .h files by module files.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/ocean_slab_mod.F90

    r1384 r1397  
    1313      use surf_heat_transp_mod
    1414      implicit none
    15 
    16 
    17 #include "callkeys.h"
    1815
    1916
    … …  
    6461
    6562
    66 #include "callkeys.h"
    67 
    68 
    6963
    7064
    … …  
    203197
    204198      use slab_ice_h
    205 
    206 #include "callkeys.h"
    207 
     199      use callkeys_mod, only: ok_slab_sic
    208200
    209201
    … …  
    441433
    442434    use slab_ice_h
    443 
    444 #include "callkeys.h"
     435    use callkeys_mod, only: ok_slab_sic,ok_slab_heat_transp
    445436
    446437! Input arguments
Note: See TracChangeset for help on using the changeset viewer.