Changeset 2129 for branches/devukmo2010/NEMO/OPA_SRC/SBC
- Timestamp:
- 2010-09-29T13:01:23+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/devukmo2010/NEMO/OPA_SRC/SBC/geo2ocean.F90
r1833 r2129 26 26 ! repcmo and repere are keep only for compatibility. 27 27 ! they are only a useless overlay of rot_rep 28 29 PUBLIC obs_rot 28 30 29 31 REAL(wp), DIMENSION(jpi,jpj) :: & … … 522 524 END SUBROUTINE repere 523 525 526 527 SUBROUTINE obs_rot ( psinu, pcosu, psinv, pcosv ) 528 !!---------------------------------------------------------------------- 529 !! *** ROUTINE obs_rot *** 530 !! 531 !! ** Purpose : Copy gsinu, gcosu, gsinv and gsinv 532 !! to input data for rotations of 533 !! current at observation points 534 !! 535 !! History : 536 !! 9.2 ! 09-02 (K. Mogensen) 537 !!---------------------------------------------------------------------- 538 REAL(wp), DIMENSION(jpi,jpj), INTENT( OUT ):: & 539 & psinu, pcosu, psinv, pcosv! copy of data 540 541 !!---------------------------------------------------------------------- 542 543 ! Initialization of gsin* and gcos* at first call 544 ! ----------------------------------------------- 545 546 IF( lmust_init ) THEN 547 IF(lwp) WRITE(numout,*) 548 IF(lwp) WRITE(numout,*) ' obs_rot : geographic <--> stretched' 549 IF(lwp) WRITE(numout,*) ' ~~~~~~~ coordinate transformation' 550 551 CALL angle ! initialization of the transformation 552 lmust_init = .FALSE. 553 554 ENDIF 555 556 psinu(:,:) = gsinu(:,:) 557 pcosu(:,:) = gcosu(:,:) 558 psinv(:,:) = gsinv(:,:) 559 pcosv(:,:) = gcosv(:,:) 560 561 END SUBROUTINE obs_rot 562 563 524 564 !!====================================================================== 525 565 END MODULE geo2ocean
Note: See TracChangeset
for help on using the changeset viewer.