Changeset 433 for trunk/NEMO/TOP_SRC/trclec.F90

Timestamp:

2006-04-10T17:40:29+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_044 : CT : update the passive tracers TOP component and the standard GYRE configuration

File:

• trunk/NEMO/TOP_SRC/trclec.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trclec.F90

@@ -150 +150 @@
       READ(numnat,natrtd)
 
+      nkeep=0
+      ikeep(:)=0
+      DO ji=1,jptra
+         IF (luttrd(ji)) THEN 
+             nkeep=nkeep+1
+             ikeep(ji)=nkeep
+         END IF 
+      END DO
+      IF (nkeep.GT.0) THEN  
+        IF (.NOT. ALLOCATED(trtrd)) ALLOCATE(trtrd(jpi,jpj,jpk,nkeep,jpdiatrc)) 
+        trtrd(:,:,:,:,:)=0.0
+      ENDIF 
       IF(lwp) THEN
          WRITE(numout,*) 'natrtd'
@@ -159 +171 @@
             WRITE(numout,*)                      &
                ' keep dynamical trends for tracer number :',ji          &
-               ,luttrd(ji)   
-         END DO
+               ,luttrd(ji), ikeep(ji)
+         END DO
+         WRITE(numout,*) 'total = ',nkeep,' tracers dyn trends saved'
+         WRITE(numout,*) 'size of trtrd = ',jpi*jpj*jpk*nkeep*jpdiatrc
       ENDIF
 #endif