Changeset 1397 for trunk/LMDZ.GENERIC/libf/phystd/lect_start_archive.F

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:

• trunk/LMDZ.GENERIC/libf/phystd/lect_start_archive.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/lect_start_archive.F

@@ -12 +12 @@
 !      USE control_mod
 ! to use  'getin'
+      USE callkeys_mod, ONLY: ok_slab_ocean
 
 c=======================================================================
@@ -43 +44 @@
 #include "netcdf.inc"
 !#include"advtrac.h"
-#include "callkeys.h"
 c=======================================================================
 c   Declarations