Changeset 5305
- Timestamp:
- 2015-05-28T16:03:08+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5299 r5305 519 519 IF( nn_components == jp_iam_sas ) THEN 520 520 IF( .NOT. ln_cpl ) srcv(:)%laction = .FALSE. ! force default definition in case of opa <-> sas coupling 521 srcv( (/jpr_toce, jpr_soce, jpr_ssh, jpr_e3t1st, jpr_fraqsr, jpr_ocx1, jp s_ocy1/) )%laction = .TRUE.521 srcv( (/jpr_toce, jpr_soce, jpr_ssh, jpr_e3t1st, jpr_fraqsr, jpr_ocx1, jpr_ocy1/) )%laction = .TRUE. 522 522 ! Vectors: change of sign at north fold ONLY if on the local grid 523 523 srcv(jpr_ocx1:jpr_ocy1)%nsgn = -1. -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r5299 r5305 55 55 USE cpl_oasis3 56 56 USE sbcssm 57 USE lbcnfd, ONLY: isendto, nsndto ! Setup of north fold exchanges 57 USE lbcnfd, ONLY: isendto, nsndto, nfsloop, nfeloop ! Setup of north fold exchanges 58 USE icbstp ! handle bergs, calving, themodynamics and transport 58 59 59 60 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.