Changeset 3814 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_field_phy.F90

Timestamp:

Apr 15, 2015, 6:49:07 PM (10 years ago)

Author:

ymipsl

Message:

remove all dynamic dependency in LMDZ physics except for the include "dimensions.h"

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_field_phy.F90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/write_field_phy.F90

@@ -13 +13 @@
     
     IMPLICIT NONE
-    include 'dimensions.h'
-    include 'paramet.h'
 
     character(len=*)   :: name
@@ -21 +19 @@
     real,save,allocatable :: Field_tmp(:,:)
     real, dimension(klon_glo,ll):: New_Field
-    real, dimension(iim,jjp1,ll):: Field_2d
+    real, dimension(nbp_lon,nbp_lat,ll):: Field_2d
 
     CALL Gather(Field,New_Field)