Ignore:
Timestamp:
2016-10-04T16:57:13+02:00 (4 years ago)
Author:
flavoni
Message:

update DOMAINcfg TOOL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domwri.f90

    r6973 r6984  
    282282         CALL iom_rstput( 0, 0, inum4, 'gdept_0', gdept_0, ktype = jp_r8 )      
    283283         CALL iom_rstput( 0, 0, inum4, 'gdepw_0', gdepw_0, ktype = jp_r8 ) 
    284          CALL dom_stiff( zprt ) 
    285          CALL iom_rstput( 0, 0, inum, 'stiffness', zprt )       !    ! Max. grid stiffness ratio 
     284         CALL dom_stiff( zprt ) 
     285         CALL iom_rstput( 0, 0, inum4, 'stiffness', zprt )       !    ! Max. grid stiffness ratio 
    286286      ENDIF 
    287287       
Note: See TracChangeset for help on using the changeset viewer.