- Timestamp:
- 2018-05-22T11:09:09+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r6487 r9616 482 482 r1_e2v (:,:) = 1._wp / e2v(:,:) 483 483 r1_e2f (:,:) = 1._wp / e2f(:,:) 484 485 484 ! Control printing : Grid informations (if not restart) 486 485 ! ---------------- … … 527 526 528 527 CASE ( 0, 1, 4 ) ! mesh on the sphere 529 530 528 ff(:,:) = 2. * omega * SIN( rad * gphif(:,:) ) 531 532 529 CASE ( 2 ) ! f-plane at ppgphi0 533 530 … … 676 673 e2f=1.0e2 677 674 END WHERE 678 679 675 END SUBROUTINE hgr_read 680 676
Note: See TracChangeset
for help on using the changeset viewer.