Changeset 2857 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Apr 19, 2017, 7:39:51 PM (8 years ago)
Author:
jyg
Message:

Bug fix concerning 1D restart

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r2811 r2857  
    653653
    654654      modname = 'dyn1deta0 : '
    655       nmq(1)="vap"
    656       nmq(2)="cond"
    657       do iq=3,nqtot
    658         write(nmq(iq),'("tra",i1)') iq-2
    659       enddo
     655!!      nmq(1)="vap"
     656!!      nmq(2)="cond"
     657!!      do iq=3,nqtot
     658!!        write(nmq(iq),'("tra",i1)') iq-2
     659!!      enddo
     660      DO iq = 1,nqtot
     661        nmq(iq) = trim(tname(iq))
     662      ENDDO
    660663      print*,'in dyn1deta0 ',fichnom,klon,klev,nqtot
    661664      CALL open_startphy(fichnom)
    … …  
    804807      CALL open_restartphy(fichnom)
    805808      print*,'redm1 ',fichnom,klon,klev,nqtot
    806       nmq(1)="vap"
    807       nmq(2)="cond"
    808       nmq(3)="tra1"
    809       nmq(4)="tra2"
     809!!      nmq(1)="vap"
     810!!      nmq(2)="cond"
     811!!      nmq(3)="tra1"
     812!!      nmq(4)="tra2"
     813      DO iq = 1,nqtot
     814        nmq(iq) = trim(tname(iq))
     815      ENDDO
    810816
    811817      modname = 'dyn1dredem'
Note: See TracChangeset for help on using the changeset viewer.