Changeset 2691 for LMDZ5/trunk/libf

Timestamp:

Oct 30, 2016, 4:59:27 PM (8 years ago)

Author:

oboucher

Message:

Cleaning up the routine.

File:

• LMDZ5/trunk/libf/phylmd/StratAer/traccoag_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/StratAer/traccoag_mod.F90

@@ -103 +103 @@
     REAL,DIMENSION(klon,klev)              :: SO2_backgr_tend_sub ! SO2 from background [kg(S)/m2/layer/s]
     REAL,DIMENSION(klon,klev)              :: OCS_backgr_tend_sub ! OCS from background [kg(S)/m2/layer/s]
-
-    CALL minmaxsimple(tr_seri(:,:,id_SO2_strat),0.0,0.0,'deb SO2')
-    DO it=1, nbtr_bin
-    CALL minmaxsimple(tr_seri(:,:,nbtr_sulgas+it),0.0,0.0,'deb bin ')
-    ENDDO
 
     IF (is_mpi_root) THEN
@@ -312 +307 @@
     ENDDO
 
-    CALL minmaxsimple(tr_seri(:,:,id_SO2_strat),0.0,0.0,'fin SO2')
-    DO it=1, nbtr_bin
-    CALL minmaxsimple(tr_seri(:,:,nbtr_sulgas+it),0.0,0.0,'fin bin ')
-    ENDDO
-
   END SUBROUTINE traccoag