Ignore:
Timestamp:
2019-11-27T15:50:29+01:00 (10 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/SBC/sbcssm.F90

    r10425 r11987  
    6060      ! 
    6161      !                                        !* surface T-, U-, V- ocean level variables (T, S, depth, velocity) 
    62       DO jj = 1, jpj 
    63          DO ji = 1, jpi 
    64             zts(ji,jj,jp_tem) = tsn(ji,jj,mikt(ji,jj),jp_tem) 
    65             zts(ji,jj,jp_sal) = tsn(ji,jj,mikt(ji,jj),jp_sal) 
    66          END DO 
    67       END DO 
     62      zts(:,:,jp_tem) = tsn(:,:,1,jp_tem) 
     63      zts(:,:,jp_sal) = tsn(:,:,1,jp_sal) 
    6864      ! 
    6965      IF( nn_fsbc == 1 ) THEN                             !   Instantaneous surface fields        ! 
Note: See TracChangeset for help on using the changeset viewer.