- Timestamp:
- 2015-03-31T19:58:23+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r5123 r5189 646 646 CALL iom_close( inum ) 647 647 648 ! need to be define for the extended grid south of -80S649 ! some point are undefined but you need to have e1 and e2 .NE. 0650 WHERE (e1t==0.0_wp)651 e1t=1.0e2652 END WHERE653 WHERE (e1v==0.0_wp)654 e1v=1.0e2655 END WHERE656 WHERE (e1u==0.0_wp)657 e1u=1.0e2658 END WHERE659 WHERE (e1f==0.0_wp)660 e1f=1.0e2661 END WHERE662 WHERE (e2t==0.0_wp)663 e2t=1.0e2664 END WHERE665 WHERE (e2v==0.0_wp)666 e2v=1.0e2667 END WHERE668 WHERE (e2u==0.0_wp)669 e2u=1.0e2670 END WHERE671 WHERE (e2f==0.0_wp)672 e2f=1.0e2673 END WHERE674 675 648 END SUBROUTINE hgr_read 676 649
Note: See TracChangeset
for help on using the changeset viewer.