Changeset 5305


Ignore:
Timestamp:
2015-05-28T16:03:08+02:00 (5 years ago)
Author:
smasson
Message:

dev_r5218_CNRS17_coupling: bugfix

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  
    519519      IF( nn_components == jp_iam_sas ) THEN 
    520520         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, jps_ocy1/) )%laction = .TRUE. 
     521         srcv( (/jpr_toce, jpr_soce, jpr_ssh, jpr_e3t1st, jpr_fraqsr, jpr_ocx1, jpr_ocy1/) )%laction = .TRUE. 
    522522         ! Vectors: change of sign at north fold ONLY if on the local grid 
    523523         srcv(jpr_ocx1:jpr_ocy1)%nsgn = -1. 
  • branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r5299 r5305  
    5555   USE cpl_oasis3 
    5656   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 
    5859 
    5960   IMPLICIT NONE 
Note: See TracChangeset for help on using the changeset viewer.