Changeset 793 for LMDZ4/trunk/libf/phylmd/iophy.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/iophy.F90 (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/iophy.F90

@@ -20 +20 @@
   use ioipsl
   implicit none
-  include 'dimensions90.h'   
+  include 'dimensions.h'   
     real,dimension(iim),intent(in) :: lon
     real,dimension(jjm+1),intent(in) :: lat
@@ -69 +69 @@
   use write_field
   implicit none
-  include 'dimensions90.h'
+  include 'dimensions.h'
     
     character*(*), intent(IN) :: name
@@ -95 +95 @@
   USE ioipsl
   implicit none
-  include 'dimensions90.h'
+  include 'dimensions.h'
     
     integer,intent(in) :: nid
@@ -117 +117 @@
   use ioipsl
   implicit none
-  include 'dimensions90.h'
+  include 'dimensions.h'
     
     integer,intent(in) :: nid
@@ -137 +137 @@
 !  USE dimphy_old
 !  implicit none
-!  include 'dimensions90.h'
+!  include 'dimensions.h'
 !  
 !    real,dimension(klon_mpi,nlev),intent(in) :: field_phy