Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/dynredem_loc.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/dyn3dmem/dynredem_loc.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/dynredem_loc.F90

@@ -151 +151 @@
   CALL cre_var(nid,"teta" ,"Temperature",[rlonvID,rlatuID,sID,timID])
   DO iq=1,nqtot
-    CALL cre_var(nid,tracers(iq)%name(iq),tracers(iq)%lnam,[rlonvID,rlatuID,sID,timID])
+    CALL cre_var(nid,tracers(iq)%name,tracers(iq)%lnam,[rlonvID,rlatuID,sID,timID])
   END DO
   CALL cre_var(nid,"masse","Masse d air"    ,[rlonvID,rlatuID,sID,timID])