Changeset 4492

Timestamp:

Apr 3, 2023, 10:27:30 AM (20 months ago)

Author:

crisi

Message:

bug correction in water tagging initialization

File:

• LMDZ6/trunk/libf/dyn3d/dynetat0.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d/dynetat0.F90

@@ -161 +161 @@
       ELSE
          CALL msg('Tracer <'//TRIM(var)//'> is missing => initialized to its parent isotope concentration.', modname)
-         q(:,:,:,iq) = q(:,:,:,iqIsoPha(iName,iPhase))
+         ! Camille 9 mars 2023: attention!! seuls les tags qui correspondent à
+         ! izone=izone_init (définie dans isotrac_mod) sont initialisés comme
+         ! les parents. Sinon, c'est nul.
+         ! j'ai fait ça en attendant, mais il faudrait initialiser proprement en
+         ! remplacant 1 par izone_init dans la ligne qui suit.
+         IF(tracers(iq)%iso_iZone == 1) THEN
+           q(:,:,:,iq) = q(:,:,:,iqIsoPha(iName,iPhase))
+         ELSE
+           q(:,:,:,iq) = 0.
+         END IF
       END IF
     !--------------------------------------------------------------------------------------------------------------------------