Changeset 1664 for LMDZ5/branches/testing/libf/phylmd/phytrac.F90

Timestamp:

Oct 9, 2012, 3:29:15 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1575

---

Testing release based on r1575

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phytrac.F90 (modified) (8 diffs)

LMDZ5/branches/testing/libf/phylmd/phytrac.F90

@@ -33 +33 @@
   USE traclmdz_mod
   USE tracinca_mod
+  USE tracreprobus_mod
   USE control_mod
-
 
 
@@ -46 +46 @@
   INCLUDE "paramet.h"
   INCLUDE "thermcell.h"
+  INCLUDE "iniprint.h"
 !==========================================================================
 !                   -- ARGUMENT DESCRIPTION --
@@ -55 +56 @@
   INTEGER,INTENT(IN) :: nstep      ! Appel physique
   INTEGER,INTENT(IN) :: julien     ! Jour julien
-  REAL,INTENT(IN)    :: gmtime
+  REAL,INTENT(IN)    :: gmtime     ! Heure courante
   REAL,INTENT(IN)    :: pdtphys    ! Pas d'integration pour la physique (seconde)
   LOGICAL,INTENT(IN) :: debutphy   ! le flag de l'initialisation de la physique
@@ -202 +203 @@
 !######################################################################
   IF (debutphy) THEN
-     WRITE(*,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra
+     IF (prt_level >9) WRITE(lunout,*) 'FIRST TIME IN PHYTRAC : pdtphys(sec) = ',pdtphys,'ecrit_tra (sec) = ',ecrit_tra
      ALLOCATE( source(klon,nbtr), stat=ierr)
      IF (ierr /= 0) CALL abort_gcm('phytrac', 'pb in allocation 1',1)
@@ -217 +218 @@
         source(:,:)=0.
         CALL tracinca_init(aerosol,lessivage)
+     CASE('repr')
+        source(:,:)=0.
      END SELECT
 !
@@ -222 +225 @@
 ! ----------------------------
 #ifdef CPP_IOIPSL
-!     INCLUDE "ini_histrac.h"
+     INCLUDE "ini_histrac.h"
 #endif
   END IF
@@ -257 +260 @@
           rfname,                                        &
           tr_seri,  source,   solsym)      
+
+  CASE('repr')
+     !   -- CHIMIE REPROBUS --
+
+     CALL tracreprobus(pdtphys, gmtime, debutphy, julien, &
+          presnivs, xlat, xlon, pphis, pphi, &
+          t_seri, pplay, paprs, sh , &
+          tr_seri, solsym)
+     
   END SELECT
 
@@ -403 +415 @@
 !=============================================================
 #ifdef CPP_IOIPSL
-!  INCLUDE "write_histrac.h"
+  INCLUDE "write_histrac.h"
 #endif