Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F

Timestamp:

Mar 3, 2009, 5:40:26 PM (15 years ago)

Author:

jghattas

Message:

Creation du module infotrac:

• contient les variables de advtrac.h
• contient la subroutine iniadvtrac renommer en infotrac_init
• le nombre des traceurs est lu dans tracer.def en dynamique (ou par default ou recu par INCA)
• ce module est utilise dans la dynamique et la physique
• contient aussi la variable nbtr qui avant etait stockee dans dimphy

Le fichier advtrac.h n'existe plus.
La compilation ne prend plus en compte le nombre de traceur.

/JG

File:

• LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F (modified) (11 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F

@@ -3 +3 @@
 !
 c
-      SUBROUTINE dynredem0_p(fichnom,iday_end,phis,nq)
+      SUBROUTINE dynredem0_p(fichnom,iday_end,phis)
       USE IOIPSL
       USE parallel
+      USE infotrac
       IMPLICIT NONE
 c=======================================================================
@@ -23 +24 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 c   Arguments:
@@ -30 +30 @@
       REAL phis(ip1jmp1)
       CHARACTER*(*) fichnom
-      INTEGER nq
 
 c   Local:
@@ -54 +53 @@
       INTEGER yyears0,jjour0, mmois0
       character*30 unites
-
 
 c-----------------------------------------------------------------------
@@ -461 +459 @@
       dims4(3) = idim_s
       dims4(4) = idim_tim
-      IF(nq.GE.1) THEN
-      DO iq=1,nq
+
+      DO iq=1,nqtot
 cIM 220306 BEG
 #ifdef NC_DOUBLE
@@ -472 +470 @@
       ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 12,ttext(iq))
       ENDDO
-      ENDIF
 c
       dims4(1) = idim_rlonv
@@ -513 +510 @@
       END
       SUBROUTINE dynredem1_p(fichnom,time,
-     .                     vcov,ucov,teta,q,nq,masse,ps)
+     .                     vcov,ucov,teta,q,masse,ps)
       USE parallel
+      USE infotrac
       IMPLICIT NONE
 c=================================================================
@@ -525 +523 @@
 #include "comvert.h"
 #include "comgeom.h"
-#include "advtrac.h"
 #include "temps.h"
 #include "control.h"
 
-      INTEGER nq, l
+      INTEGER l
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
       REAL teta(ip1jmp1,llm)                   
       REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
-      REAL q(ip1jmp1,llm,nq)
+      REAL q(ip1jmp1,llm,nqtot)
       CHARACTER*(*) fichnom
      
@@ -559 +556 @@
       call Gather_Field(ps,ip1jmp1,1,0)
       
-      do iq=1,nq
+      do iq=1,nqtot
         call Gather_Field(q(1,1,iq),ip1jmp1,llm,0)
       enddo
@@ -660 +657 @@
       END IF
 
-      IF(nq.GE.1) THEN
-      do iq=1,nq 
+      do iq=1,nqtot 
 
          IF (config_inca == 'none') THEN
@@ -731 +727 @@
       
       ENDDO
-      ENDIF
-