Changeset 1698 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2009-10-31T14:19:38+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1697 r1698 30 30 USE ice_2 ! ice variables 31 31 #endif 32 #if defined key_oasis3 32 33 USE cpl_oasis3 ! OASIS3 coupling 34 #endif 35 #if defined key_oasis4 36 USE cpl_oasis4 ! OASIS4 coupling 37 #endif 33 38 USE geo2ocean ! 34 39 USE restart ! … … 40 45 USE lib_mpp ! distribued memory computing library 41 46 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 42 USE mod_prism_proto ! OASIS3 prism module: PRISM_* variables...43 47 USE phycst, ONLY : xlsn, rhosn 44 48 #if defined key_cpl_carbon_cycle … … 241 245 ! Define the receive interface ! 242 246 ! ================================ ! 243 nrcvinfo(:) = PRISM_NotDef ! needed by nrcvinfo(jpr_otx1) if we do not receive oceastress247 nrcvinfo(:) = OASIS_idle ! needed by nrcvinfo(jpr_otx1) if we do not receive ocean stress 244 248 245 249 ! for each field: define the OASIS name (srcv(:)%clname) … … 585 589 ! define frcv(:,:,jpr_otx1) and frcv(:,:,jpr_oty1): stress at U/V point along model grid 586 590 ! => need to be done only when we receive the field 587 IF( nrcvinfo(jpr_otx1) == PRISM_Recvd .OR. nrcvinfo(jpr_otx1) == PRISM_FromRest .OR. & 588 & nrcvinfo(jpr_otx1) == PRISM_RecvOut .OR. nrcvinfo(jpr_otx1) == PRISM_FromRestOut ) THEN 591 IF( nrcvinfo(jpr_otx1) == OASIS_Rcv ) THEN 589 592 ! 590 593 IF( TRIM( cn_rcv_tau(2) ) == 'cartesian' ) THEN ! 2 components on the sphere … … 661 664 ENDIF 662 665 ELSE 663 llnewtau = nrcvinfo(jpr_taum) == PRISM_Recvd .OR. nrcvinfo(jpr_taum) == PRISM_FromRest .OR. & 664 & nrcvinfo(jpr_taum) == PRISM_RecvOut .OR. nrcvinfo(jpr_taum) == PRISM_FromRestOut 666 llnewtau = OASIS_Rcv 665 667 ENDIF 666 668 … … 799 801 800 802 ! do something only if we just received the stress from atmosphere 801 IF( nrcvinfo(itx) == PRISM_Recvd .OR. nrcvinfo(itx) == PRISM_FromRest .OR. & 802 & nrcvinfo(itx) == PRISM_RecvOut .OR. nrcvinfo(itx) == PRISM_FromRestOut ) THEN 803 IF( nrcvinfo(itx) == OASIS_Rcv ) THEN 803 804 804 805 ! ! ======================= !
Note: See TracChangeset
for help on using the changeset viewer.