Changeset 3822 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/infotrac_phy.f90

Timestamp:

Apr 30, 2015, 3:22:39 PM (10 years ago)

Author:

millour

Message:

A couple of bug fixes.
Now the bench (in debug mode) yields identical results in seq/mpi/omp/mpi_omp, and also identical restart files to rev 5 (ie before any modifications to LMDZ5 source files).
EM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/infotrac_phy.f90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/infotrac_phy.f90

@@ -50 +50 @@
     CHARACTER(len=20),INTENT(IN) :: tname_(nqtot_) ! tracer short name for restart and diagnostics
     CHARACTER(len=23),INTENT(IN) :: ttext_(nqtot_) ! tracer long name for diagnostics
-    CHARACTER(len=4),INTENT(IN) :: type_trac_(nqtot_)
+    CHARACTER(len=4),INTENT(IN) :: type_trac_
     INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique
     INTEGER,INTENT(IN) :: conv_flg_(nbtr_)
@@ -63 +63 @@
     ALLOCATE(ttext(nqtot))
     ttext(:) = ttext_(:)
-    ALLOCATE(type_trac(nqtot))
-    type_trac(:) = type_trac_(:)
+    type_trac = type_trac_
     ALLOCATE(niadv(nqtot))
     niadv(:)=niadv_(:)