Changeset 113 for LMDZ.3.3


Ignore:
Timestamp:
Jul 28, 2000, 2:49:54 PM (24 years ago)
Author:
lmdzadmin
Message:

rajout debug

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

    r112 r113  
    437437
    438438c rajout debug
    439         lafin = .true.
     439c       lafin = .true.
    440440
    441441        CALL calfis( nqmx, lafin ,rdayvrai,rday_ecri,time  ,
     
    503503
    504504c ajout debug
    505                IF( lafin ) then 
    506                  abort_message = 'Simulation finished'
    507                  call abort_gcm(modname,abort_message,0)
    508                ENDIF
     505c              IF( lafin ) then 
     506c                abort_message = 'Simulation finished'
     507c                call abort_gcm(modname,abort_message,0)
     508c              ENDIF
    509509       
    510510c   ********************************************************************
Note: See TracChangeset for help on using the changeset viewer.