Changeset 1180

Timestamp:

Jun 15, 2009, 5:02:19 PM (15 years ago)

Author:

jghattas

Message:

infotrac accepte maintenant le schema d'advection iadv=0 (pas de transport) qui est utilise pour certain traceur en configuration avec INCA.

Location:

LMDZ4/branches/LMDZ4-dev/libf

Files:

• dyn3d/infotrac.F90 (modified) (2 diffs)
• dyn3dpar/infotrac.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/infotrac.F90

@@ -295 +295 @@
 
 
-    WRITE(lunout,*) 'Information stored in dimtrac :'
+    WRITE(lunout,*) 'Information stored in infotrac :'
     WRITE(lunout,*) 'iadv  niadv tname  ttext :'
     DO iq=1,nqtot
@@ -306 +306 @@
 !
     DO iq=1,nqtot
-       IF (iadv(iq)/=10 .AND. iadv(iq)/=14) THEN
+       IF (iadv(iq)/=10 .AND. iadv(iq)/=14 .AND. iadv(iq)/=0) THEN
           WRITE(lunout,*)'STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
           CALL abort_gcm('infotrac_init','In this version only iadv=10 and iadv=14 is tested!',1)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/infotrac.F90

@@ -295 +295 @@
 
 
-    WRITE(lunout,*) 'Information stored in dimtrac :'
+    WRITE(lunout,*) 'Information stored in infotrac :'
     WRITE(lunout,*) 'iadv  niadv tname  ttext :'
     DO iq=1,nqtot
@@ -306 +306 @@
 !
     DO iq=1,nqtot
-       IF (iadv(iq)/=10 .AND. iadv(iq)/=14) THEN
+       IF (iadv(iq)/=10 .AND. iadv(iq)/=14 .AND. iadv(iq)/=0) THEN
           WRITE(lunout,*)'STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
           CALL abort_gcm('infotrac_init','In this version only iadv=10 and iadv=14 is tested!',1)