Ignore:
Timestamp:
2018-12-14T15:58:02+01:00 (23 months ago)
Author:
jcastill
Message:

Merge branch r6232_hadgem3_cplfld@7463

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

    r8058 r10395  
    5151 
    5252   SUBROUTINE repcmo ( pxu1, pyu1, pxv1, pyv1,   & 
    53                        px2 , py2 ) 
     53                       px2 , py2, kchoix ) 
    5454      !!---------------------------------------------------------------------- 
    5555      !!                  ***  ROUTINE repcmo  *** 
     
    6969      !!---------------------------------------------------------------------- 
    7070       
    71       ! Change from geographic to stretched coordinate 
    72       ! ---------------------------------------------- 
    73       CALL rot_rep( pxu1, pyu1, 'U', 'en->i',px2 ) 
    74       CALL rot_rep( pxv1, pyv1, 'V', 'en->j',py2 ) 
     71      INTEGER, INTENT( IN )                       ::   kchoix       ! type of transformation    
     72                                                                    ! = 1 change from geographic to model grid.    
     73                                                                    ! =-1 change from model to geographic grid    
     74      !!----------------------------------------------------------------------   
     75         
     76      SELECT CASE (kchoix)    
     77      CASE ( 1)    
     78        ! Change from geographic to stretched coordinate    
     79        ! ----------------------------------------------    
     80         
     81        CALL rot_rep( pxu1, pyu1, 'U', 'en->i',px2 )    
     82        CALL rot_rep( pxv1, pyv1, 'V', 'en->j',py2 )    
     83      CASE (-1)    
     84        ! Change from stretched to geographic coordinate    
     85        ! ----------------------------------------------    
     86         
     87        CALL rot_rep( pxu1, pyu1, 'U', 'ij->e',px2 )    
     88        CALL rot_rep( pxv1, pyv1, 'V', 'ij->n',py2 )    
     89      END SELECT    
    7590       
    7691   END SUBROUTINE repcmo 
Note: See TracChangeset for help on using the changeset viewer.