Changeset 278


Ignore:
Timestamp:
Oct 2, 2001, 10:35:00 AM (23 years ago)
Author:
lmdzadmin
Message:

Remplacement defrun_new part conf_gcm
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_limit.F

    r232 r278  
    122122
    123123c initialisations:
    124       OPEN (8,file='run.def',form='formatted')
    125       CALL defrun_new(8,.TRUE.,clesphy0)
    126       CLOSE(8)
     124!      OPEN (8,file='run.def',form='formatted')
     125!      CALL defrun_new(8,.TRUE.,clesphy0)
     126!      CLOSE(8)
     127      CALL conf_gcm( 99, .TRUE. , clesphy0 )
    127128
    128129      pi     = 4. * ATAN(1.)

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/etat0_netcdf.F

    r232 r278  
    120120      !
    121121
    122       CALL defrun_new(99,.TRUE.,clesphy0)
     122!      CALL defrun_new(99,.TRUE.,clesphy0)
     123      CALL conf_gcm( 99, .TRUE. , clesphy0 )
    123124
    124125      dtvr   = daysec/FLOAT(day_step)
Note: See TracChangeset for help on using the changeset viewer.