Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90

Timestamp:

May 11, 2021, 2:10:34 PM (3 years ago)

Author:

dcugnet

Message:

• Bugs corrections:
  • sequential gcm fixed
  • parallel gcm compilation fixed ; to be tested
• Some generic operations moved from infotrac to readTracFile
• Fixed algebrical reduction routine, used in the isotopes parameters file.
• Additional component "comp" in the tracers descriptor derived type "tra",

specifying the model component name(s) (cf. tracers sections) it belongs.

• isotopes class selection tool fixed.

File:

• LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-tracers/libf/phylmd/phyetat0.F90

@@ -443 +443 @@
 !!        iiq=niadv(it+2)                                                           ! jyg
         iiq=niadv(it+nqo)                                                           ! jyg
-        found=phyetat0_get(1,trs(:,it),"trs_"//tracers(iiq)%name, &
-              "Surf trac"//tracers(iiq)%name,0.)
+        found=phyetat0_get(1,trs(:,it),"trs_"//TRIM(tracers(iiq)%name), &
+              "Surf trac"//TRIM(tracers(iiq)%name),0.)
      ENDDO
      CALL traclmdz_from_restart(trs)
@@ -591 +591 @@
    CALL get_field(name, field, found)
    IF (.NOT. found) THEN
-     WRITE(lunout,*) "phyetat0: Le champ <",name,"> est absent"
+     WRITE(lunout,*) "phyetat0: Le champ <",TRIM(name),"> est absent"
      WRITE(lunout,*) "Depart legerement fausse. Mais je continue"
      field(:,:)=default
    ENDIF
-   WRITE(lunout,*) name, descr, MINval(field),MAXval(field)
+   WRITE(lunout,*) TRIM(name), descr, MINval(field),MAXval(field)
    phyetat0_get=found