Changeset 4048 for LMDZ6/trunk/libf

Timestamp:

Dec 16, 2021, 5:02:20 PM (3 years ago)

Author:

dcugnet

Message:

Corrections to fix the isotopic version compilation.

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• infotrac_phy.F90 (modified) (1 diff)
• phys_output_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90

@@ -136 +136 @@
     INTEGER,INTENT(IN) :: id_BIN01_strat_
 #endif
-    CHARACTER(len=*),INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
+    TYPE(trac_type), INTENT(IN) :: tracers_(nqtot_) ! tracers descriptors
     CHARACTER(len=*),INTENT(IN) :: type_trac_
     INTEGER,INTENT(IN) :: niadv_ (nqtot_) ! equivalent dyn / physique

LMDZ6/trunk/libf/phylmdiso/phys_output_mod.F90

@@ -126 +126 @@
 #ifdef ISO
     INTEGER  :: ixt,iiso,izone
-    CHARACTER(LEN=50) :: outiso
+    CHARACTER(LEN=LEN(striso)) :: outiso
     CHARACTER(LEN=20) :: unit
 #endif
@@ -587 +587 @@
     do ixt=1,ntraciso
       if (ixt.le.niso) then
-        striso_sortie=striso(ixt)
+        outiso=striso(ixt)
       else
 #ifdef ISOTRAC
         iiso=index_iso(ixt)
         izone=index_zone(ixt)       
-        striso_sortie=striso(iiso)//strtrac(izone)
+        outiso=striso(iiso)//strtrac(izone)
 #else
         write(*,*) 'phys_output_mod 546: ixt,ntraciso=', ixt,ntraciso
@@ -630 +630 @@
                                                                                       unit, [('',i=1,nfiles)])
       o_dxtdecroiss (ixt)=ctrl_out(flag, 'dqdecroiss'//TRIM(outiso), 'dHTO/dt due to radiative destruction',   &
+                                                                                      unit, [('',i=1,nfiles)])
       END IF
     enddo !do ixt=1,niso