Changeset 1180


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3d/infotrac.F90

    r1179 r1180  
    295295
    296296
    297     WRITE(lunout,*) 'Information stored in dimtrac :'
     297    WRITE(lunout,*) 'Information stored in infotrac :'
    298298    WRITE(lunout,*) 'iadv  niadv tname  ttext :'
    299299    DO iq=1,nqtot
     
    306306!
    307307    DO iq=1,nqtot
    308        IF (iadv(iq)/=10 .AND. iadv(iq)/=14) THEN
     308       IF (iadv(iq)/=10 .AND. iadv(iq)/=14 .AND. iadv(iq)/=0) THEN
    309309          WRITE(lunout,*)'STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
    310310          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

    r1179 r1180  
    295295
    296296
    297     WRITE(lunout,*) 'Information stored in dimtrac :'
     297    WRITE(lunout,*) 'Information stored in infotrac :'
    298298    WRITE(lunout,*) 'iadv  niadv tname  ttext :'
    299299    DO iq=1,nqtot
     
    306306!
    307307    DO iq=1,nqtot
    308        IF (iadv(iq)/=10 .AND. iadv(iq)/=14) THEN
     308       IF (iadv(iq)/=10 .AND. iadv(iq)/=14 .AND. iadv(iq)/=0) THEN
    309309          WRITE(lunout,*)'STOP : The option iadv=',iadv(iq),' is not tested in this version of LMDZ'
    310310          CALL abort_gcm('infotrac_init','In this version only iadv=10 and iadv=14 is tested!',1)
Note: See TracChangeset for help on using the changeset viewer.