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 12251 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY – NEMO

Ignore:
Timestamp:
2019-12-14T13:46:52+01:00 (4 years ago)
Author:
smasson
Message:

rev12232_dev_r12072_MERGE_OPTION2_2019: merge trunk 12072:12248, all sette tests ok, GYRE_PISCES, AMM12, ISOMIP, VORTEX intentical to 12210

Location:
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY/bdyini.F90

    r12202 r12251  
    395395      jpbdta = MAXVAL(nblendta(1:jpbgrd,1:nb_bdy)) 
    396396      ALLOCATE( nbidta(jpbdta, jpbgrd, nb_bdy), nbjdta(jpbdta, jpbgrd, nb_bdy), nbrdta(jpbdta, jpbgrd, nb_bdy) ) 
    397      
     397      nbrdta(:,:,:) = 0   ! initialize nbrdta as it may not be completely defined for each bdy 
     398       
    398399      ! Calculate global boundary index arrays or read in from file 
    399400      !------------------------------------------------------------                

  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY/bdyvol.F90

    r12166 r12251  
    143143      ! Check the cumulated transport through unstructured OBC once barotropic velocities corrected 
    144144      ! ------------------------------------------------------ 
    145       IF( MOD( kt, nn_write ) == 0 .AND. ( kc == 1 ) ) THEN 
     145      IF( MOD( kt, MAX(nn_write,1) ) == 0 .AND. ( kc == 1 ) ) THEN 
    146146         ! 
    147147         ! compute residual transport across boundary 
Note: See TracChangeset for help on using the changeset viewer.