Changeset 5208 for branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
- Timestamp:
- 2015-04-13T15:08:59+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r4366 r5208 638 638 CALL iom_close( inum ) 639 639 640 ! need to be define for the extended grid south of -80S 641 ! some point are undefined but you need to have e1 and e2 .NE. 0 642 WHERE (e1t==0.0_wp) 643 e1t=1.0e2 644 END WHERE 645 WHERE (e1v==0.0_wp) 646 e1v=1.0e2 647 END WHERE 648 WHERE (e1u==0.0_wp) 649 e1u=1.0e2 650 END WHERE 651 WHERE (e1f==0.0_wp) 652 e1f=1.0e2 653 END WHERE 654 WHERE (e2t==0.0_wp) 655 e2t=1.0e2 656 END WHERE 657 WHERE (e2v==0.0_wp) 658 e2v=1.0e2 659 END WHERE 660 WHERE (e2u==0.0_wp) 661 e2u=1.0e2 662 END WHERE 663 WHERE (e2f==0.0_wp) 664 e2f=1.0e2 665 END WHERE 666 640 667 END SUBROUTINE hgr_read 641 668
Note: See TracChangeset
for help on using the changeset viewer.