Changeset 9421


Ignore:
Timestamp:
2018-03-22T18:55:41+01:00 (2 years ago)
Author:
clem
Message:

cosmetics

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90

    r9271 r9421  
    233233         END DO 
    234234      END DO 
    235       CALL lbc_lnk( ptc(:,:) , 'T',  1. ) 
     235      CALL lbc_lnk( ptc, 'T',  1. ) 
    236236      ! 
    237237   END SUBROUTINE adv_umx 
     
    488488            END DO 
    489489         END DO 
    490          CALL lbc_lnk( pt_v(:,:) , 'V',  1. ) 
     490         CALL lbc_lnk( pt_v, 'V',  1. ) 
    491491         ! 
    492492      CASE( 3 )                                                !==  3rd order central TIM  ==! (Eq. 24) 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90

    r9398 r9421  
    714714      IF(lwp) WRITE(numout,*) '            hi_max(:)= ', hi_max(0:jpl) 
    715715      ! 
     716      IF( hi_max(1) < rn_himin )   CALL ctl_stop('ice_itd_init: the upper bound of the 1st category must be bigger than rn_himin') 
     717      ! 
    716718   END SUBROUTINE ice_itd_init 
    717719 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceupdate.F90

    r9124 r9421  
    294294      ! controls 
    295295      !--------- 
     296#if ! defined key_agrif 
    296297      IF( ln_icediachk .AND. .NOT. ln_bdy)   CALL ice_cons_final('iceupdate')                                       ! conservation 
     298#endif 
    297299      IF( ln_icectl                      )   CALL ice_prt       (kt, iiceprt, jiceprt, 3, 'Final state ice_update') ! prints 
    298300      IF( ln_ctl                         )   CALL ice_prt3D     ('iceupdate')                                       ! prints 
Note: See TracChangeset for help on using the changeset viewer.