Changeset 793 for LMDZ4/trunk/libf/phylmd/cpl_mod.F90

Timestamp:

Jun 22, 2007, 2:49:51 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Modifications suite a la transformation des fichiers include pour
qu'ils soient compatibles a la fois au format fixe et au format libre
Un bon nombre de fichiers *.inc du coup disparaissent
LF

File:

• LMDZ4/trunk/libf/phylmd/cpl_mod.F90 (modified) (11 diffs)

LMDZ4/trunk/libf/phylmd/cpl_mod.F90

@@ -97 +97 @@
   SUBROUTINE cpl_init(dtime, rlon, rlat)
 
-    INCLUDE "dimensions90.h"
-    INCLUDE "indicesol.inc"
-    INCLUDE "control.inc"
-    INCLUDE "temps.inc"
+    INCLUDE "dimensions.h"
+    INCLUDE "indicesol.h"
+    INCLUDE "control.h"
+    INCLUDE "temps.h"
     INCLUDE "iniprint.h"
 
@@ -275 +275 @@
 ! 4 fields : read_sst, read_sic, read_sit and read_alb_sic. 
 
-    INCLUDE "indicesol.inc"
-    INCLUDE "temps.inc"
+    INCLUDE "indicesol.h"
+    INCLUDE "temps.h"
     INCLUDE "iniprint.h"
-    INCLUDE "YOMCST.inc"
-    INCLUDE "dimensions90.h"
+    INCLUDE "YOMCST.h"
+    INCLUDE "dimensions.h"
 
 ! Input arguments
@@ -403 +403 @@
 ! tsurf_new(1:knon), pctsrf(1:klon).
 !
-    INCLUDE "indicesol.inc"
+    INCLUDE "indicesol.h"
 
 ! Input arguments
@@ -448 +448 @@
 ! tsurf_new(1:knon), alb_new(1:knon), pctsrf(1:klon).
 !
-    INCLUDE "indicesol.inc"
+    INCLUDE "indicesol.h"
 
 ! Input arguments
@@ -485 +485 @@
 ! (it is done in cpl_send_seaice_fields).
 !
-    INCLUDE "indicesol.inc"
-    INCLUDE "dimensions90.h"
+    INCLUDE "indicesol.h"
+    INCLUDE "dimensions.h"
 
 ! Input arguments
@@ -654 +654 @@
 ! the coupler.
 !
-    INCLUDE "indicesol.inc"
-    INCLUDE "dimensions90.h"
+    INCLUDE "indicesol.h"
+    INCLUDE "dimensions.h"
 
 ! Input arguments
@@ -817 +817 @@
 ! (it is done in cpl_send_seaice_fields).
 !
-    INCLUDE "dimensions90.h"
+    INCLUDE "dimensions.h"
 
 ! Input arguments
@@ -869 +869 @@
 ! will be done in cpl_send_seaice_fields.
 !
-    INCLUDE "dimensions90.h"
+    INCLUDE "dimensions.h"
     
 ! Input varibales
@@ -917 +917 @@
 ! Some includes
 !*************************************************************************************
-    INCLUDE "indicesol.inc"
-    INCLUDE "temps.inc"
-    INCLUDE "dimensions90.h"
+    INCLUDE "indicesol.h"
+    INCLUDE "temps.h"
+    INCLUDE "dimensions.h"
     
 ! Input arguments
@@ -1155 +1155 @@
 !   champ_out    champ sur la grille 2D
 !
-    INCLUDE "dimensions90.h"
+    INCLUDE "dimensions.h"
 
 ! Input
@@ -1196 +1196 @@
 !   champ_out    champ sur la grille 2D
 !
-    INCLUDE "dimensions90.h"
+    INCLUDE "dimensions.h"
     
 ! Input arguments