Ignore:
Timestamp:
2018-05-22T11:09:09+02:00 (2 years ago)
Author:
andmirek
Message:

#2001 few additionale changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r6487 r9616  
    482482      r1_e2v  (:,:) = 1._wp    / e2v(:,:) 
    483483      r1_e2f  (:,:) = 1._wp    / e2f(:,:) 
    484  
    485484      ! Control printing : Grid informations (if not restart) 
    486485      ! ---------------- 
     
    527526 
    528527      CASE ( 0, 1, 4 )               ! mesh on the sphere 
    529  
    530528         ff(:,:) = 2. * omega * SIN( rad * gphif(:,:) )  
    531  
    532529      CASE ( 2 )                     ! f-plane at ppgphi0  
    533530 
     
    676673         e2f=1.0e2 
    677674      END WHERE 
    678         
    679675    END SUBROUTINE hgr_read 
    680676     
Note: See TracChangeset for help on using the changeset viewer.