New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12448 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90 – NEMO

Ignore:
Timestamp:
2020-02-24T17:39:27+01:00 (4 years ago)
Author:
dford
Message:

Update to head of AMM15_v3_6_STABLE_package_collate (12437).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

    r8058 r12448  
    5151 
    5252   SUBROUTINE repcmo ( pxu1, pyu1, pxv1, pyv1,   & 
    53                        px2 , py2 ) 
     53                       px2 , py2, kchoix ) 
    5454      !!---------------------------------------------------------------------- 
    5555      !!                  ***  ROUTINE repcmo  *** 
    … …  
    6767      REAL(wp), INTENT(  out), DIMENSION(jpi,jpj) ::   px2          ! i-componante (defined at u-point) 
    6868      REAL(wp), INTENT(  out), DIMENSION(jpi,jpj) ::   py2          ! j-componante (defined at v-point) 
    69       !!---------------------------------------------------------------------- 
    70        
    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 ) 
     69      INTEGER, INTENT( IN )                       ::   kchoix       ! type of transformation    
     70                                                                    ! = 1 change from geographic to model grid.    
     71                                                                    ! =-1 change from model to geographic grid    
     72      !!----------------------------------------------------------------------   
     73         
     74      SELECT CASE (kchoix)    
     75      CASE ( 1)    
     76        ! Change from geographic to stretched coordinate    
     77        ! ----------------------------------------------    
     78         
     79        CALL rot_rep( pxu1, pyu1, 'U', 'en->i',px2 )    
     80        CALL rot_rep( pxv1, pyv1, 'V', 'en->j',py2 )    
     81      CASE (-1)    
     82        ! Change from stretched to geographic coordinate    
     83        ! ----------------------------------------------    
     84         
     85        CALL rot_rep( pxu1, pyu1, 'U', 'ij->e',px2 )    
     86        CALL rot_rep( pxv1, pyv1, 'V', 'ij->n',py2 )    
     87      END SELECT    
    7588       
    7689   END SUBROUTINE repcmo 
Note: See TracChangeset for help on using the changeset viewer.