Ignore:
Timestamp:
2020-04-09T21:06:01+02:00 (7 months ago)
Author:
techene
Message:

some cleaning and proper module/routine name, mini bug introduced and corrected in sbcice_cice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DOM/domain.F90

    r12731 r12732  
    3838   USE domvvl         ! variable volume 
    3939#else 
    40    USE domqe          ! variable volume 
     40   USE domqco          ! variable volume 
    4141#endif 
    4242   USE c1d            ! 1D configuration 
     
    149149      CALL dom_msk( ik_top, ik_bot )    ! Masks 
    150150      ! 
    151 !!st      ht_0(:,:) = 0._wp  ! Reference ocean thickness 
     151      ht_0(:,:) = 0._wp  ! Reference ocean thickness 
    152152      hu_0(:,:) = 0._wp 
    153153      hv_0(:,:) = 0._wp 
     
    169169      !           !==  initialisation of time varying coordinate  ==!   Quasi-Euerian coordinate case 
    170170      ! 
    171       IF( .NOT.l_offline )   CALL dom_qe_init( Kbb, Kmm, Kaa ) 
     171      IF( .NOT.l_offline )   CALL dom_qco_init( Kbb, Kmm, Kaa ) 
    172172      ! 
    173173      IF( ln_linssh )        CALL ctl_stop('STOP','domain: key_qco and ln_linssh = T are incompatible') 
Note: See TracChangeset for help on using the changeset viewer.