Ignore:
Timestamp:
2019-09-10T18:35:59+02:00 (15 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF: fixes for ice sheet coupling (ticket #2142)

File:
1 edited

Legend:

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

    r11523 r11529  
    4646      !!---------------------------------------------------------------------- 
    4747      ! 
    48       IF( ln_timing )   CALL timing_start('tra_sbc') 
     48      IF( ln_timing )   CALL timing_start('tra_isf') 
    4949      ! 
    5050      IF (ln_isf) THEN 
     
    6161      IF ( ll_isfcpl ) THEN 
    6262         ! 
    63 !         IF ( kt == nit000 ) CALL tra_isf_cpl(risfcpl_tsc, tsa) 
     63         IF ( kt == nit000 ) CALL tra_isf_cpl(risfcpl_tsc, tsa) 
    6464         ! 
    6565         ! ensure 0 trend due to unconservation of the ice shelf coupling 
     
    130130      ! 
    131131      DO jk = 1,jpk 
    132          ptsa(:,:,jk,jp_tem) = ptsa(:,:,jk,jp_tem) - ptsc(:,:,jk,jp_tem) * r1_e1e2t(:,:) / e3t_n(:,:,jk) 
    133          ptsa(:,:,jk,jp_sal) = ptsa(:,:,jk,jp_sal) - ptsc(:,:,jk,jp_sal) * r1_e1e2t(:,:) / e3t_n(:,:,jk) 
     132         ptsa(:,:,jk,jp_tem) = ptsa(:,:,jk,jp_tem) + ptsc(:,:,jk,jp_tem) * r1_e1e2t(:,:) / e3t_n(:,:,jk) 
     133         ptsa(:,:,jk,jp_sal) = ptsa(:,:,jk,jp_sal) + ptsc(:,:,jk,jp_sal) * r1_e1e2t(:,:) / e3t_n(:,:,jk) 
    134134      END DO 
    135135      ! 
Note: See TracChangeset for help on using the changeset viewer.